Search bar included in sidebar

src/Navigation.purs

@@ -24,7 +24,6 @@ import SearchForm as S
 import Thermite (PerformAction, Render, Spec, _render, defaultRender, focus, modifyState, simpleSpec, withState)
 import UserPage as UP
 import AnnotationDocumentView as D
-
 import Gargantext.Data.Lang
 
 type E e = (dom :: DOM, ajax :: AJAX, console :: CONSOLE | e)
@@ -188,7 +187,9 @@ layout0 layout =
   [ layoutSidebar
 --  TODO Add layoutTree
 --, exampleTree'
+    , divSearchBar
   , innerLayout $ layout
+
   , layoutFooter
   ]
   where
@@ -221,7 +222,7 @@ layoutSidebar = simpleSpec performAction render
                           [ divLogo
                           ,  div [ className "collapse navbar-collapse"]
                                  [ divDropdownLeft
-                                 , divSearchBar
+--                                  , divSearchBar
                                  , divDropdownRight
                                  ]
                           ]
@@ -354,9 +355,14 @@ liNav (LiNav { title : title'
 
 
 -- TODO put the search form in the center of the navBar
-divSearchBar :: ReactElement
-divSearchBar = ul [ className "nav navbar-nav"
-                  , style { "margin-left" : "146px"}
+divSearchBar :: forall props eff. Spec (dom :: DOM |eff) AppState props Action
+divSearchBar = simpleSpec performAction render
+  where
+    render :: Render AppState props Action
+    render dispatch _ state _ = [div [ className "" ] [ searchbar']]
+      where
+        searchbar' = ul [ className "nav navbar-nav"
+                        , style { "margin-left" : "79px"}
                         ] [ div [className "navbar-form"]
                             [ input [ className   "search-query"
                                     , placeholder "Query, URL or FILE (works with Firefox or Chromium browsers)"
@@ -372,6 +378,9 @@ divSearchBar = ul [ className "nav navbar-nav"
                             ]
                           ]
 
+
+
+
 --divDropdownRight :: Render AppState props Action
 divDropdownRight :: ReactElement
 divDropdownRight =