Merge branch 'dev' into 339-dev-docs-download

.gitlab-ci.yml

@@ -25,7 +25,7 @@ test:
   script:
     # find 0.14.2 purescript version here:
     # https://lazamar.co.uk/nix-versions/
-    - nix-env -i purescript-0.14.2 -f https://github.com/NixOS/nixpkgs/archive/bed08131cd29a85f19716d9351940bdc34834492.tar.gz
+    - nix-env -i purescript-0.14.4 -f https://github.com/NixOS/nixpkgs/archive/bed08131cd29a85f19716d9351940bdc34834492.tar.gz
     - nix-env -i git
     - nix-env -i nodejs
     - nix-env -i yarn

package.json

 {
     "name": "Gargantext",
-    "version": "0.0.4.9.7",
+    "version": "0.0.4.9.9.2",
     "scripts": {
         "generate-purs-packages-nix": "./nix/generate-purs-packages.nix",
         "generate-psc-packages-nix": "./nix/generate-packages-json.bash",

src/Gargantext/Components/GraphExplorer.purs

@@ -260,6 +260,7 @@ convert (GET.GraphData r) = Tuple r.metaData $ SigmaxT.Graph {nodes, edges}
     nodeFn _i nn@(GET.Node n) =
       Seq.singleton {
           borderColor: color
+        , children: n.children
         , color : color
         , equilateral: { numPoints: 3 }
         , gargType

src/Gargantext/Components/GraphExplorer/Search.purs

@@ -2,9 +2,9 @@ module Gargantext.Components.GraphExplorer.Search
   ( Props, nodeSearchControl ) where
 
 import Prelude
+import Data.Foldable (foldl)
 import Data.Sequence as Seq
 import Data.Set as Set
-import Data.Tuple.Nested ((/\))
 import DOM.Simple.Console (log2)
 import Effect (Effect)
 import Reactix as R
@@ -26,32 +26,37 @@ type Props = (
   )
 
 -- | Whether a node matches a search string
+--   Searches given node and matches it's label or any of the children's labels.
 nodeMatchesSearch :: String -> Record SigmaxT.Node -> Boolean
-nodeMatchesSearch s n = queryMatchesLabel s n.label
+nodeMatchesSearch s n@{ children } =
+  foldl (\acc childLabel -> queryMatchesLabel s childLabel) initial children
+  where
+    initial = queryMatchesLabel s n.label
 
 searchNodes :: String -> Seq.Seq (Record SigmaxT.Node) -> Seq.Seq (Record SigmaxT.Node)
 searchNodes "" _ = Seq.empty
 searchNodes s nodes = Seq.filter (nodeMatchesSearch s) nodes
 
 nodeSearchControl :: R2.Component Props
-nodeSearchControl = R.createElement sizeButtonCpt
-
-sizeButtonCpt :: R.Component Props
-sizeButtonCpt = here.component "nodeSearchControl" cpt
+nodeSearchControl = R.createElement nodeSearchControlCpt
+nodeSearchControlCpt :: R.Component Props
+nodeSearchControlCpt = here.component "nodeSearchControl" cpt
   where
     cpt { graph, multiSelectEnabled, selectedNodeIds } _ = do
       search <- T.useBox ""
       search' <- T.useLive T.unequal search
       multiSelectEnabled' <- T.useLive T.unequal multiSelectEnabled
 
+      let doSearch s = triggerSearch graph s multiSelectEnabled' selectedNodeIds
+
       pure $ R.fragment
         [ inputWithAutocomplete { autocompleteSearch: autocompleteSearch graph
                                 , classes: "mx-2"
-                                , onAutocompleteClick: \s -> triggerSearch graph s multiSelectEnabled' selectedNodeIds
-                                , onEnterPress: \s -> triggerSearch graph s multiSelectEnabled' selectedNodeIds
+                                , onAutocompleteClick: doSearch
+                                , onEnterPress: doSearch
                                 , state: search } []
         , H.div { className: "btn input-group-addon"
-                , on: { click: \_ -> triggerSearch graph search' multiSelectEnabled' selectedNodeIds }
+                , on: { click: \_ -> doSearch search' }
                 }
           [ H.span { className: "fa fa-search" } [] ]
         ]
@@ -74,3 +79,4 @@ triggerSearch graph search multiSelectEnabled selectedNodeIds = do
 
   T.modify_ (\nodes ->
     Set.union matching $ if multiSelectEnabled then nodes else SigmaxT.emptyNodeIds) selectedNodeIds
+

src/Gargantext/Components/InputWithAutocomplete.purs

 module Gargantext.Components.InputWithAutocomplete where
 
 import Prelude
-import Data.Maybe (Maybe(..))
-import Data.Nullable (Nullable, null, toMaybe)
+
 import DOM.Simple as DOM
 import DOM.Simple.Event as DE
+import Data.Maybe (Maybe(..))
+import Data.Nullable (Nullable, null, toMaybe)
 import Effect (Effect)
 import Effect.Timer (setTimeout)
+import Gargantext.Utils.Reactix as R2
+import React.SyntheticEvent as E
 import Reactix as R
 import Reactix.DOM.HTML as H
-import React.SyntheticEvent as E
 import Toestand as T
 
-import Gargantext.Utils.Reactix as R2
-
 here :: R2.Here
 here = R2.here "Gargantext.Components.InputWithAutocomplete"
 
@@ -79,6 +79,8 @@ inputWithAutocompleteCpt = here.component "inputWithAutocomplete" cpt
         onInputKeyUp :: R.Ref (Nullable DOM.Element) -> DE.KeyboardEvent -> Effect Boolean
         onInputKeyUp inputRef e = do
           if DE.key e == "Enter" then do
+            R2.preventDefault e
+            R2.stopPropagation e
             let val = R.unsafeEventValue e
             let mInput = toMaybe $ R.readRef inputRef
             T.write_ val state

src/Gargantext/Config/Utils.purs

@@ -5,6 +5,7 @@ import Gargantext.Prelude
 import Data.Array as A
 import Data.Either (Either(..))
 import Data.Foldable (foldl)
+import Data.Maybe (fromMaybe)
 import Effect (Effect)
 import Effect.Aff (Aff)
 import Effect.Class (liftEffect)
@@ -41,7 +42,7 @@ handleErrorInAsyncProgress errors ap@(AsyncProgress { log, status: IsFinished })
 handleErrorInAsyncProgress _ _ = pure unit
 
 concatErrors :: AsyncProgress -> String
-concatErrors (AsyncProgress { log }) = foldl eventsErrorMessage "" log
+concatErrors (AsyncProgress { error, log }) = foldl eventsErrorMessage (fromMaybe "" error) log
   where
     eventsErrorMessage acc (AsyncTaskLog { events }) = (foldl eventErrorMessage "" events) <> "\n" <> acc
     eventErrorMessage acc (AsyncEvent { level: "ERROR", message }) = message <> "\n" <> acc

src/Gargantext/Hooks/Sigmax/Types.purs

@@ -35,6 +35,7 @@ type EdgeId = String
 
 type Node = (
     borderColor :: String
+  , children    :: Array String
   , color       :: String
   , equilateral :: { numPoints :: Int }
   , gargType    :: GT.Mode

src/Gargantext/Types.purs

@@ -737,6 +737,7 @@ instance Eq AsyncTaskWithType where eq = genericEq
 
 newtype AsyncProgress = AsyncProgress
   { id     :: AsyncTaskID
+  , error  :: Maybe String
   , log    :: Array AsyncTaskLog
   , status :: AsyncTaskStatus
   }

src/Gargantext/Utils/Reactix.js

@@ -27,12 +27,27 @@ function domRectFromRect(obj) {
     return DOMRectReadOnly.fromRect(obj)
 }
 
+function preventDefault(e) {
+    return e.preventDefault();
+}
+
+function stopPropagation(e) {
+    return e.stopPropagation();
+}
+
+function blur(el) {
+    return el.blur();
+}
+
 exports._addRootElement = addRootElement;
 exports._getSelection = getSelection;
 exports._stringify = stringify;
 exports._postMessage = postMessage;
 exports._setCookie = setCookie;
 exports._domRectFromRect = domRectFromRect;
+exports._preventDefault = preventDefault;
+exports._stopPropagation = stopPropagation;
+exports._blur = blur;
 
 exports._keyCode = function(e) {
     // https://www.w3schools.com/jsref/event_key_keycode.asp

src/Gargantext/Utils/Reactix.purs

@@ -335,14 +335,23 @@ inputFileNameWithBlob n e = case ff of
   where
     ff = inputFile n e
 
+foreign import _preventDefault :: forall e. EffectFn1 e Unit
+preventDefault :: forall e. DE.IsEvent e => e -> Effect Unit
+preventDefault = runEffectFn1 _preventDefault
+
+foreign import _stopPropagation :: forall e. EffectFn1 e Unit
+stopPropagation :: forall e. DE.IsEvent e => e -> Effect Unit
+stopPropagation = runEffectFn1 _stopPropagation
+
 -- | Get blob from a drop event
 --dataTransferFileBlob :: forall e. DE.IsEvent e => RE.SyntheticEvent e -> Effect Blob
 dataTransferFileBlob e = unsafePartial $ do
     let ff = fromJust $ item 0 $ ((e .. "dataTransfer" .. "files") :: FileList)
     pure $ WF.toBlob ff
 
+foreign import _blur :: EffectFn1 DOM.Element Unit
 blur :: DOM.Element -> Effect Unit
-blur el = el ... "blur" $ []
+blur = runEffectFn1 _blur
 
 row :: Array R.Element -> R.Element
 row children = H.div { className: "row" } children