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
b81a66c8
Commit
b81a66c8
authored
6 years ago
by
Alexandre Delanoë
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[NAV] factorized with question.
parent
87eeadc6
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
58 additions
and
44 deletions
+58
-44
Navigation.purs
src/Navigation.purs
+58
-44
No files found.
src/Navigation.purs
View file @
b81a66c8
...
...
@@ -198,10 +198,16 @@ liNav (LiNav { title:tit
]
divLogo :: ReactElement
divLogo =div [ className "navbar-inner" ]
[ a [ className "navbar-brand logoSmall", href "/index.html" ]
[ img [ src "images/logoSmall.png", title "Back to home." ] [] ]
]
divLogo = div [ className "navbar-inner" ]
[ a [ className "navbar-brand logoSmall"
, href "/index.html"
]
[ img [ src "images/logoSmall.png"
, title "Back to home." ]
[]
]
]
--divDropdownLeft :: ReactElement
--divDropdownLeft = undefined
...
...
@@ -216,6 +222,11 @@ sidebarnavSpec = simpleSpec performAction render
div [ _id "dafixedtop", className "navbar navbar-inverse navbar-fixed-top", role "navigation"]
[ div [className "container"]
[ divLogo
-- divDropdownLeft
---------------------------------------------------------------------------
-- here is divDropDowLeft--------------------------------------------------
-- FIXME : divDropDownLeft and divDropDownRight seems to be intricated in dropdown?
---------------------------------------------------------------------------
, div [className "navbar-collapse collapse"]
[ ul [className "nav navbar-nav"]
[ ul [className "nav navbar-nav pull-left"]
...
...
@@ -228,45 +239,52 @@ sidebarnavSpec = simpleSpec performAction render
[ span [ aria {hidden : true}, className "glyphicon glyphicon-info-sign" ] []
, text " Info"
]
---------------------------------------------------------------------------
, ul [className "dropdown-menu"]
(( map liNav [ LiNav { title : "Documentation and tutorials
"
, href : "https://iscpif.fr/gargantext/your-first-map/
"
, icon : "fas fa-book
"
, text : "Documentation"
}
, LiNav { title : "Report bug here
"
, href : "https://www.iscpif.fr/gargantext/feedback-and-bug-reports/
"
, icon : "glyphicon glyphicon-bullhorn
"
, text : "Feedback"
}
, LiNav { title : "Interactive cha
t"
, href : "https://chat.iscpif.fr/channel/gargantex
t"
, icon : "fab fa-rocketc
hat"
, text : "Chat"
}
, LiNav { title : "Asynchronous discussions
"
, href : "https://discourse.iscpif.fr/c/gargantext
"
, icon : "fab fa-discourse
"
, text : "Forum"
}
]
)
<> [li [className "divider"] []] <>
[ liNav (LiNav { title : "About
"
, href : "http://iscpif.fr
"
, icon : "fas fa-question-circle
"
, text : "About"
}
)
]
)
, ul [className "dropdown-menu"]
(( map liNav [ LiNav { title : "Documentation and tutorials"
, href : "https://iscpif.fr/gargantext/your-first-map/
"
, icon : "fas fa-book
"
, text : "Documentation
"
}
, LiNav { title : "Report bug here"
, href : "https://www.iscpif.fr/gargantext/feedback-and-bug-reports/
"
, icon : "glyphicon glyphicon-bullhorn
"
, text : "Feedback
"
}
, LiNav { title : "Interactive chat"
, href : "https://chat.iscpif.fr/channel/gargantex
t"
, icon : "fab fa-rocketcha
t"
, text : "C
hat"
}
, LiNav { title : "Asynchronous discussions"
, href : "https://discourse.iscpif.fr/c/gargantext
"
, icon : "fab fa-discourse
"
, text : "Forum
"
}
]
)
<> [li [className "divider"] []] <>
[ liNav (LiNav { title : "About"
, href : "http://iscpif.fr
"
, icon : "fas fa-question-circle
"
, text : "About
"
}
)
]
)
]
]
]
----------------------------------------------------------------------------------
]
---------------------------------------------------------------------------
---------------------------------------------------------------------------
---------------------------------------------------------------------------
, divDropdownRight
]
]
]
]
, ul [className "nav navbar-nav pull-right"]
divDropdownRight :: ReactElement
divDropdownRight = ul [className "nav navbar-nav pull-right"]
[
-- TODO if logged in : enable dropdown
--li [className "dropdown"]
...
...
@@ -307,10 +325,6 @@ sidebarnavSpec = simpleSpec performAction render
-- ]
--]
]
]
]
]
]
layoutSpec :: forall eff props. Spec (E eff) AppState props Action
layoutSpec =
...
...
This diff is collapsed.
Click to expand it.
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