blob: 55b8521f39149a39aedd74b2597316a2ea501207 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
module Util.Dom
( divIfDyn
, divIfEvent
, divVisibleIf
, divClassVisibleIf
, getBody
) where
import qualified Data.Map as M
import Data.Text (Text)
import qualified GHCJS.DOM as Dom
import qualified GHCJS.DOM.Document as Document
import qualified GHCJS.DOM.HTMLCollection as HTMLCollection
import GHCJS.DOM.Types (Element)
import Reflex.Dom (Dynamic, Event, MonadWidget)
import qualified Reflex.Dom as R
divIfDyn :: forall t m a. MonadWidget t m => Dynamic t Bool -> m a -> m a -> m (Dynamic t a)
divIfDyn cond = divIfEvent (R.updated cond)
divIfEvent :: forall t m a. MonadWidget t m => Event t Bool -> m a -> m a -> m (Dynamic t a)
divIfEvent cond empty content =
R.widgetHold empty (flip fmap cond (\show ->
if show
then
content
else
empty))
divVisibleIf :: forall t m a. MonadWidget t m => Dynamic t Bool -> m a -> m a
divVisibleIf cond content = divClassVisibleIf cond "" content
divClassVisibleIf :: forall t m a. MonadWidget t m => Dynamic t Bool -> Text -> m a -> m a
divClassVisibleIf cond className content =
R.elDynAttr
"div"
(fmap (\c -> (M.singleton "class" className) `M.union` if c then M.empty else M.singleton "style" "display:none") cond)
content
getBody :: forall t m. MonadWidget t m => m Element
getBody = do
document <- Dom.currentDocumentUnchecked
nodelist <- Document.getElementsByTagName document ("body" :: String)
Just body <- nodelist `HTMLCollection.item` 0
return body
|
