Commit 94993f28 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[FIX] navbar.

parent 387911c8
...@@ -305,20 +305,20 @@ divSearchBar = simpleSpec performAction render ...@@ -305,20 +305,20 @@ divSearchBar = simpleSpec performAction render
where where
searchbar' = ul [ className "nav navbar-nav col-md-6 col-md-offset-3" searchbar' = ul [ className "nav navbar-nav col-md-6 col-md-offset-3"
, style { "marginLeft" : "15%"} , style { "marginLeft" : "15%"}
] [ div [className "navbar-form"] ] [ {-div [className "navbar-form"]
[ input [ {-className "search-query" [ input [ className "search-query"
, placeholder "Query, URL or FILE (works with Firefox or Chromium browsers)" , placeholder "Query, URL or FILE (works with Firefox or Chromium browsers)"
, _type "text" , _type "text"
, style { height: "35px" , style { height: "35px"
, width: "400px" , width: "400px"
} }
, onChange \e -> dispatch $ Search (unsafeCoerce e).target.value , onChange \e -> dispatch $ Search (unsafeCoerce e).target.value
-}
] ]
-- , button [onClick \e -> dispatch Go, className "btn btn-primary"] [text "Enter"] --, button [onClick \e -> dispatch Go, className "btn btn-primary"] [text "Enter"]
, span []--onClick \e -> dispatch Go, style {color : "#039BE5"}] , span [onClick \e -> dispatch Go, style {color : "#039BE5"}]
[ i [className "material-icons md-36"] [text "control_point"]] [ i [className "material-icons md-36"] [text "control_point"]]
] ]
-}
] ]
divDropdownRight :: (Action -> Effect Unit) -> AppState -> ReactElement divDropdownRight :: (Action -> Effect Unit) -> AppState -> ReactElement
......
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