Search bar centered

src/Navigation.purs

@@ -8,6 +8,7 @@ import Data.Either (Either(..))
 import Data.Foldable (fold)
 import Data.Lens (Lens', Prism', lens, over, prism)
 import Data.Maybe (Maybe(Nothing, Just))
+import DocView as DV
 import Landing as L
 import Login as LN
 import Network.HTTP.Affjax (AJAX)
@@ -15,11 +16,11 @@ import PageRouter (Routes(..))
 import Prelude (class Applicative, class Bind, Unit, bind, id, map, negate, pure, unit, void, ($), (<>))
 import React (ReactElement)
 import React.DOM (a, div, img, li, span, text, ul, input, button, footer, p, hr, form)
-import React.DOM.Props (_data, _id, aria, className, href, name, placeholder, _type, role, src, style, tabIndex, target, title)
-import Thermite (PerformAction, Render, Spec, _render, defaultRender, focus, modifyState, simpleSpec, withState)
-import DocView as DV
+import React.DOM.Props (_data, _id, _type, aria, className, href, name, placeholder, role, src, style, tabIndex, target, title)
 import SearchForm as S
+import Thermite (PerformAction, Render, Spec, _render, defaultRender, focus, modifyState, simpleSpec, withState)
 import UserPage as UP
+import React.DOM.Props as RP
 
 type E e = (dom :: DOM, ajax :: AJAX, console :: CONSOLE | e)
 
@@ -198,7 +199,6 @@ layoutSidebar = simpleSpec performAction render
                           [ divLogo
                           ,  div [ className "collapse navbar-collapse"]
                                  [ divDropdownLeft
-                                 , ul [className "nav navbar-nav"][text "  XXXXXXXXXXXXXXXXXXX  "]
                                  , divSearchBar
                                  , divDropdownRight
                                  ]
@@ -296,7 +296,7 @@ liNav (LiNav { title:tit
 
 -- TODO put the search form in the center of the navBar
 divSearchBar :: ReactElement
-divSearchBar = ul [ className "nav navbar-nav"]
+divSearchBar = ul [ className "nav navbar-nav", style { "margin-left" : "146px"}]
                   [ div [className "navbar-form"]
                         [ input [ className   "search-query"
                                 , placeholder "Query, URL or FILE (works with Firefox or Chromium browsers)"
@@ -407,7 +407,3 @@ dispatchAction dispatcher _ UserPage = do
   _ <- dispatcher $ SetRoute  $ UserPage
   _ <- dispatcher $ UserPageA $ UP.NoOp
   pure unit
-
-
-
-