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 ...@@ -54,6 +54,19 @@ li#rename
border: none border: none
text-decoration: 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 #create-node-tooltip
position : absolute position : absolute
left : 96px left : 96px
......
...@@ -64,7 +64,7 @@ nodeMainSpan d p folderOpen session frontends = R.createElement el p [] ...@@ -64,7 +64,7 @@ nodeMainSpan d p folderOpen session frontends = R.createElement el p []
[ nodeText { isSelected: (mCorpusId mCurrentRoute) == (Just id) [ nodeText { isSelected: (mCorpusId mCurrentRoute) == (Just id)
, name: name'} ] , name: name'} ]
, if showBox then popOverIcon popupOpen else H.div {} [] , if showBox then popOverIcon popupOpen else H.div {} []
, if showBox , if showBox
then nodePopupView d { id then nodePopupView d { id
, name:name' , name:name'
, nodeType , nodeType
......
...@@ -25,7 +25,9 @@ corpusLayoutCpt = R.staticComponent "G.P.Corpus.corpusLayout" cpt ...@@ -25,7 +25,9 @@ corpusLayoutCpt = R.staticComponent "G.P.Corpus.corpusLayout" cpt
cpt {nodeId} _ = cpt {nodeId} _ =
H.div {} H.div {}
[ H.h1 {} [H.text "Corpus Description"] [ 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 = newtype CorpusInfo =
CorpusInfo CorpusInfo
......
...@@ -8,6 +8,7 @@ import Data.Set as Set ...@@ -8,6 +8,7 @@ import Data.Set as Set
import Data.Tuple (fst) import Data.Tuple (fst)
import Data.Tuple.Nested ((/\)) import Data.Tuple.Nested ((/\))
import Gargantext.Utils.Reactix as R2 import Gargantext.Utils.Reactix as R2
import Reactix.DOM.HTML as H
import FFI.Simple ((..)) import FFI.Simple ((..))
import Reactix as R import Reactix as R
import Reactix.DOM.HTML (text, button, div, input, span, ul, li, a, option, text, i) 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 ...@@ -101,8 +102,25 @@ searchFieldComponent = R.memo (R.hooksComponent "SearchField" cpt) hasChanged
else else
div {} [] 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 , submitButton node_id df term lang props.search
] ]
hasChanged p p' = (fst p.search /= fst p'.search) hasChanged p p' = (fst p.search /= fst p'.search)
...@@ -119,6 +137,11 @@ isHAL :: Maybe DataField -> Boolean ...@@ -119,6 +137,11 @@ isHAL :: Maybe DataField -> Boolean
isHAL (Just (External (Just (HAL _)))) = true isHAL (Just (External (Just (HAL _)))) = true
isHAL _ = false isHAL _ = false
isIsTex :: Maybe DataField -> Boolean
isIsTex (Just (External (Just (IsTex)))) = true
isIsTex _ = false
isIMT :: Maybe DataField -> Boolean isIMT :: Maybe DataField -> Boolean
isIMT (Just ( External ( Just ( HAL ( Just ( IMT _)))))) = true isIMT (Just ( External ( Just ( HAL ( Just ( IMT _)))))) = true
isIMT _ = false 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