Commit 53826540 authored by arturo's avatar arturo

>>> BEGIN

parent d92b7bef
Pipeline #2975 failed with stage
in 0 seconds
...@@ -47,6 +47,7 @@ component = here.component "main" cpt where ...@@ -47,6 +47,7 @@ component = here.component "main" cpt where
selectedBranch <- R2.useLive' store.selectedBranch selectedBranch <- R2.useLive' store.selectedBranch
selectedSource <- R2.useLive' store.selectedSource selectedSource <- R2.useLive' store.selectedSource
expandNeighborhood <- R2.useLive' store.expandNeighborhood expandNeighborhood <- R2.useLive' store.expandNeighborhood
expandSelection <- R2.useLive' store.expandSelection
showMore' /\ showMore <- R2.useBox' false showMore' /\ showMore <- R2.useBox' false
...@@ -79,8 +80,8 @@ component = here.component "main" cpt where ...@@ -79,8 +80,8 @@ component = here.component "main" cpt where
-- | Behaviors -- | Behaviors
-- | -- |
let let
onExpandClick _ = T.modify_ (not) store.expandNeighborhood onExpandNeighborhoodClick _ = T.modify_ (not) store.expandNeighborhood
onExpandSelectionClick _ = T.modify_ (not) store.expandSelection
-- | Render -- | Render
-- | -- |
...@@ -195,6 +196,15 @@ component = here.component "main" cpt where ...@@ -195,6 +196,15 @@ component = here.component "main" cpt where
[ [
H.text "term" H.text "term"
] ]
,
-- Expand Selection actions
B.iconButton
{ name: expandSelection' ?
"caret-up" $
"caret-down"
, className: "phylo-selection-tab__highlight__expand"
, callback: onExpandSelectionClick
}
] ]
, ,
H.li H.li
...@@ -270,7 +280,7 @@ component = here.component "main" cpt where ...@@ -270,7 +280,7 @@ component = here.component "main" cpt where
"caret-up" $ "caret-up" $
"caret-down" "caret-down"
, className: "phylo-selection-tab__counter__expand" , className: "phylo-selection-tab__counter__expand"
, callback: onExpandClick , callback: onExpandNeighborhoodClick
} }
] ]
, ,
......
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