Commit 51b85971 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[FOREST][SEARCH][WIP] iframe for database in a box.

parent 7aa76f18
......@@ -54,6 +54,19 @@ li#rename
border: none
text-decoration: none
#search-popup-tooltip
position : absolute
left : 300px
top: -300px
background-color: white
z-index: 1000
&:hover
border: none
text-decoration: none
#create-node-tooltip
position : absolute
left : 96px
......
......@@ -64,7 +64,7 @@ nodeMainSpan d p folderOpen session frontends = R.createElement el p []
[ nodeText { isSelected: (mCorpusId mCurrentRoute) == (Just id)
, name: name'} ]
, if showBox then popOverIcon popupOpen else H.div {} []
, if showBox
, if showBox
then nodePopupView d { id
, name:name'
, nodeType
......
......@@ -25,7 +25,9 @@ corpusLayoutCpt = R.staticComponent "G.P.Corpus.corpusLayout" cpt
cpt {nodeId} _ =
H.div {}
[ H.h1 {} [H.text "Corpus Description"]
, H.p {} [H.text "Soon: corpus synthesis here (when all others charts/features will be stabilized)."] ]
, H.p {} [H.text "Soon: corpus synthesis here (when all others charts/features will be stabilized)."]
, H.iframe { src: "http://cillex.gargantext.org", width: "100%", height: "100%"} []
]
newtype CorpusInfo =
CorpusInfo
......
......@@ -8,6 +8,7 @@ import Data.Set as Set
import Data.Tuple (fst)
import Data.Tuple.Nested ((/\))
import Gargantext.Utils.Reactix as R2
import Reactix.DOM.HTML as H
import FFI.Simple ((..))
import Reactix as R
import Reactix.DOM.HTML (text, button, div, input, span, ul, li, a, option, text, i)
......@@ -101,8 +102,25 @@ searchFieldComponent = R.memo (R.hooksComponent "SearchField" cpt) hasChanged
else
div {} []
]
]
, if isIsTex curDf
then H.div { className: ""
, id: "search-popup-tooltip"
, title: "Node settings"
, data: { toggle: "tooltip"
, placement: "right"
}
}
[ H.div {id: "arrow"} []
, H.div { className: "panel panel-default"
, style: { border : "1px solid rgba(0,0,0,0.2)"
, boxShadow : "0 2px 5px rgba(0,0,0,0.2)"
}
} []
]
else H.div {} []
]
]
, submitButton node_id df term lang props.search
]
hasChanged p p' = (fst p.search /= fst p'.search)
......@@ -119,6 +137,11 @@ isHAL :: Maybe DataField -> Boolean
isHAL (Just (External (Just (HAL _)))) = true
isHAL _ = false
isIsTex :: Maybe DataField -> Boolean
isIsTex (Just (External (Just (IsTex)))) = true
isIsTex _ = false
isIMT :: Maybe DataField -> Boolean
isIMT (Just ( External ( Just ( HAL ( Just ( IMT _)))))) = true
isIMT _ = false
......
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