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
bf0aede1
Commit
bf0aede1
authored
Aug 26, 2020
by
Alexandre Delanoë
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[DOC] tips on buttons
parent
28929fe4
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
11 additions
and
11 deletions
+11
-11
App.purs
src/Gargantext/Components/App.purs
+9
-10
Forest.purs
src/Gargantext/Components/Forest.purs
+2
-1
No files found.
src/Gargantext/Components/App.purs
View file @
bf0aede1
...
@@ -170,12 +170,10 @@ topBarCpt = R.hooksComponent "G.C.A.topBar" cpt
...
@@ -170,12 +170,10 @@ topBarCpt = R.hooksComponent "G.C.A.topBar" cpt
[ H.div { className: "container-fluid" }
[ H.div { className: "container-fluid" }
[ H.div { className: "navbar-inner" }
[ H.div { className: "navbar-inner" }
[ logo
[ logo
, H.div { className: "collapse navbar-collapse" } [
, H.div { className: "collapse navbar-collapse" }
H.ul { className: "nav navbar-nav" } [
[ H.ul { className: "nav navbar-nav" } [divDropdownLeft]
divDropdownLeft
, H.ul { title: "If you are Left Handed you can change the interface by clicking on me. Click again to come back to previous state.", className: "nav navbar-nav" } [handedChooser { handed }]
, handedChooser { handed }
]
]
]
]
]
]
]
]
]
...
@@ -199,7 +197,7 @@ handedChooserCpt = R.hooksComponent "G.C.A.handedChooser" cpt
...
@@ -199,7 +197,7 @@ handedChooserCpt = R.hooksComponent "G.C.A.handedChooser" cpt
]
]
]
]
handedClass (GT.LeftHanded /\ _) = "fa fa-hand-o-left"
handedClass (GT.LeftHanded
/\ _) = "fa fa-hand-o-left"
handedClass (GT.RightHanded /\ _) = "fa fa-hand-o-right"
handedClass (GT.RightHanded /\ _) = "fa fa-hand-o-right"
onClick (_ /\ setHanded) = setHanded $ \h -> case h of
onClick (_ /\ setHanded) = setHanded $ \h -> case h of
...
@@ -209,11 +207,12 @@ handedChooserCpt = R.hooksComponent "G.C.A.handedChooser" cpt
...
@@ -209,11 +207,12 @@ handedChooserCpt = R.hooksComponent "G.C.A.handedChooser" cpt
logo :: R.Element
logo :: R.Element
logo =
logo =
H.a { className, href: "#/" }
H.a { className, href: "#/" }
[ H.img { src, title, width: "30", height: "28" } ]
[ H.img { src, title, width: "30", height: "28" }
]
where
where
className = "navbar-brand logoSmall"
className = "navbar-brand logoSmall"
src = "images/logoSmall.png"
src
= "images/logoSmall.png"
title = "Back to home."
title
= "Back to home."
divDropdownLeft :: R.Element
divDropdownLeft :: R.Element
divDropdownLeft =
divDropdownLeft =
...
...
src/Gargantext/Components/Forest.purs
View file @
bf0aede1
...
@@ -68,7 +68,8 @@ plus handed showLogin = H.div {className: if handed == RightHanded
...
@@ -68,7 +68,8 @@ plus handed showLogin = H.div {className: if handed == RightHanded
then "flex-start" -- TODO we should use lefthanded SASS class here
then "flex-start" -- TODO we should use lefthanded SASS class here
else "flex-end"
else "flex-end"
} [
} [
H.button { on: {click}
H.button { title: "Add or remove connections to the server(s)."
, on: {click}
, className: "btn btn-default"
, className: "btn btn-default"
}
}
[ H.div { "type": ""
[ H.div { "type": ""
...
...
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