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

Merge branch 'master' into ngrams-table

parents b8b2ff99 422a0c80
...@@ -18,6 +18,7 @@ import Effect (Effect) ...@@ -18,6 +18,7 @@ import Effect (Effect)
import Effect.Aff (Aff) import Effect.Aff (Aff)
import Effect.Class (liftEffect) import Effect.Class (liftEffect)
import Effect.Console (log) import Effect.Console (log)
import Gargantext.Config (End(..), NodeType(..), toUrl)
import Prelude (identity) import Prelude (identity)
import React (ReactElement) import React (ReactElement)
import React.DOM (a, button, div, h5, i, input, li, span, text, ul) import React.DOM (a, button, div, h5, i, input, li, span, text, ul)
...@@ -368,7 +369,9 @@ toHtml d s@(NTree (LNode {id, name, nodeType, open, popOver, renameNodeValue,cre ...@@ -368,7 +369,9 @@ toHtml d s@(NTree (LNode {id, name, nodeType, open, popOver, renameNodeValue,cre
ul [] ul []
[ li [] $ [ li [] $
( [ a [onClick $ (\e-> d $ ToggleFolder id)] [i [fldr open] []] ( [ a [onClick $ (\e-> d $ ToggleFolder id)] [i [fldr open] []]
, text $ " " <> name <> " " , a [ href (toUrl Front nodeType (Just id))]
[ text $ " " <> name <> " " ]
] <> ] <>
if open then if open then
...@@ -529,3 +532,10 @@ fnTransform n = NTree n [] ...@@ -529,3 +532,10 @@ fnTransform n = NTree n []
unsafeEventValue :: forall event. event -> String unsafeEventValue :: forall event. event -> String
unsafeEventValue e = (unsafeCoerce e).target.value unsafeEventValue e = (unsafeCoerce e).target.value
-- <<<<<<< HEAD
-- a [ href (toUrl Front Folder id )]
-- =======
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