Commit 96e2fd42 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski

Merge branch 'dev' into 397-dev-lost-password

parents 4b57ade3 40e71c55
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
{ {
"name": "Gargantext", "name": "Gargantext",
"version": "0.0.5.8.9", "version": "0.0.5.8.9.1",
"scripts": { "scripts": {
"generate-purs-packages-nix": "./nix/generate-purs-packages.nix", "generate-purs-packages-nix": "./nix/generate-purs-packages.nix",
"generate-psc-packages-nix": "./nix/generate-packages-json.bash", "generate-psc-packages-nix": "./nix/generate-packages-json.bash",
......
module Gargantext.Components.Annotation.Types
( MenuType(..)
, termClass
)
where
import Gargantext.Prelude
import Data.Eq.Generic (genericEq)
import Data.Generic.Rep (class Generic)
import Gargantext.Types (TermList(..))
data MenuType = NewNgram | SetTermListItem
derive instance Generic MenuType _
instance Eq MenuType where
eq = genericEq
termClass :: TermList -> String
termClass CandidateTerm = "candidate-term"
termClass MapTerm = "graph-term"
termClass StopTerm = "stop-term"
module Gargantext.Components.Annotation.Utils where
import Gargantext.Types ( TermList(..) )
termClass :: TermList -> String
termClass CandidateTerm = "candidate-term"
termClass MapTerm = "graph-term"
termClass StopTerm = "stop-term"
termBootstrapClass :: TermList -> String
-- termBootstrapClass CandidateTerm = "warning"
termBootstrapClass MapTerm = "success"
termBootstrapClass StopTerm = "danger"
termBootstrapClass CandidateTerm = "primary"
...@@ -170,9 +170,9 @@ component = R.hooksComponent cname cpt where ...@@ -170,9 +170,9 @@ component = R.hooksComponent cname cpt where
R.fragment R.fragment
[ [
R2.if' canCloakBeDisplayed props.cloakSlot R2.when canCloakBeDisplayed props.cloakSlot
, ,
R2.if' canContentBeDisplayed props.defaultSlot R2.when canContentBeDisplayed props.defaultSlot
] ]
......
This diff is collapsed.
...@@ -36,14 +36,15 @@ component :: R.Component Props ...@@ -36,14 +36,15 @@ component :: R.Component Props
component = R.hooksComponent componentName cpt where component = R.hooksComponent componentName cpt where
cpt props _ = do cpt props _ = do
-- Computed -- Computed
className <- pure $ intercalate " " let
-- provided custom className className = intercalate " "
[ props.className -- provided custom className
-- BEM classNames [ props.className
, componentName -- BEM classNames
-- Bootstrap specific classNames , componentName
, bootstrapName <> "-" <> show props.theme -- Bootstrap specific classNames
] , bootstrapName <> "-" <> show props.theme
]
-- Render -- Render
pure $ pure $
......
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
@import './modules/_form' @import './modules/_form'
@import './modules/_layout' @import './modules/_layout'
@import './modules/_annotation'
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
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