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
acd86b1b
Commit
acd86b1b
authored
Jun 10, 2021
by
Alexandre Delanoë
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[DOC] Home page fixed. Tutorials will be in shared nodes.
parent
454e9221
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
5 deletions
+5
-5
Home.purs
src/Gargantext/Components/Nodes/Home.purs
+5
-5
No files found.
src/Gargantext/Components/Nodes/Home.purs
View file @
acd86b1b
...
...
@@ -102,7 +102,7 @@ joinButtonOrTutorial :: forall e. T.Box GAT.Storage -> Sessions -> (e -> Effect
joinButtonOrTutorial tasks sessions click =
if Sessions.null sessions
then joinButton click
else tutorial {tasks, sessions: Sessions.unSessions sessions}
else
H.div {} [] --
tutorial {tasks, sessions: Sessions.unSessions sessions}
joinButton :: forall e. (e -> Effect Unit) -> R.Element
joinButton click =
...
...
@@ -110,10 +110,10 @@ joinButton click =
-- form { backend, sessions, visible }
H.div { className: divClass
, style: { paddingTop: "100px", paddingBottom: "100px" } }
[ H.button { className: buttonClass, title, on: { click } } [ H.text "Jo
in" ] ] where
[ H.button { className: buttonClass, title, on: { click } } [ H.text "Log
in" ] ] where
title = "Connect to the server"
divClass = "flex-space-around d-flex justify-content-center"
buttonClass = "btn btn-primary
my-2
"
buttonClass = "btn btn-primary
btn-lg btn-block
"
incompatible :: String
incompatible =
...
...
@@ -160,8 +160,8 @@ tutorialCpt = here.component "tutorial" cpt where
[ H.div {className: "d-flex justify-content-center"} [ H.table {} folders ]
, H.h1 {} [H.text "Tutorials"]
, summary
, H.h3 {} [H.text "Resources"]
, section "How to start?" "alert-info" startTutos
--
, H.h3 {} [H.text "Resources"]
--
, section "How to start?" "alert-info" startTutos
-- , section "How to play?" "alert-warning" playTutos
-- , section "How to master?" "alert-danger" expertTutos
]
...
...
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