Commit 1a198895 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[DESIGN] some bs classnames

parent 6b8d4962
...@@ -5,7 +5,7 @@ import Data.Maybe (Maybe(..)) ...@@ -5,7 +5,7 @@ import Data.Maybe (Maybe(..))
import Data.Tuple.Nested ((/\)) import Data.Tuple.Nested ((/\))
import Effect.Aff (Aff) import Effect.Aff (Aff)
import Gargantext.Components.Forest.Tree.Node.Action (Action(..)) import Gargantext.Components.Forest.Tree.Node.Action (Action(..))
import Gargantext.Components.Forest.Tree.Node.Tools (submitButton, panel, checkbox, checkboxes) import Gargantext.Components.Forest.Tree.Node.Tools (submitButton, panel, checkbox, checkboxes, divider)
import Gargantext.Components.Forest.Tree.Node.Tools.SubTree (subTreeView, SubTreeParamsIn) import Gargantext.Components.Forest.Tree.Node.Tools.SubTree (subTreeView, SubTreeParamsIn)
import Gargantext.Prelude import Gargantext.Prelude
import Gargantext.Routes (SessionRoute(..)) import Gargantext.Routes (SessionRoute(..))
...@@ -39,9 +39,14 @@ mergeNode p@{dispatch, subTreeParams, id, nodeType, session} = do ...@@ -39,9 +39,14 @@ mergeNode p@{dispatch, subTreeParams, id, nodeType, session} = do
, session , session
, subTreeParams , subTreeParams
} }
, H.div {} [ H.text "Merge which list?" , H.div { className:"panel panel-primary"}
[ H.text "Merge which list?"
, checkboxes [GT.MapTerm, GT.CandidateTerm, GT.StopTerm] options , checkboxes [GT.MapTerm, GT.CandidateTerm, GT.StopTerm] options
] ]
, H.div {className: "checkbox"} [checkbox merge, H.text "Merge data?"] , H.div { className:"panel panel-primary"}
[ H.text "Title"
, H.div {className: "checkbox"}
[checkbox merge, H.text "Merge data?"]
]
] button ] button
...@@ -261,4 +261,8 @@ nodeTextCpt = R.hooksComponent "G.C.F.T.N.B.nodeText" cpt ...@@ -261,4 +261,8 @@ nodeTextCpt = R.hooksComponent "G.C.F.T.N.B.nodeText" cpt
pure $ H.text (name <> " ") pure $ H.text (name <> " ")
-- END node text -- END node text
------------------------------------------------------------------------
divider :: R.Element
divider = H.div {className:"divider"} []
...@@ -81,10 +81,12 @@ subTreeViewLoadedCpt :: R.Component CorpusTreeProps ...@@ -81,10 +81,12 @@ subTreeViewLoadedCpt :: R.Component CorpusTreeProps
subTreeViewLoadedCpt = R.hooksComponent "G.C.F.T.N.A.U.subTreeViewLoadedCpt" cpt subTreeViewLoadedCpt = R.hooksComponent "G.C.F.T.N.A.U.subTreeViewLoadedCpt" cpt
where where
cpt p@{dispatch, id, nodeType, session, tree} _ = do cpt p@{dispatch, id, nodeType, session, tree} _ = do
pure $ H.div { className: "copy-from-corpus" } pure $ H.div {className:"panel panel-primary"}
[H.div { className: "copy-from-corpus" }
[ H.div { className: "tree" } [ H.div { className: "tree" }
[subTreeTreeView p] [subTreeTreeView p]
] ]
]
subTreeTreeView :: Record CorpusTreeProps -> R.Element subTreeTreeView :: Record CorpusTreeProps -> R.Element
subTreeTreeView props = R.createElement subTreeTreeViewCpt props [] subTreeTreeView props = R.createElement subTreeTreeViewCpt props []
......
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