[DESIGN] some bs classnames

src/Gargantext/Components/Forest/Tree/Node/Action/Merge.purs

@@ -5,7 +5,7 @@ import Data.Maybe (Maybe(..))
 import Data.Tuple.Nested ((/\))
 import Effect.Aff (Aff)
 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.Prelude
 import Gargantext.Routes (SessionRoute(..))
@@ -39,9 +39,14 @@ mergeNode p@{dispatch, subTreeParams, id, nodeType, session} = do
                              , session
                              , 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
                        ]
-               , 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
 

src/Gargantext/Components/Forest/Tree/Node/Tools.purs

@@ -261,4 +261,8 @@ nodeTextCpt = R.hooksComponent "G.C.F.T.N.B.nodeText" cpt
       pure $ H.text (name <> "    ")
 -- END node text
 
+------------------------------------------------------------------------
+
+divider :: R.Element
+divider = H.div {className:"divider"} []
 

src/Gargantext/Components/Forest/Tree/Node/Tools/SubTree.purs

@@ -81,10 +81,12 @@ subTreeViewLoadedCpt :: R.Component CorpusTreeProps
 subTreeViewLoadedCpt = R.hooksComponent "G.C.F.T.N.A.U.subTreeViewLoadedCpt" cpt
   where
     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" }
                                   [subTreeTreeView p]
                           ]
+                   ]
 
 subTreeTreeView :: Record CorpusTreeProps -> R.Element
 subTreeTreeView props = R.createElement subTreeTreeViewCpt props []