Merge branch 'dev-doc-annot' of...

Merge branch 'dev-doc-annot' of ssh://gitlab.iscpif.fr:20022/gargantext/purescript-gargantext into dev-demo-merge

src/Gargantext/Components/Annotation/AnnotatedField.purs

@@ -26,7 +26,7 @@ import Reactix.DOM.HTML as HTML
 import Reactix.SyntheticEvent as E
 
 import Gargantext.Types ( TermList )
-import Gargantext.Components.Annotation.Utils ( termClass )
+import Gargantext.Components.Annotation.Utils ( termBootstrapClass )
 import Gargantext.Components.NgramsTable.Core ( NgramsTerm, NgramsTable(..), _NgramsElement, _list, highlightNgrams )
 import Gargantext.Components.Annotation.Menu ( AnnotationMenu, annotationMenu, MenuType(..) )
 import Gargantext.Utils.Selection as Sel
@@ -122,6 +122,6 @@ annotatedRunComponent = R.staticComponent "AnnotatedRun" cpt
       HTML.span { className: className list
                 , onClick: mkEffectFn1 $ \e -> onSelect text (Just list) e} [ HTML.text text ]
       where
-        className     list        = "annotation-run " <> termClass list
+        className     list        = "annotation-run bg-" <> termBootstrapClass list
 
 

src/Gargantext/Components/Annotation/Menu.purs

@@ -12,7 +12,7 @@ import Reactix.DOM.HTML as HTML
 import Reactix.SyntheticEvent as E
 
 import Gargantext.Types ( TermList(..), termListName )
-import Gargantext.Components.Annotation.Utils ( termClass )
+import Gargantext.Components.Annotation.Utils ( termBootstrapClass )
 
 import Gargantext.Components.ContextMenu.ContextMenu as CM
 import Gargantext.Utils.Selection (Selection, selectionToString)
@@ -50,5 +50,5 @@ addToList {menuType, setList} t = Just $ CM.contextMenuItem [ link ]
     link = HTML.a { onClick: click, className: className } [ HTML.text (label menuType) ]
     label NewNgram = "Add to " <> termListName t
     label SetTermListItem = "Change to" <> termListName t
-    className = "list-group-item " <> (termClass t)
+    className = "list-group-item list-group-item-" <> (termBootstrapClass t)
     click = mkEffectFn1 $ \_ -> setList t

src/Gargantext/Components/Annotation/Utils.purs

@@ -6,3 +6,8 @@ termClass :: TermList -> String
 termClass GraphTerm = "graph-term"
 termClass StopTerm = "stop-term"
 termClass CandidateTerm = "candidate-term"
+
+termBootstrapClass :: TermList -> String
+termBootstrapClass GraphTerm = "success"
+termBootstrapClass StopTerm = "danger"
+termBootstrapClass CandidateTerm = "info"