Commit 59b1f7a1 authored by Abinaya Sudhir's avatar Abinaya Sudhir

Layout fixed

parent 387aceb0
...@@ -17,6 +17,7 @@ ...@@ -17,6 +17,7 @@
position: relative; position: relative;
padding-left: 5px; padding-left: 5px;
} }
.tree { margin-top : 125px;}
.tree ul li::before { .tree ul li::before {
content: " "; content: " ";
position: absolute; position: absolute;
......
...@@ -87,7 +87,7 @@ performAction GO _ _ = void do ...@@ -87,7 +87,7 @@ performAction GO _ _ = void do
layoutModal :: forall e. { response :: Array Response | e} -> Array ReactElement layoutModal :: forall e. { response :: Array Response | e} -> Array ReactElement
layoutModal state = layoutModal state =
[button [ _type "button" [button [ _type "button"
, _data { "toggle" : "modal" , _data { "toggle" : "modal"
, "target" : ".myModal" , "target" : ".myModal"
...@@ -95,7 +95,7 @@ layoutModal state = ...@@ -95,7 +95,7 @@ layoutModal state =
][text "Launch modal"] ][text "Launch modal"]
, div [ className "modal fade myModal" , div [ className "modal fade myModal"
, role "dialog" , role "dialog"
, _data {show : true} , _data {show : true}
][ div [ className "modal-dialog" ][ div [ className "modal-dialog"
, role "document" , role "document"
] [ div [ className "modal-content"] ] [ div [ className "modal-content"]
...@@ -107,14 +107,14 @@ layoutModal state = ...@@ -107,14 +107,14 @@ layoutModal state =
, button [ _type "button" , button [ _type "button"
, className "close" , className "close"
, _data { dismiss : "modal"} , _data { dismiss : "modal"}
] [ span [ aria {hidden : true}] ] [ span [ aria {hidden : true}]
[ text "X"] [ text "X"]
] ]
] ]
, div [ className "modal-body"] , div [ className "modal-body"]
[ ul [ className "list-group"] ( map fn1 state.response ) ] [ ul [ className "list-group"] ( map fn1 state.response ) ]
, div [className "modal-footer"] , div [className "modal-footer"]
[ button [ _type "button" [ button [ _type "button"
, className "btn btn-secondary" , className "btn btn-secondary"
...@@ -142,8 +142,8 @@ layoutAddcorpus = simpleSpec performAction render ...@@ -142,8 +142,8 @@ layoutAddcorpus = simpleSpec performAction render
render :: Render State props Action render :: Render State props Action
render dispatch _ state _ = render dispatch _ state _ =
[ [
div [className "container"] [] div [className "container1"] []
, div [className "container"] , div [className "container1"]
[ [
div [className "jumbotron"] div [className "jumbotron"]
[ div [className "row"] [ div [className "row"]
......
...@@ -45,7 +45,7 @@ docview = simpleSpec performAction render ...@@ -45,7 +45,7 @@ docview = simpleSpec performAction render
render :: Render State _ Action render :: Render State _ Action
render dispatch _ state _ = render dispatch _ state _ =
[ [
div [className "container"] div [className "container1"]
[ [
div [className "row"] div [className "row"]
[ [
......
...@@ -102,7 +102,7 @@ layoutDocview = simpleSpec performAction render ...@@ -102,7 +102,7 @@ layoutDocview = simpleSpec performAction render
where where
render :: Render State _ Action render :: Render State _ Action
render dispatch _ state@(TableData d) _ = render dispatch _ state@(TableData d) _ =
[ div [className "container"] [ div [className "container1"]
[ div [className "row"] [ div [className "row"]
[ div [className "col-md-3"] [ div [className "col-md-3"]
[ br' [] [ br' []
......
...@@ -40,8 +40,8 @@ data Action ...@@ -40,8 +40,8 @@ data Action
performAction :: forall eff props. PerformAction ( console :: CONSOLE performAction :: forall eff props. PerformAction ( console :: CONSOLE
, ajax :: AJAX , ajax :: AJAX
, dom :: DOM , dom :: DOM
| eff | eff
) State props Action ) State props Action
performAction NoOp _ _ = void do performAction NoOp _ _ = void do
T.modifyState \state -> state T.modifyState \state -> state
...@@ -65,7 +65,7 @@ performAction SignUp _ _ = void do ...@@ -65,7 +65,7 @@ performAction SignUp _ _ = void do
layoutLanding :: forall props eff . Lang -> Spec ( console :: CONSOLE layoutLanding :: forall props eff . Lang -> Spec ( console :: CONSOLE
, ajax :: AJAX , ajax :: AJAX
, dom :: DOM , dom :: DOM
| eff | eff
) State props Action ) State props Action
layoutLanding FR = layoutLanding' Fr.landingData layoutLanding FR = layoutLanding' Fr.landingData
...@@ -75,16 +75,16 @@ layoutLanding EN = layoutLanding' En.landingData ...@@ -75,16 +75,16 @@ layoutLanding EN = layoutLanding' En.landingData
layoutLanding' :: forall props eff . LandingData -> Spec ( console :: CONSOLE layoutLanding' :: forall props eff . LandingData -> Spec ( console :: CONSOLE
, ajax :: AJAX , ajax :: AJAX
, dom :: DOM , dom :: DOM
| eff | eff
) State props Action ) State props Action
layoutLanding' hd = simpleSpec performAction render layoutLanding' hd = simpleSpec performAction render
where where
render :: Render State props Action render :: Render State props Action
render dispatch _ state _ = render dispatch _ state _ =
[ div [ className "container" ] [ jumboTitle hd false ] [ div [ className "container1" ] [ jumboTitle hd false ]
, div [ className "container" ] [ imageEnter hd (onClick \_ -> dispatch $ Enter)] , div [ className "container1" ] [ imageEnter hd (onClick \_ -> dispatch $ Enter)]
, div [ className "container" ] [ blocksRandomText' hd ] , div [ className "container1" ] [ blocksRandomText' hd ]
] ]
------------------------------------------------------------------------ ------------------------------------------------------------------------
...@@ -93,7 +93,7 @@ blocksRandomText' (LandingData hd) = blocksRandomText hd.blockTexts ...@@ -93,7 +93,7 @@ blocksRandomText' (LandingData hd) = blocksRandomText hd.blockTexts
blocksRandomText :: BlockTexts -> ReactElement blocksRandomText :: BlockTexts -> ReactElement
blocksRandomText (BlockTexts bt) = blocksRandomText (BlockTexts bt) =
div [ className "row" ] ( map showBlock bt.blocks ) div [ className "row" ] ( map showBlock bt.blocks )
where where
showBlock :: BlockText -> ReactElement showBlock :: BlockText -> ReactElement
...@@ -114,7 +114,7 @@ docButton (Button b) = a [ className "btn btn-outline-primary btn-sm spacing-cla ...@@ -114,7 +114,7 @@ docButton (Button b) = a [ className "btn btn-outline-primary btn-sm spacing-cla
, target "blank" , target "blank"
, title b.title , title b.title
] [ span [ aria {hidden : true} ] [ span [ aria {hidden : true}
, className "glyphicon glyphicon-hand-right" , className "glyphicon glyphicon-hand-right"
] [] ] []
, text b.text , text b.text
] ]
...@@ -151,7 +151,7 @@ imageEnter (LandingData hd) action = div [className "row"] ...@@ -151,7 +151,7 @@ imageEnter (LandingData hd) action = div [className "row"]
, _id "funnyimg" , _id "funnyimg"
, title hd.imageTitle , title hd.imageTitle
, action , action
] ]
[] []
] ]
] ]
...@@ -211,7 +211,7 @@ layout0 layout = ...@@ -211,7 +211,7 @@ layout0 layout =
, rs b , rs b
] ]
ls = over _render \render d p s c -> ls = over _render \render d p s c ->
[div [className "col-md-4"] (render d p s c)] [div [className "col-md-3"] (render d p s c)]
rs = over _render \render d p s c -> rs = over _render \render d p s c ->
[ div [className "col-md-8"] (render d p s c) ] [ div [className "col-md-8"] (render d p s c) ]
cont = over _render \render d p s c -> cont = over _render \render d p s c ->
...@@ -240,7 +240,7 @@ layoutSidebar = simpleSpec performAction render ...@@ -240,7 +240,7 @@ layoutSidebar = simpleSpec performAction render
[ div [ _id "dafixedtop" [ div [ _id "dafixedtop"
, className "navbar navbar-inverse navbar-fixed-top" , className "navbar navbar-inverse navbar-fixed-top"
, role "navigation" , role "navigation"
] [ div [className "container"] ] [ div [className "container1"]
[ div [ className "navbar-inner" ] [ div [ className "navbar-inner" ]
[ divLogo [ divLogo
, div [ className "collapse navbar-collapse"] , div [ className "collapse navbar-collapse"]
...@@ -384,13 +384,13 @@ divSearchBar = simpleSpec performAction render ...@@ -384,13 +384,13 @@ divSearchBar = simpleSpec performAction render
render dispatch _ state _ = [div [ className "" ] [ searchbar']] render dispatch _ state _ = [div [ className "" ] [ searchbar']]
where where
searchbar' = ul [ className "nav navbar-nav" searchbar' = ul [ className "nav navbar-nav"
, style { "margin-left" : "79px"} , style { "margin-left" : "0px"}
] [ 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 : "450px"
-- , color: "white" -- , color: "white"
-- , background : "#A1C2D8" -- , background : "#A1C2D8"
} }
...@@ -431,7 +431,7 @@ layoutFooter :: forall props eff. Spec (dom :: DOM |eff) AppState props Action ...@@ -431,7 +431,7 @@ layoutFooter :: forall props eff. Spec (dom :: DOM |eff) AppState props Action
layoutFooter = simpleSpec performAction render layoutFooter = simpleSpec performAction render
where where
render :: Render AppState props Action render :: Render AppState props Action
render dispatch _ state _ = [div [ className "container" ] [ hr [] [], footerLegalInfo']] render dispatch _ state _ = [div [ className "container1" ] [ hr [] [], footerLegalInfo']]
where where
footerLegalInfo' = footer [] [ p [] [ text "Gargantext " footerLegalInfo' = footer [] [ p [] [ text "Gargantext "
, span [className "glyphicon glyphicon-registration-mark" ] [] , span [className "glyphicon glyphicon-registration-mark" ] []
......
...@@ -51,15 +51,15 @@ unsafeEventValue e = (unsafeCoerce e).target.value ...@@ -51,15 +51,15 @@ unsafeEventValue e = (unsafeCoerce e).target.value
searchSpec :: forall props eff . Spec ( console :: CONSOLE searchSpec :: forall props eff . Spec ( console :: CONSOLE
, ajax :: AJAX , ajax :: AJAX
, dom :: DOM , dom :: DOM
| eff | eff
) State props Action ) State props Action
searchSpec = simpleSpec performAction render searchSpec = simpleSpec performAction render
where where
render :: Render State props Action render :: Render State props Action
render dispatch _ state _ = render dispatch _ state _ =
[ div [className "container"] [] [ div [className "container1"] []
, div [className "container"] , div [className "container1"]
[ div [className "jumbotron" ] [ div [className "jumbotron" ]
[ div [className "row" ] [ div [className "row" ]
[ div [className "col-md-10" ] [ div [className "col-md-10" ]
......
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