Commit bd3b48f2 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[READ] cosmetics

parent 5b770057
......@@ -259,9 +259,11 @@ langNav ({lang} /\ setSearch) langs =
------------------------------------------------------------------------
dataFieldNav :: R.State Search -> Array DataField -> R.Element
dataFieldNav ({datafield} /\ setSearch) datafields =
R.fragment [ H.div {className: "text-primary center"} [H.text "with DataField"]
, H.div {className: "nav nav-tabs"} (liItem <$> dataFields)
, H.div {className: "center"} [ H.text $ maybe "" doc datafield ]
R.fragment [ H.div { className: "text-primary center"} [H.text "with DataField"]
, H.div {className: "nav nav-tabs"} (liItem <$> dataFields)
, H.div {className: "center"} [ H.text
$ maybe "TODO: add Doc Instance" doc datafield
]
]
where
liItem :: DataField -> R.Element
......@@ -271,9 +273,9 @@ dataFieldNav ({datafield} /\ setSearch) datafields =
then " active"
else ""
, on: { click: \_ -> setSearch $ _ { datafield = Just df'
, databases = datafield2database df'
, databases = datafield2database df'
}
}
}
-- just one database query for now
-- a list a selected database needs more ergonomy
} [ H.text (show df') ]
......@@ -387,8 +389,8 @@ searchInputComponent = R.hooksComponent "G.C.S.SearchInput" cpt
type SubmitButtonProps =
( onSearch :: GT.AsyncTaskWithType -> Effect Unit
, search :: R.State Search
, session :: Session
, search :: R.State Search
, session :: Session
)
submitButton :: Record SubmitButtonProps -> R.Element
......
......@@ -231,18 +231,19 @@ fileTypeViewCpt = R.hooksComponent "G.C.F.T.N.A.U.fileTypeView" cpt
[ H.a {className: "btn glyphitem glyphicon glyphicon-remove-circle"
, on: {click: \_ -> do
setDroppedFile $ const Nothing
setIsDragOver $ const false
setIsDragOver $ const false
}
, title: "Close"} []
]
]
]
panelBody =
H.div {className: "panel-body"}
[ R2.select {className: "col-md-12 form-control"
, on: {change: onChange}
}
(map renderOption [CSV, CSV_HAL, WOS])
(map renderOption [CSV, CSV_HAL, WOS])
]
where
onChange e l =
......@@ -250,7 +251,8 @@ fileTypeViewCpt = R.hooksComponent "G.C.F.T.N.A.U.fileTypeView" cpt
, fileType: read $ R2.unsafeEventValue e
, lang : read $ R2.unsafeEventValue l
}
renderOption opt = H.option {} [ H.text $ show opt ]
renderOption opt = H.option {} [ H.text $ show opt ]
panelFooter =
H.div {className: "panel-footer"}
[
......
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