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
142
Issues
142
List
Board
Labels
Milestones
Merge Requests
4
Merge Requests
4
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
gargantext
purescript-gargantext
Commits
25507fe9
Commit
25507fe9
authored
Jan 20, 2021
by
Przemyslaw Kaminski
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[bootstrap v4] fix node tools search iframe styling
parent
111e9651
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
20 additions
and
35 deletions
+20
-35
SearchBar.purs
.../Components/Forest/Tree/Node/Action/Search/SearchBar.purs
+1
-1
SearchField.purs
...omponents/Forest/Tree/Node/Action/Search/SearchField.purs
+13
-28
Tools.purs
src/Gargantext/Components/Forest/Tree/Node/Tools.purs
+6
-6
No files found.
src/Gargantext/Components/Forest/Tree/Node/Action/Search/SearchBar.purs
View file @
25507fe9
...
...
@@ -14,8 +14,8 @@ import Gargantext.Components.Lang (Lang)
import Gargantext.Prelude (Unit, pure, ($))
import Gargantext.Sessions (Session)
import Gargantext.Types as GT
import Gargantext.Utils.Reactix as R2
thisModule :: String
thisModule = "Gargantext.Components.Forest.Tree.Node.Action.Search.SearchBar"
type Props = ( langs :: Array Lang
...
...
src/Gargantext/Components/Forest/Tree/Node/Action/Search/SearchField.purs
View file @
25507fe9
...
...
@@ -5,7 +5,6 @@ import Data.Maybe (Maybe(..), maybe, fromMaybe)
import Data.Nullable (null)
import Data.Newtype (over)
import Data.Set as Set
import Data.String (length)
import Data.Tuple.Nested ((/\))
import Effect (Effect)
import Effect.Aff (launchAff_)
...
...
@@ -24,6 +23,7 @@ import Gargantext.Components.Forest.Tree.Node.Action.Search.Frame (searchIframes
import Gargantext.Types as GT
import Gargantext.Utils.Reactix as R2
thisModule :: String
thisModule = "Gargantext.Components.Forest.Tree.Node.Action.Search.SearchField"
defaultSearch :: Search
...
...
@@ -78,18 +78,24 @@ searchField p = R.createElement searchFieldComponent p []
, if isCNRS s.datafield
then componentCNRS search
else H.div {} []
, H.div {} [ searchIframes { iframeRef, search } ]
, if needsLang s.datafield
then langNav search props.langs
else H.div {} []
, H.div {} [ searchIframes { iframeRef, search } ]
]
]
let button = submitButton {onSearch, search, session: props.session}
pure $ panel params button
pure $ H.div { className: "search-field" }
[ H.div { className: "row" }
[ H.div { className: "col-12" } params ]
, H.div { className: "row" }
[ H.div { className: "col-12" } [ button ] ]
]
--pure $ panel params button
componentIMT (search /\ setSearch) =
...
...
@@ -252,27 +258,6 @@ dataFieldNav ({datafield} /\ setSearch) datafields =
isActive = show (Just df') == show datafield
------------------------------------------------------------------------
{-
databaseNav :: R.State Search
-> Array Database
-> R.Element
databaseNav ({datafield} /\ setSearch) dbs =
R.fragment [ H.div {className: "text-primary center"} [H.text "with DataField"]
, H.div { className: "nav nav-tabs"} (liItem <$> dbs)
, H.div {className:"center"} [ H.text $ maybe "" doc db ]
]
where
db = case datafield of
(Just (External (Just x))) -> Just x
_ -> Nothing
liItem :: Database -> R.Element
liItem df' =
H.div { className : "nav-item nav-link" <> if (Just $ External $ Just df') == datafield then " active" else ""
, on: { click: \_ -> setSearch $ _ { datafield = Just $ External $ Just df' } }
} [ H.text (show df') ]
-}
type DatabaseInputProps = (
databases :: Array Database
...
...
@@ -352,10 +337,10 @@ type SearchInputProps =
)
searchInput :: Record SearchInputProps -> R.Element
searchInput p = R.createElement searchInputC
omponen
t p []
searchInput p = R.createElement searchInputC
p
t p []
where
searchInputC
omponen
t :: R.Component SearchInputProps
searchInputC
omponen
t = R.hooksComponentWithModule thisModule "searchInput" cpt
searchInputC
p
t :: R.Component SearchInputProps
searchInputC
p
t = R.hooksComponentWithModule thisModule "searchInput" cpt
cpt {search: (search@{ term } /\ setSearch)} _ = do
valueRef <- R.useRef term
...
...
src/Gargantext/Components/Forest/Tree/Node/Tools.purs
View file @
25507fe9
...
...
@@ -35,20 +35,20 @@ type Footer = R.Element
panel :: Body -> Footer -> R.Element
panel bodies submit =
R.fragment [ panelBody
bodies, footer submit
]
R.fragment [ panelBody
, footer
]
where
panelBody
bs
=
panelBody =
H.div { className: "card-body" }
[ H.div { className: "row" }
[ H.div { className: "col-12" } bs
[ H.div { className: "col-12" } b
odie
s
-- TODO add type for text or form here
-- [ H.form {className: "form-horizontal"} bs ]
-- [ H.form {className: "form-horizontal"} b
odie
s ]
]
]
footer
sb =
footer
=
H.div {className: "card-footer"}
[ H.div { className: "row" }
[ H.div { className: "mx-auto"} [ s
b
]
[ H.div { className: "mx-auto"} [ s
ubmit
]
]
]
...
...
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