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
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
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
Grégoire Locqueville
purescript-gargantext
Commits
36337b88
Unverified
Commit
36337b88
authored
May 09, 2019
by
Nicolas Pouillard
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[NGRAMS] OrderBy url
parent
53399396
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
7 additions
and
2 deletions
+7
-2
NgramsTable.purs
src/Gargantext/Components/NgramsTable.purs
+1
-1
Config.purs
src/Gargantext/Config.purs
+6
-1
No files found.
src/Gargantext/Components/NgramsTable.purs
View file @
36337b88
...
...
@@ -697,7 +697,7 @@ ngramsTableSpec = simpleSpec performAction render
[ "Graph"
, "Stop"
, "Terms"
, "Score (Occurences)" -- see convOrderBy
, "Score (Occur
r
ences)" -- see convOrderBy
]
, totalRecords: 47361 -- TODO
}
...
...
src/Gargantext/Config.purs
View file @
36337b88
...
...
@@ -120,6 +120,9 @@ offsetUrl o = "&offset=" <> show o
orderUrl :: forall a. Show a => Maybe a -> UrlPath
orderUrl = maybe "" (\x -> "&order=" <> show x)
orderByUrl :: forall a. Show a => Maybe a -> UrlPath
orderByUrl = maybe "" (\x -> "&orderBy=" <> show x)
showTabType' :: TabType -> String
showTabType' (TabCorpus t) = show t
showTabType' (TabDocument t) = show t
...
...
@@ -145,6 +148,7 @@ pathUrl c (Children n o l s) i =
pathUrl c (GetNgrams
{ tabType: t
, offset: o
, orderBy
, limit: l
, listIds
, termListFilter: tlf
...
...
@@ -152,9 +156,10 @@ pathUrl c (GetNgrams
, searchQuery: q
}) i =
base
<> "/"
<> "/"
<> tabTypeNgramsGet t
<> offsetUrl o <> limitUrl l
<> orderByUrl orderBy
<> foldMap (\x -> "&list=" <> show x) listIds
<> foldMap (\x -> "&listType=" <> show x) tlf
<> foldMap (\x -> case x of
...
...
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