Skip to content

P
purescript-gargantext
Commit b81a66c8 authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[NAV] factorized with question.

parent 87eeadc6
Hide whitespace changes
Inline Side-by-side
Showing with 58 additions and 44 deletions
src/Navigation.purs
View file @ b81a66c8
...@@ -198,10 +198,16 @@ liNav (LiNav { title:tit ...@@ -198,10 +198,16 @@ liNav (LiNav { title:tit
] ]
divLogo :: ReactElement divLogo :: ReactElement
divLogo =div [ className "navbar-inner" ] divLogo = div [ className "navbar-inner" ]
[ a [ className "navbar-brand logoSmall", href "/index.html" ] [ a [ className "navbar-brand logoSmall"
[ img [ src "images/logoSmall.png", title "Back to home." ] [] ] , href "/index.html"
] ]
[ img [ src "images/logoSmall.png"
, title "Back to home." ]
[]
]
]
--divDropdownLeft :: ReactElement --divDropdownLeft :: ReactElement
--divDropdownLeft = undefined --divDropdownLeft = undefined
...@@ -216,6 +222,11 @@ sidebarnavSpec = simpleSpec performAction render ...@@ -216,6 +222,11 @@ sidebarnavSpec = simpleSpec performAction render
div [ _id "dafixedtop", className "navbar navbar-inverse navbar-fixed-top", role "navigation"] div [ _id "dafixedtop", className "navbar navbar-inverse navbar-fixed-top", role "navigation"]
[ div [className "container"] [ div [className "container"]
[ divLogo [ divLogo
-- divDropdownLeft
---------------------------------------------------------------------------
-- here is divDropDowLeft--------------------------------------------------
-- FIXME : divDropDownLeft and divDropDownRight seems to be intricated in dropdown?
---------------------------------------------------------------------------
, div [className "navbar-collapse collapse"] , div [className "navbar-collapse collapse"]
[ ul [className "nav navbar-nav"] [ ul [className "nav navbar-nav"]
[ ul [className "nav navbar-nav pull-left"] [ ul [className "nav navbar-nav pull-left"]
...@@ -228,45 +239,52 @@ sidebarnavSpec = simpleSpec performAction render ...@@ -228,45 +239,52 @@ sidebarnavSpec = simpleSpec performAction render
[ span [ aria {hidden : true}, className "glyphicon glyphicon-info-sign" ] [] [ span [ aria {hidden : true}, className "glyphicon glyphicon-info-sign" ] []
, text " Info" , text " Info"
] ]
--------------------------------------------------------------------------- , ul [className "dropdown-menu"]
, ul [className "dropdown-menu"] (( map liNav [ LiNav { title : "Documentation and tutorials"
(( map liNav [ LiNav { title : "Documentation and tutorials" , href : "https://iscpif.fr/gargantext/your-first-map/"
, href : "https://iscpif.fr/gargantext/your-first-map/" , icon : "fas fa-book"
, icon : "fas fa-book" , text : "Documentation"
, text : "Documentation" }
} , LiNav { title : "Report bug here"
, LiNav { title : "Report bug here" , href : "https://www.iscpif.fr/gargantext/feedback-and-bug-reports/"
, href : "https://www.iscpif.fr/gargantext/feedback-and-bug-reports/" , icon : "glyphicon glyphicon-bullhorn"
, icon : "glyphicon glyphicon-bullhorn" , text : "Feedback"
, text : "Feedback" }
} , LiNav { title : "Interactive chat"
, LiNav { title : "Interactive chat" , href : "https://chat.iscpif.fr/channel/gargantext"
, href : "https://chat.iscpif.fr/channel/gargantext" , icon : "fab fa-rocketchat"
, icon : "fab fa-rocketchat" , text : "Chat"
, text : "Chat" }
} , LiNav { title : "Asynchronous discussions"
, LiNav { title : "Asynchronous discussions" , href : "https://discourse.iscpif.fr/c/gargantext"
, href : "https://discourse.iscpif.fr/c/gargantext" , icon : "fab fa-discourse"
, icon : "fab fa-discourse" , text : "Forum"
, text : "Forum" }
} ]
] )
) <> [li [className "divider"] []] <>
<> [li [className "divider"] []] <> [ liNav (LiNav { title : "About"
[ liNav (LiNav { title : "About" , href : "http://iscpif.fr"
, href : "http://iscpif.fr" , icon : "fas fa-question-circle"
, icon : "fas fa-question-circle" , text : "About"
, 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 -- TODO if logged in : enable dropdown
--li [className "dropdown"] --li [className "dropdown"]
...@@ -307,10 +325,6 @@ sidebarnavSpec = simpleSpec performAction render ...@@ -307,10 +325,6 @@ sidebarnavSpec = simpleSpec performAction render
-- ] -- ]
--] --]
] ]
]
]
]
]
layoutSpec :: forall eff props. Spec (E eff) AppState props Action layoutSpec :: forall eff props. Spec (E eff) AppState props Action
layoutSpec = layoutSpec =
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment