Commit 39fab014 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[CSS FIX] secondary -> primary

parent fbe7be8e
......@@ -10,4 +10,4 @@ termClass CandidateTerm = "candidate-term"
termBootstrapClass :: TermList -> String
termBootstrapClass MapTerm = "success"
termBootstrapClass StopTerm = "danger"
termBootstrapClass CandidateTerm = "secondary"
termBootstrapClass CandidateTerm = "primary"
......@@ -300,7 +300,7 @@ viewTypeSelectorCpt = R.hooksComponentWithModule thisModule "viewTypeSelector" c
]
viewTypeButton viewType (state /\ setState) =
H.button { className: "btn btn-secondary" <> active
H.button { className: "btn btn-primary" <> active
, on: { click: onClick }
, type: "button"
} [
......
......@@ -181,7 +181,7 @@ searchBar (query /\ setQuery) = R.createElement el {} []
searchButton (queryText /\ _) =
H.button { type: "submit"
, className: "btn btn-secondary"
, className: "btn btn-primary"
, on: {click: \e -> setQuery $ const queryText}}
[ H.span {className: "fa fa-search"} [] ]
......
......@@ -90,7 +90,7 @@ forestCpt = R.hooksComponentWithModule thisModule "forest" cpt
plus :: Handed -> R.Setter Boolean -> R.State (Maybe Backend) -> R.Element
plus handed showLogin backend = H.div { className: "row" } [
H.button { className: "btn btn-secondary col-5 " <> if handed == RightHanded then "ml-1 mr-auto" else "ml-auto mr-1"
H.button { className: "btn btn-primary col-5 " <> if handed == RightHanded then "ml-1 mr-auto" else "ml-auto mr-1"
, on: {click}
, title: "Add or remove connections to the server(s)."
}
......
......@@ -220,7 +220,7 @@ tableContainerCpt { dispatch
, H.button { className: "btn btn-primary"
, on: {click: (const $ dispatch AddTermChildren)}
} [H.text "Save"]
, H.button { className: "btn btn-secondary"
, H.button { className: "btn btn-primary"
, on: {click: (const $ dispatch $ SetParentResetChildren Nothing)}
} [H.text "Cancel"]
]
......
......@@ -95,7 +95,7 @@ corpusLayoutViewCpt = R.hooksComponentWithModule thisModule "corpusLayoutView" c
pure $ H.div {}
[ H.div { className: "row" }
[ H.div { className: "btn btn-secondary " <> (saveEnabled fieldsWithIndex fieldsS)
[ H.div { className: "btn btn-primary " <> (saveEnabled fieldsWithIndex fieldsS)
, on: { click: onClickSave {fields: fieldsS, nodeId, reload, session} }
}
[ H.span { className: "fa fa-floppy-o" } [ ]
......@@ -106,7 +106,7 @@ corpusLayoutViewCpt = R.hooksComponentWithModule thisModule "corpusLayoutView" c
, nodeId
, session } [] ]
, H.div { className: "row" }
[ H.div { className: "btn btn-secondary"
[ H.div { className: "btn btn-primary"
, on: { click: onClickAdd fieldsS }
}
[ H.span { className: "fa fa-plus" } [ ]
......@@ -238,13 +238,13 @@ fieldCodeEditorWrapperCpt = R.hooksComponentWithModule thisModule "fieldCodeEdit
moveButtons = [] <> (if canMoveDown then [moveDownButton] else [])
<> (if canMoveUp then [moveUpButton] else [])
moveDownButton =
H.div { className: "btn btn-secondary"
H.div { className: "btn btn-primary"
, on: { click: \_ -> onMoveDown unit }
} [
H.span { className: "fa fa-arrow-down" } [ ]
]
moveUpButton =
H.div { className: "btn btn-secondary"
H.div { className: "btn btn-primary"
, on: { click: \_ -> onMoveUp unit }
} [
H.span { className: "fa fa-arrow-up" } [ ]
......
......@@ -108,7 +108,7 @@ dashboardLayoutLoadedCpt = R.hooksComponentWithModule thisModule "dashboardLayou
where
addNew = H.div { className: "row" } [
H.span { className: "btn btn-secondary"
H.span { className: "btn btn-primary"
, on: { click: onClickAddChart }} [ H.span { className: "fa fa-plus" } [] ]
]
where
......@@ -151,7 +151,7 @@ dashboardCodeEditorCpt = R.hooksComponentWithModule thisModule "dashboardCodeEdi
pure $ R.fragment
[ H.div { className: "row" }
[ H.div { className: "btn btn-secondary " <> (saveEnabled fieldsWithIndex fieldsS)
[ H.div { className: "btn btn-primary " <> (saveEnabled fieldsWithIndex fieldsS)
, on: { click: onClickSave fieldsS }
}
[ H.span { className: "fa fa-floppy-o" } [ ]
......@@ -165,7 +165,7 @@ dashboardCodeEditorCpt = R.hooksComponentWithModule thisModule "dashboardCodeEdi
]
]
, H.div { className: "row" }
[ H.div { className: "btn btn-secondary"
[ H.div { className: "btn btn-primary"
, on: { click: onClickAddField fieldsS }
}
[ H.span { className: "fa fa-plus" } [ ]
......
......@@ -103,7 +103,7 @@ fileLayoutLoadedCpt = R.hooksComponentWithModule thisModule "fileLayoutLoaded" c
H.h2 {} [ H.text hyperdata.name ]
]
, H.div { className: "row" } [
H.div { className: "btn btn-secondary" } [
H.div { className: "btn btn-primary" } [
H.a { href: toUrl session ("node/" <> show nodeId <> "/file/download")
, target: "_blank"
} [ H.text "Download" ]
......
......@@ -158,11 +158,11 @@ tableau (PublicData {title, abstract, img, url, date, database, author}) =
[ H.div { className: "btn-group" }
[
{- TODO
H.button { className : "btn btn-secondary flex-between"
H.button { className : "btn btn-primary flex-between"
, href : url
, role : "button"
} [ H.text "View the map" ]
, H.button { className : "btn btn-secondary flex-start"
, H.button { className : "btn btn-primary flex-start"
, href : url
, role : "button"
} [ H.text "More like this" ]
......
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