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
16e25b90
Commit
16e25b90
authored
Jan 25, 2021
by
Alexandre Delanoë
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[FIX] GraphExplorer community search
parent
49179955
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
20 additions
and
18 deletions
+20
-18
FacetsTable.purs
src/Gargantext/Components/FacetsTable.purs
+19
-17
Sidebar.purs
src/Gargantext/Components/GraphExplorer/Sidebar.purs
+1
-1
No files found.
src/Gargantext/Components/FacetsTable.purs
View file @
16e25b90
...
@@ -215,12 +215,12 @@ doc2view :: Document -> DocumentsView
...
@@ -215,12 +215,12 @@ doc2view :: Document -> DocumentsView
doc2view ( Document { id
doc2view ( Document { id
, created: date
, created: date
, hyperdata: HyperdataRowDocument { authors
, hyperdata: HyperdataRowDocument { authors
, title
, title
, source
, source
, publication_year
, publication_year
, publication_month
, publication_month
, publication_day
, publication_day
}
}
, category
, category
, score
, score
}
}
...
@@ -242,14 +242,14 @@ contact2view :: Contact -> DocumentsView
...
@@ -242,14 +242,14 @@ contact2view :: Contact -> DocumentsView
contact2view (Contact { c_id
contact2view (Contact { c_id
, c_created: date
, c_created: date
, c_hyperdata: HyperdataRowContact { firstname
, c_hyperdata: HyperdataRowContact { firstname
, lastname
, lastname
, labs
, labs
}
}
, c_score
, c_score
}
}
) = DocumentsView { id: c_id
) = DocumentsView { id: c_id
, date
, date
: ""
, title : firstname <> lastname
, title : firstname <>
" " <>
lastname
, source: labs
, source: labs
, score: c_score
, score: c_score
, authors: labs
, authors: labs
...
@@ -263,11 +263,11 @@ contact2view (Contact { c_id
...
@@ -263,11 +263,11 @@ contact2view (Contact { c_id
err2view message =
err2view message =
DocumentsView { id: 1
DocumentsView { id: 1
, date: "
2020-01-01
"
, date: ""
, title : "SearchNoResult"
, title : "SearchNoResult"
, source: "
Source
"
, source: ""
, score: 1
, score: 1
, authors: "
Authors
"
, authors: ""
, category: decodeCategory 1
, category: decodeCategory 1
, pairs: []
, pairs: []
, delete: false
, delete: false
...
@@ -315,7 +315,8 @@ pageCpt = R.hooksComponentWithModule thisModule "page" cpt
...
@@ -315,7 +315,8 @@ pageCpt = R.hooksComponentWithModule thisModule "page" cpt
where
where
setParams f = setPath $ \p@{params: ps} -> p {params = f ps}
setParams f = setPath $ \p@{params: ps} -> p {params = f ps}
params = (fst path).params /\ setParams
params = (fst path).params /\ setParams
colNames = T.ColumnName <$> [ "", "Date", "Title", "Source", "Authors", "Delete" ]
-- colNames = T.ColumnName <$> [ "", "Date", "Title", "Source", "Authors", "Delete" ]
colNames = T.ColumnName <$> [ "", "Search", "Result", "", "", "" ]
wrapColElts = const identity
wrapColElts = const identity
-- TODO: how to interprete other scores?
-- TODO: how to interprete other scores?
gi Favorite = "fa fa-star-empty"
gi Favorite = "fa fa-star-empty"
...
@@ -338,12 +339,13 @@ pageCpt = R.hooksComponentWithModule thisModule "page" cpt
...
@@ -338,12 +339,13 @@ pageCpt = R.hooksComponentWithModule thisModule "page" cpt
, maybeStricken delete [ H.text $ publicationDate dv ]
, maybeStricken delete [ H.text $ publicationDate dv ]
, maybeStricken delete [ H.a {target: "_blank", href: documentUrl id} [ H.text title ] ]
, maybeStricken delete [ H.a {target: "_blank", href: documentUrl id} [ H.text title ] ]
, maybeStricken delete [ H.text source ]
, maybeStricken delete [ H.text source ]
, maybeStricken delete [ H.text authors ]
--
, maybeStricken delete [ H.text authors ]
-- , maybeStricken $ intercalate [comma] (pairUrl <$> pairs)
-- , maybeStricken $ intercalate [comma] (pairUrl <$> pairs)
, H.input { defaultChecked: isChecked id
{-
, H.input { defaultChecked: isChecked id
, on: { click: toggleClick }
, on: { click: toggleClick }
, type: "checkbox"
, type: "checkbox"
}
}
-}
]
]
, delete: true }
, delete: true }
where
where
...
...
src/Gargantext/Components/GraphExplorer/Sidebar.purs
View file @
16e25b90
...
@@ -70,7 +70,7 @@ sidebar props = R.createElement sidebarCpt props []
...
@@ -70,7 +70,7 @@ sidebar props = R.createElement sidebarCpt props []
sideTabNav :: R.State SidePanelState -> Array SideTab -> R.Element
sideTabNav :: R.State SidePanelState -> Array SideTab -> R.Element
sideTabNav (sidePanel /\ setSidePanel) sideTabs =
sideTabNav (sidePanel /\ setSidePanel) sideTabs =
R.fragment [ H.div { className: "text-primary center"} [H.text "
SideTab
"]
R.fragment [ H.div { className: "text-primary center"} [H.text ""]
, H.div {className: "nav nav-tabs"} (liItem <$> sideTabs)
, H.div {className: "nav nav-tabs"} (liItem <$> sideTabs)
-- , H.div {className: "center"} [ H.text "Doc sideTabs"]
-- , H.div {className: "center"} [ H.text "Doc sideTabs"]
]
]
...
...
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