[NAVBAR] facto menu title.

src/Navigation.purs

@@ -237,18 +237,32 @@ divLogo = a [ className "navbar-brand logoSmall"
                     ] []
               ]
 
+
 divDropdownLeft :: ReactElement
-divDropdownLeft = ul [className "nav navbar-nav"]
+divDropdownLeft = divDropdownLeft' (LiNav { title : "About Gargantext"
+                                          , href  : "#"
+                                          , icon  : "glyphicon glyphicon-info-sign"
+                                          , text  : "Info"
+                                          }
+                                    )
+
+divDropdownLeft' :: LiNav -> ReactElement
+divDropdownLeft' (LiNav { title: title'
+                         , href : href'
+                         , icon : icon'
+                         , text : text'
+                         }
+                 ) =  ul [className "nav navbar-nav"]
                          [ ul [className "nav navbar-nav pull-left"]
                               [ li [className "dropdown"]
                                    [ a [ className "dropdown-toggle navbar-text"
                                        , _data {toggle: "dropdown"}
-                                   , href "#", role "button"
-                                   , title "About Gargantext"
+                                       , href href', role "button"
+                                       , title title'
                                        ][ span [ aria {hidden : true}
-                                           , className "glyphicon glyphicon-info-sign"
+                                               , className icon'
                                                ] []
-                                    , text " Info"
+                                        , text (" " <> text')
                                         ]
                                    , ul [className "dropdown-menu"] divLeftdropdownElements
                                    ]
@@ -258,7 +272,7 @@ divDropdownLeft = ul [className "nav navbar-nav"]
 
 -- | WYSIWYG example in Pure React ?
 divLeftdropdownElements :: Array ReactElement
-divLeftdropdownElements = menu
+divLeftdropdownElements = menu  -- title, icon, text
   [ -- ===========================================================
     [ LiNav { title : "Quick start, tutorials and methodology"
             , href  : "https://iscpif.fr/gargantext/your-first-map/"
@@ -285,7 +299,7 @@ divLeftdropdownElements = menu
     ]
     ,------------------------------------------------------------
     [ LiNav { title : "More about us (you)"
-            , href  : "http://iscpif.fr"
+            , href  : "https://iscpif.fr"
             , icon  : "fas fa-question-circle"
             , text  : "About"
             }
@@ -299,6 +313,14 @@ menu ns = intercalate divider $ map (map liNav) ns
     divider :: Array ReactElement
     divider = [li [className "divider"] []]
 
+-- | surgar for target : "blank"
+data LiNav_ = LiNav_ { title  :: String
+                     , href   :: String
+                     , icon   :: String
+                     , text   :: String
+                     , target :: String
+                     }
+
 
 data LiNav = LiNav { title :: String
                    , href  :: String
@@ -307,17 +329,17 @@ data LiNav = LiNav { title :: String
                    }
 
 liNav :: LiNav -> ReactElement
-liNav (LiNav { title:tit
-             , href :h
-             , icon:i
-             , text: txt
+liNav (LiNav { title : title'
+             , href  : href'
+             , icon  : icon'
+             , text  : text'
              }
       ) = li [] [ a [ tabIndex (-1)
                     , target "blank"
-                    , title tit
-                    , href h
-                    ] [ span [ className i ] []
-                      , text $ " " <> txt
+                    , title title'
+                    , href href'
+                    ] [ span [ className icon' ] []
+                      , text $ " " <> text'
                       ]
                 ]