Commit 40731885 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski

[folder view] some small refactoring

parent 06818ad1
Pipeline #2876 failed with stage
in 0 seconds
...@@ -163,24 +163,24 @@ folderCpt = here.component "folderCpt" cpt where ...@@ -163,24 +163,24 @@ folderCpt = here.component "folderCpt" cpt where
{ goToRoute } <- useLinkHandler { goToRoute } <- useLinkHandler
R.useEffect' $ do R.useEffect' $ do
R.setRef setPopoverRef $ Just $ Popover.setOpen popoverRef R.setRef setPopoverRef $ Just $ Popover.setOpen popoverRef
pure $ pure $
H.div {} H.div {}
[ H.span { style: { position: "absolute" } } [ H.span { style: { position: "absolute" } }
[ Popover.popover { [ Popover.popover {
arrow: false arrow: false
, open: false , open: false
, onClose: \_ -> pure unit , onClose: \_ -> pure unit
, onOpen: \_ -> pure unit , onOpen: \_ -> pure unit
, ref: popoverRef , ref: popoverRef
} }
[ popOverIcon [ popOverIcon
, mNodePopupView (Record.merge props { dispatch }) (onPopoverClose popoverRef) , mNodePopupView (Record.merge props { dispatch }) (onPopoverClose popoverRef)
] ]
] ]
, H.button { className: "btn btn-primary fv btn" , H.button { className: "btn btn-primary fv btn"
, on: {click: \_ -> goToRoute $ route linkId rootId linkNodeType sid } , on: { click: \_ -> goToRoute $ route linkId rootId linkNodeType sid }
} }
[ H.i {className: icon style nodeType} [] [ H.i {className: icon style nodeType} []
, H.br {} , H.br {}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment