[NAV] factorized with question.

src/Navigation.purs

@@ -198,9 +198,15 @@ 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
@@ -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,7 +239,6 @@ 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/"
@@ -263,10 +273,18 @@ sidebarnavSpec = simpleSpec performAction render
                        )
                    ]
                  ]
-----------------------------------------------------------------------------------
+               ]
+---------------------------------------------------------------------------
+---------------------------------------------------------------------------
+---------------------------------------------------------------------------
+             , 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 =