Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
P
purescript-gargantext
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Grégoire Locqueville
purescript-gargantext
Commits
2d7e3260
Commit
2d7e3260
authored
May 27, 2019
by
Przemyslaw Kaminski
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
SearchField bootstrap styling
parent
0eb05e96
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
3 deletions
+4
-3
SearchField.purs
src/Gargantext/Components/Search/SearchField.purs
+4
-3
No files found.
src/Gargantext/Components/Search/SearchField.purs
View file @
2d7e3260
...
...
@@ -58,14 +58,15 @@ searchFieldComponent = R.memo (R.hooksComponent "SearchField" cpt) hasChanged
databaseInput :: R.State (Maybe Database) -> Array Database -> R.Element
databaseInput (db /\ setDB) dbs =
div {
} [ select { className: "database
", onChange } (item <$> dbs) ]
div {
className: "form-group" } [ select { className: "database form-control
", onChange } (item <$> dbs) ]
where
onChange = mkEffectFn1 $ \e -> setDB (readDatabase (e .. "target" .. "value"))
item db = option { value: (show db) } [ text (show db) ]
searchInput :: R.State String -> R.Element
searchInput (term /\ setTerm) =
div {} [ input { defaultValue: term
div { className: "form-group" } [ input { defaultValue: term
, className: "form-control"
, type: "text"
, style: { maxWidth: "110px" }
, onChange
...
...
@@ -75,7 +76,7 @@ searchInput (term /\ setTerm) =
submitButton :: R.State (Maybe Database) -> R.State String -> R.State (Maybe Search) -> R.Element
submitButton (database /\ _) (term /\ _) (_ /\ setSearch) =
div {
} [ button {
onClick: click } [ text "Search" ] ]
div {
className: "form-group" } [ button { className: "form-control",
onClick: click } [ text "Search" ] ]
where
click = mkEffectFn1 $ \_ -> do
case term of
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment