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
4a5f0d00
Commit
4a5f0d00
authored
Apr 04, 2024
by
Alexandre Delanoë
Browse files
Options
Browse Files
Download
Plain Diff
Merge remote-tracking branch 'origin/641-dev-node-naming-fixes' into dev
parents
bab4da66
f203eba1
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
33 additions
and
14 deletions
+33
-14
Box.purs
src/Gargantext/Components/FolderView/Box.purs
+1
-2
Tools.purs
src/Gargantext/Components/Forest/Tree/Node/Tools.purs
+0
-6
Types.purs
src/Gargantext/Types.purs
+32
-6
No files found.
src/Gargantext/Components/FolderView/Box.purs
View file @
4a5f0d00
...
...
@@ -6,7 +6,6 @@ import DOM.Simple as DOM
import Effect (Effect)
import Gargantext.Components.Bootstrap as B
import Gargantext.Components.Bootstrap.Types (Elevation(..))
import Gargantext.Components.Forest.Tree.Node.Tools (prettyNodeType)
import Gargantext.Types (ID, Name)
import Gargantext.Types as GT
import Gargantext.Utils.Reactix as R2
...
...
@@ -57,7 +56,7 @@ nodePopupViewCpt = here.component "nodePopupView" cpt where
[
H.span { className: GT.fldr nodeType true} [] -- TODO fix names
,
B.span' { className: "ml-1 h5" } $ prettyNodeType nodeType
B.span' { className: "ml-1 h5" } $
GT.
prettyNodeType nodeType
]
,
B.wad
...
...
src/Gargantext/Components/Forest/Tree/Node/Tools.purs
View file @
4a5f0d00
...
...
@@ -405,9 +405,3 @@ checkboxesListGroupCpt = here.component "checkboxesListGroup" cpt
]
pure $ R.fragment $ map one $ Set.toUnfoldable options'
prettyNodeType :: GT.NodeType -> String
prettyNodeType
= S.replace (S.Pattern "Node") (S.Replacement " ")
<<< S.replace (S.Pattern "Folder") (S.Replacement " ")
<<< show
src/Gargantext/Types.purs
View file @
4a5f0d00
...
...
@@ -205,6 +205,37 @@ instance Show NodeType where
show NodeFile = "NodeFile"
prettyNodeType :: NodeType -> String
prettyNodeType (NodePublic nt) = "Public " <> prettyNodeType nt
prettyNodeType Annuaire = "Annuaire"
prettyNodeType Calc = "Calc"
prettyNodeType Context = "Context"
prettyNodeType Corpus = "Corpus"
prettyNodeType Dashboard = "Dashboard"
prettyNodeType Error = "Error"
prettyNodeType Folder = "Folder"
prettyNodeType FolderPrivate = "Private folder"
prettyNodeType FolderPublic = "Public folder"
prettyNodeType FolderShared = "Shared folder"
prettyNodeType Graph = "Graph"
prettyNodeType Individu = "Individu"
prettyNodeType Node = "Node"
prettyNodeType NodeContact = "Contact"
prettyNodeType NodeFile = "File"
prettyNodeType NodeFrameNotebook = "Notebook"
prettyNodeType NodeFrameVisio = "Visio"
prettyNodeType NodeList = "Terms"
prettyNodeType NodeTexts = "Docs"
prettyNodeType NodeUser = "User"
prettyNodeType Nodes = "Nodes"
prettyNodeType Notes = "Notes"
prettyNodeType Phylo = "Phylo"
prettyNodeType Team = "Team"
prettyNodeType Tree = "Tree"
prettyNodeType Url_Document = "Document"
instance Read NodeType where
read "NodeUser" = Just NodeUser
read "NodeFolder" = Just Folder
...
...
@@ -298,7 +329,7 @@ translateEN = case _ of
Url_Document -> "URL document"
--
NodeFile -> "File"
Calc -> "Calc"
Calc
-> "Calc"
NodeFrameNotebook -> "Notebook"
Notes -> "Notes"
NodeFrameVisio -> "Visio"
...
...
@@ -789,11 +820,6 @@ progressPercent (AsyncProgress { log }) = perc
---------------------------------------------------------------------------
-- | GarganText Internal Sugar
prettyNodeType :: NodeType -> String
prettyNodeType nt = S.replace (S.Pattern "Node") (S.Replacement " ")
$ S.replace (S.Pattern "Folder") (S.Replacement " ")
$ show nt
---------------------------------------------------------------------------
data SidePanelState = InitialClosed | Opened | Closed
...
...
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