Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
P
purescript-gargantext
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
148
Issues
148
List
Board
Labels
Milestones
Merge Requests
2
Merge Requests
2
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
gargantext
purescript-gargantext
Commits
c9e6bd26
Commit
c9e6bd26
authored
Nov 28, 2019
by
James Laver
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
fix some warnings
parent
7a496fda
Changes
14
Hide whitespace changes
Inline
Side-by-side
Showing
14 changed files
with
26 additions
and
39 deletions
+26
-39
DocsTable.purs
src/Gargantext/Components/DocsTable.purs
+14
-16
Tree.purs
src/Gargantext/Components/Forest/Tree.purs
+2
-3
Node.purs
src/Gargantext/Components/Forest/Tree/Node.purs
+3
-6
NgramsTable.purs
src/Gargantext/Components/NgramsTable.purs
+1
-1
Core.purs
src/Gargantext/Components/NgramsTable/Core.purs
+1
-1
Annuaire.purs
src/Gargantext/Components/Nodes/Annuaire.purs
+1
-1
Contacts.purs
src/Gargantext/Components/Nodes/Annuaire/User/Contacts.purs
+2
-3
Tabs.purs
...gantext/Components/Nodes/Annuaire/User/Contacts/Tabs.purs
+0
-1
Histo.purs
src/Gargantext/Components/Nodes/Corpus/Chart/Histo.purs
+0
-1
Metrics.purs
src/Gargantext/Components/Nodes/Corpus/Chart/Metrics.purs
+0
-1
Pie.purs
src/Gargantext/Components/Nodes/Corpus/Chart/Pie.purs
+0
-1
Tree.purs
src/Gargantext/Components/Nodes/Corpus/Chart/Tree.purs
+0
-1
SearchBar.purs
src/Gargantext/Components/Search/SearchBar.purs
+1
-2
SearchField.purs
src/Gargantext/Components/Search/SearchField.purs
+1
-1
No files found.
src/Gargantext/Components/DocsTable.purs
View file @
c9e6bd26
...
@@ -16,26 +16,24 @@ import Data.Maybe (Maybe(..), maybe)
...
@@ -16,26 +16,24 @@ import Data.Maybe (Maybe(..), maybe)
import Data.Set (Set)
import Data.Set (Set)
import Data.Set as Set
import Data.Set as Set
import Data.Symbol (SProxy(..))
import Data.Symbol (SProxy(..))
import Data.Tuple (Tuple(..), fst
, snd
)
import Data.Tuple (Tuple(..), fst)
import Data.Tuple.Nested ((/\))
import Data.Tuple.Nested ((/\))
import DOM.Simple.Console (log
, log
3)
import DOM.Simple.Console (log3)
import DOM.Simple.Event as DE
import DOM.Simple.Event as DE
import Effect (Effect)
import Effect (Effect)
import Effect.Aff (Aff, launchAff)
import Effect.Aff (Aff, launchAff)
import Effect.Class (liftEffect)
import Effect.Class (liftEffect)
import Reactix as R
import Reactix as R
import Reactix.DOM.HTML as H
import Reactix.DOM.HTML as H
------------------------------------------------------------------------
import Gargantext.Components.Table as T
import Gargantext.Components.Loader (loader)
import Gargantext.Components.Loader (loader)
import Gargantext.Components.Table as T
import Gargantext.Components.Table as T
import Gargantext.Ends (Frontends, url)
import Gargantext.Ends (Frontends, url)
import Gargantext.Utils.Reactix as R2
import Gargantext.Routes as Routes
import Gargantext.Routes as Routes
import Gargantext.Routes (AppRoute, SessionRoute(NodeAPI))
import Gargantext.Routes (AppRoute, SessionRoute(NodeAPI))
import Gargantext.Sessions (Session, sessionId, post, delete, put)
import Gargantext.Sessions (Session, sessionId, post, delete, put)
import Gargantext.Types (NodeType(..), OrderBy(..), TabType, TabPostQuery(..))
import Gargantext.Types (NodeType(..), OrderBy(..), TabType, TabPostQuery(..))
------------------------------------------------------------------------
import Gargantext.Utils.Reactix as R2
data Category = Trash | UnRead | Checked | Topic | Favorite
data Category = Trash | UnRead | Checked | Topic | Favorite
...
@@ -73,8 +71,8 @@ cat2score Checked = 2
...
@@ -73,8 +71,8 @@ cat2score Checked = 2
cat2score Topic = 3
cat2score Topic = 3
cat2score Favorite = 4
cat2score Favorite = 4
-- carous
s
el :: Category -> R.Element
-- carousel :: Category -> R.Element
carous
s
el session nodeId setLocalCategories r cat = H.div {className:"flex"} divs
carousel session nodeId setLocalCategories r cat = H.div {className:"flex"} divs
where
where
divs = map (\c -> if cat == c
divs = map (\c -> if cat == c
then
then
...
@@ -84,15 +82,15 @@ caroussel session nodeId setLocalCategories r cat = H.div {className:"flex"} div
...
@@ -84,15 +82,15 @@ caroussel session nodeId setLocalCategories r cat = H.div {className:"flex"} div
H.div { className : icon c (cat == c)
H.div { className : icon c (cat == c)
, on: { click: onClick nodeId setLocalCategories r c}
, on: { click: onClick nodeId setLocalCategories r c}
} []
} []
) (carous
s
el' cat)
) (carousel' cat)
carous
s
el' :: Category -> Array Category
carousel' :: Category -> Array Category
carous
s
el' Trash = take 2 categories
carousel' Trash = take 2 categories
carous
s
el' cat = take 3 $ drop (cat2score cat - 1 ) categories
carousel' cat = take 3 $ drop (cat2score cat - 1 ) categories
onClick nodeId
setLocalCategories r cat
= \_-> do
onClick nodeId
' setLocalCats r' cat'
= \_-> do
setLocalCat
egories $ Map.insert r._id cat
setLocalCat
s $ Map.insert r'._id cat'
void $ launchAff $ putCategories session nodeId
$ CategoryQuery {nodeIds: [r._id], category: cat
}
void $ launchAff $ putCategories session nodeId
' $ CategoryQuery {nodeIds: [r'._id], category: cat'
}
icon :: Category -> Boolean -> String
icon :: Category -> Boolean -> String
...
@@ -409,7 +407,7 @@ pageCpt = R.memo' $ R.hooksComponent "G.C.DocsTable.pageCpt" cpt where
...
@@ -409,7 +407,7 @@ pageCpt = R.memo' $ R.hooksComponent "G.C.DocsTable.pageCpt" cpt where
row (DocumentsView r) =
row (DocumentsView r) =
{ row:
{ row:
[ -- H.div {} [ H.a { className, style, on: {click: click Favorite} } [] ]
[ -- H.div {} [ H.a { className, style, on: {click: click Favorite} } [] ]
carous
s
el session nodeId setLocalCategories r cat
carousel session nodeId setLocalCategories r cat
--, H.input { type: "checkbox", defaultValue: checked, on: {click: click Trash} }
--, H.input { type: "checkbox", defaultValue: checked, on: {click: click Trash} }
-- TODO show date: Year-Month-Day only
-- TODO show date: Year-Month-Day only
, H.div { style } [ R2.showText r.date ]
, H.div { style } [ R2.showText r.date ]
...
...
src/Gargantext/Components/Forest/Tree.purs
View file @
c9e6bd26
module Gargantext.Components.Forest.Tree where
module Gargantext.Components.Forest.Tree where
import Prelude ((||))
import Prelude (
Unit, bind, discard, map, pure, void, ($), (+), (<>),
(||))
import DOM.Simple.Console (log2)
import DOM.Simple.Console (log2)
import Data.Maybe (Maybe
(..)
)
import Data.Maybe (Maybe)
-- import Data.Newtype (class Newtype)
-- import Data.Newtype (class Newtype)
import Data.Tuple.Nested ((/\))
import Data.Tuple.Nested ((/\))
import Effect.Aff (Aff)
import Effect.Aff (Aff)
...
@@ -14,7 +14,6 @@ import Gargantext.Ends (Frontends)
...
@@ -14,7 +14,6 @@ import Gargantext.Ends (Frontends)
import Gargantext.Components.Loader (loader)
import Gargantext.Components.Loader (loader)
import Gargantext.Routes (AppRoute)
import Gargantext.Routes (AppRoute)
import Gargantext.Sessions (Session)
import Gargantext.Sessions (Session)
import Prelude (Unit, bind, discard, map, pure, void, ($), (+), (<>))
import Reactix as R
import Reactix as R
import Reactix.DOM.HTML as H
import Reactix.DOM.HTML as H
...
...
src/Gargantext/Components/Forest/Tree/Node.purs
View file @
c9e6bd26
module Gargantext.Components.Forest.Tree.Node where
module Gargantext.Components.Forest.Tree.Node where
import Prelude
import Prelude
(class Eq, class Show, show, (&&), (<>), (==))
import Data.Array (foldl)
import Data.Array (foldl)
import Gargantext.Types
import Effect.Uncurried (mkEffectFn1)
-- import Data.Set
import Data.Array (filter)
import Reactix.DOM.HTML as H
import Reactix.DOM.HTML as H
import Effect.Aff (Aff, launchAff, runAff)
import Gargantext.Types (NodeType(..))
------------------------------------------------------------------------
------------------------------------------------------------------------
------------------------------------------------------------------------
------------------------------------------------------------------------
...
...
src/Gargantext/Components/NgramsTable.purs
View file @
c9e6bd26
...
@@ -19,7 +19,7 @@ import Data.Lens.Record (prop)
...
@@ -19,7 +19,7 @@ import Data.Lens.Record (prop)
import Data.List as List
import Data.List as List
import Data.Map (Map)
import Data.Map (Map)
import Data.Map as Map
import Data.Map as Map
import Data.Maybe (Maybe(..), maybe
, fromJust
)
import Data.Maybe (Maybe(..), maybe)
import Data.Monoid.Additive (Additive(..))
import Data.Monoid.Additive (Additive(..))
import Data.Ord.Down (Down(..))
import Data.Ord.Down (Down(..))
import Data.Set (Set)
import Data.Set (Set)
...
...
src/Gargantext/Components/NgramsTable/Core.purs
View file @
c9e6bd26
...
@@ -57,7 +57,7 @@ import Data.Foldable (class Foldable, foldMap, foldl, foldr)
...
@@ -57,7 +57,7 @@ import Data.Foldable (class Foldable, foldMap, foldl, foldr)
import Data.FoldableWithIndex (class FoldableWithIndex, foldMapWithIndex, foldlWithIndex, foldrWithIndex)
import Data.FoldableWithIndex (class FoldableWithIndex, foldMapWithIndex, foldlWithIndex, foldrWithIndex)
import Data.FunctorWithIndex (class FunctorWithIndex, mapWithIndex)
import Data.FunctorWithIndex (class FunctorWithIndex, mapWithIndex)
import Data.Newtype (class Newtype)
import Data.Newtype (class Newtype)
import Data.Lens (Iso', Lens', use, view, (%=), (.~), (?=), (^
.), (^
?))
import Data.Lens (Iso', Lens', use, view, (%=), (.~), (?=), (^?))
import Data.Lens.Common (_Just)
import Data.Lens.Common (_Just)
import Data.Lens.At (class At, at)
import Data.Lens.At (class At, at)
import Data.Lens.Index (class Index, ix)
import Data.Lens.Index (class Index, ix)
...
...
src/Gargantext/Components/Nodes/Annuaire.purs
View file @
c9e6bd26
...
@@ -15,7 +15,7 @@ import Gargantext.Ends (url, Frontends)
...
@@ -15,7 +15,7 @@ import Gargantext.Ends (url, Frontends)
import Gargantext.Routes (SessionRoute(..))
import Gargantext.Routes (SessionRoute(..))
import Gargantext.Routes as Routes
import Gargantext.Routes as Routes
import Gargantext.Sessions (Session, sessionId, get)
import Gargantext.Sessions (Session, sessionId, get)
import Gargantext.Types (Node
Path(..), Node
Type(..))
import Gargantext.Types (NodeType(..))
import Gargantext.Hooks.Loader (useLoader)
import Gargantext.Hooks.Loader (useLoader)
newtype IndividuView =
newtype IndividuView =
...
...
src/Gargantext/Components/Nodes/Annuaire/User/Contacts.purs
View file @
c9e6bd26
...
@@ -4,14 +4,13 @@ module Gargantext.Components.Nodes.Annuaire.User.Contacts
...
@@ -4,14 +4,13 @@ module Gargantext.Components.Nodes.Annuaire.User.Contacts
, userLayout )
, userLayout )
where
where
import Prelude (bind, pure,
($), (<<<), (<>), (<$>), show, discard
)
import Prelude (bind, pure,
show, ($), (<<<), (<>), (<$>)
)
import Data.Array (head)
import Data.Array (head)
import Data.Maybe (Maybe(..), fromMaybe, maybe)
import Data.Maybe (Maybe(..), fromMaybe, maybe)
import Data.Tuple (Tuple(..))
import Data.Tuple (Tuple(..))
import Data.Tuple.Nested ((/\))
import Data.Tuple.Nested ((/\))
import Data.Newtype (unwrap)
import Data.Newtype (unwrap)
import Data.String (joinWith)
import Data.String (joinWith)
import DOM.Simple.Console (log2)
import Effect.Aff (Aff)
import Effect.Aff (Aff)
import Reactix as R
import Reactix as R
import Reactix.DOM.HTML as H
import Reactix.DOM.HTML as H
...
@@ -21,7 +20,7 @@ import Gargantext.Components.Nodes.Annuaire.User.Contacts.Types
...
@@ -21,7 +20,7 @@ import Gargantext.Components.Nodes.Annuaire.User.Contacts.Types
, ContactWho(..), HyperData(..), HyperdataContact(..) )
, ContactWho(..), HyperData(..), HyperdataContact(..) )
import Gargantext.Components.Nodes.Annuaire.User.Contacts.Tabs as Tabs
import Gargantext.Components.Nodes.Annuaire.User.Contacts.Tabs as Tabs
import Gargantext.Hooks.Loader (useLoader)
import Gargantext.Hooks.Loader (useLoader)
import Gargantext.Routes
import Gargantext.Routes
hiding (Annuaire)
import Gargantext.Ends (Frontends)
import Gargantext.Ends (Frontends)
import Gargantext.Sessions (Session, get)
import Gargantext.Sessions (Session, get)
import Gargantext.Types (NodeType(..))
import Gargantext.Types (NodeType(..))
...
...
src/Gargantext/Components/Nodes/Annuaire/User/Contacts/Tabs.purs
View file @
c9e6bd26
...
@@ -13,7 +13,6 @@ import Gargantext.Components.NgramsTable as NT
...
@@ -13,7 +13,6 @@ import Gargantext.Components.NgramsTable as NT
import Gargantext.Components.Tab as Tab
import Gargantext.Components.Tab as Tab
import Gargantext.Components.Nodes.Annuaire.User.Contacts.Types (ContactData)
import Gargantext.Components.Nodes.Annuaire.User.Contacts.Types (ContactData)
import Gargantext.Ends (Frontends)
import Gargantext.Ends (Frontends)
import Gargantext.Routes (AppRoute)
import Gargantext.Sessions (Session)
import Gargantext.Sessions (Session)
import Gargantext.Types (TabType(..), TabSubType(..), CTabNgramType(..), PTabNgramType(..))
import Gargantext.Types (TabType(..), TabSubType(..), CTabNgramType(..), PTabNgramType(..))
...
...
src/Gargantext/Components/Nodes/Corpus/Chart/Histo.purs
View file @
c9e6bd26
...
@@ -11,7 +11,6 @@ import Gargantext.Components.Charts.Options.Series (seriesBarD1)
...
@@ -11,7 +11,6 @@ import Gargantext.Components.Charts.Options.Series (seriesBarD1)
import Gargantext.Components.Charts.Options.Color (grey)
import Gargantext.Components.Charts.Options.Color (grey)
import Gargantext.Components.Charts.Options.Font (itemStyle, mkTooltip, templateFormatter)
import Gargantext.Components.Charts.Options.Font (itemStyle, mkTooltip, templateFormatter)
import Gargantext.Components.Charts.Options.Data (dataSerie)
import Gargantext.Components.Charts.Options.Data (dataSerie)
import Gargantext.Ends (url)
import Gargantext.Hooks.Loader (useLoader)
import Gargantext.Hooks.Loader (useLoader)
import Gargantext.Components.Nodes.Corpus.Chart.Utils as U
import Gargantext.Components.Nodes.Corpus.Chart.Utils as U
import Gargantext.Routes (SessionRoute(..))
import Gargantext.Routes (SessionRoute(..))
...
...
src/Gargantext/Components/Nodes/Corpus/Chart/Metrics.purs
View file @
c9e6bd26
...
@@ -15,7 +15,6 @@ import Gargantext.Components.Charts.Options.Series (Series, seriesScatterD2)
...
@@ -15,7 +15,6 @@ import Gargantext.Components.Charts.Options.Series (Series, seriesScatterD2)
import Gargantext.Components.Charts.Options.Color (green, grey, red)
import Gargantext.Components.Charts.Options.Color (green, grey, red)
import Gargantext.Components.Charts.Options.Font (itemStyle, mkTooltip, templateFormatter)
import Gargantext.Components.Charts.Options.Font (itemStyle, mkTooltip, templateFormatter)
import Gargantext.Components.Charts.Options.Data (dataSerie)
import Gargantext.Components.Charts.Options.Data (dataSerie)
import Gargantext.Ends (url)
import Gargantext.Hooks.Loader (useLoader)
import Gargantext.Hooks.Loader (useLoader)
import Gargantext.Components.Nodes.Corpus.Chart.Utils as U
import Gargantext.Components.Nodes.Corpus.Chart.Utils as U
import Gargantext.Routes (SessionRoute(..))
import Gargantext.Routes (SessionRoute(..))
...
...
src/Gargantext/Components/Nodes/Corpus/Chart/Pie.purs
View file @
c9e6bd26
...
@@ -15,7 +15,6 @@ import Gargantext.Components.Charts.Options.Series (seriesBarD1, seriesPieD1)
...
@@ -15,7 +15,6 @@ import Gargantext.Components.Charts.Options.Series (seriesBarD1, seriesPieD1)
import Gargantext.Components.Charts.Options.Color (blue)
import Gargantext.Components.Charts.Options.Color (blue)
import Gargantext.Components.Charts.Options.Font (itemStyle, mkTooltip, templateFormatter)
import Gargantext.Components.Charts.Options.Font (itemStyle, mkTooltip, templateFormatter)
import Gargantext.Components.Charts.Options.Data (dataSerie)
import Gargantext.Components.Charts.Options.Data (dataSerie)
import Gargantext.Ends (url)
import Gargantext.Hooks.Loader (useLoader)
import Gargantext.Hooks.Loader (useLoader)
import Gargantext.Components.Nodes.Corpus.Chart.Utils as U
import Gargantext.Components.Nodes.Corpus.Chart.Utils as U
import Gargantext.Routes (SessionRoute(..))
import Gargantext.Routes (SessionRoute(..))
...
...
src/Gargantext/Components/Nodes/Corpus/Chart/Tree.purs
View file @
c9e6bd26
...
@@ -10,7 +10,6 @@ import Reactix.DOM.HTML as H
...
@@ -10,7 +10,6 @@ import Reactix.DOM.HTML as H
import Gargantext.Components.Charts.Options.ECharts (Options(..), chart, xAxis', yAxis')
import Gargantext.Components.Charts.Options.ECharts (Options(..), chart, xAxis', yAxis')
import Gargantext.Components.Charts.Options.Series (TreeNode, Trees(..), mkTree)
import Gargantext.Components.Charts.Options.Series (TreeNode, Trees(..), mkTree)
import Gargantext.Components.Charts.Options.Font (mkTooltip, templateFormatter)
import Gargantext.Components.Charts.Options.Font (mkTooltip, templateFormatter)
import Gargantext.Ends (url)
import Gargantext.Hooks.Loader (useLoader)
import Gargantext.Hooks.Loader (useLoader)
import Gargantext.Components.Nodes.Corpus.Chart.Utils as U
import Gargantext.Components.Nodes.Corpus.Chart.Utils as U
import Gargantext.Routes (SessionRoute(..))
import Gargantext.Routes (SessionRoute(..))
...
...
src/Gargantext/Components/Search/SearchBar.purs
View file @
c9e6bd26
...
@@ -2,9 +2,8 @@ module Gargantext.Components.Search.SearchBar
...
@@ -2,9 +2,8 @@ module Gargantext.Components.Search.SearchBar
( Props, searchBar, searchBarCpt
( Props, searchBar, searchBarCpt
) where
) where
import Prelude (Unit, bind, discard,
not, pure, show, ($), (<>), map
)
import Prelude (Unit, bind, discard,
pure, ($)
)
import Data.Maybe (Maybe(..))
import Data.Maybe (Maybe(..))
import Data.Array (nub, concat)
import Data.Newtype (over)
import Data.Newtype (over)
import Data.Tuple.Nested ((/\))
import Data.Tuple.Nested ((/\))
import Effect (Effect)
import Effect (Effect)
...
...
src/Gargantext/Components/Search/SearchField.purs
View file @
c9e6bd26
module Gargantext.Components.Search.SearchField
module Gargantext.Components.Search.SearchField
( Search, Props, defaultSearch, searchField, searchFieldComponent, isIsTex) where
( Search, Props, defaultSearch, searchField, searchFieldComponent, isIsTex) where
import Prelude
import Prelude
hiding (div)
import Data.Maybe (Maybe(..), maybe, isJust)
import Data.Maybe (Maybe(..), maybe, isJust)
import Data.String (length)
import Data.String (length)
import Data.Set as Set
import Data.Set as Set
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment