Merge branch 'master' of ssh://gitlab.iscpif.fr:20022/gargantext/purescript-gargantext

dist/index.html

@@ -12,12 +12,12 @@
         <link href="css/Login.css" rel="stylesheet">
         <style>
          * {margin: 0; padding: 0; list-style: none;}
-         ul li {
+         .tree ul li {
              margin-left: 15px;
              position: relative;
              padding-left: 5px;
          }
-         ul li::before {
+         .tree ul li::before {
              content: " ";
              position: absolute;
              width: 1px;
@@ -26,9 +26,9 @@
              bottom: -12px;
              left: -10px;
          }
-         body > ul > li:first-child::before {top: 12px;}
-         ul li:not(:first-child):last-child::before {display: none;}
-         ul li:only-child::before {
+         body > .tree ul > li:first-child::before {top: 12px;}
+         .tree ul li:not(:first-child):last-child::before {display: none;}
+         .tree ul li:only-child::before {
              display: list-item;
              content: " ";
              position: absolute;
@@ -39,7 +39,7 @@
              height: 7px;
              left: -10px;
          }
-         ul li::after {
+         .tree ul li::after {
              content: " ";
              position: absolute;
              left: -10px;

src/DocView.purs

@@ -23,7 +23,7 @@ import Data.Tuple (Tuple(..))
 import Network.HTTP.Affjax (AJAX, affjax, defaultRequest)
 import Network.HTTP.RequestHeader (RequestHeader(..))
 import Partial.Unsafe (unsafePartial)
-import Prelude (class Eq, class Ord, class Show, Unit, bind, id, map, not, pure, show, void, ($), (*), (+), (-), (/), (<), (<$>), (<>), (==), (>), (>=), (>>=))
+import Prelude (class Eq, class Ord, class Show, Unit, bind, map, not, pure, show, void, ($), (*), (+), (-), (/), (<), (<$>), (<>), (==), (>), (>=), (>>=))
 import React (ReactElement)
 import React as R
 import React.DOM (a, b, b', br', div, h3, i, input, li, option, select, span, table, tbody, td, text, thead, tr, ul)
@@ -126,7 +126,7 @@ spec = simpleSpec performAction render
             [ div [className "col-md-3"]
               [ br' []
               , br' []
-              ,  toHtml dispatch d.tree
+              ,  div [className "tree"] [toHtml dispatch d.tree]
               ]
             , div [className "col-md-9"]
               [