Commit ad255ef6 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[SPEC] side-panel appears white in dark theme

parent f3298186
...@@ -43,13 +43,15 @@ listsWithForestCpt = R.hooksComponentWithModule thisModule "listsWithForest" cpt ...@@ -43,13 +43,15 @@ listsWithForestCpt = R.hooksComponentWithModule thisModule "listsWithForest" cpt
, listsProps: listsProps@{ session } } _ = do , listsProps: listsProps@{ session } } _ = do
controls <- initialControls controls <- initialControls
pure $ Forest.forestLayoutWithTopBar forestProps [ pure $ Forest.forestLayoutWithTopBar forestProps
topBar { controls } [] [ topBar { controls } []
, listsLayout (Record.merge listsProps { controls }) [] , listsLayout (Record.merge listsProps { controls }) []
, H.div { className: "side-panel" } [
sidePanel { controls, session } [] -- TODO remove className "side-panel" is preview is not triggered
] -- , H.div { className: "" }
] , H.div { className: "side-panel" }
[ sidePanel { controls, session } []]
]
-------------------------------------------------------- --------------------------------------------------------
type TopBarProps = ( type TopBarProps = (
...@@ -182,8 +184,8 @@ sidePanelCpt = R.hooksComponentWithModule thisModule "sidePanel" cpt ...@@ -182,8 +184,8 @@ sidePanelCpt = R.hooksComponentWithModule thisModule "sidePanel" cpt
R2.setTrigger triggerSidePanel triggerSidePanel' R2.setTrigger triggerSidePanel triggerSidePanel'
(mCorpusId /\ setMCorpusId) <- R.useState' Nothing (mCorpusId /\ setMCorpusId) <- R.useState' Nothing
(mListId /\ setMListId) <- R.useState' Nothing (mListId /\ setMListId ) <- R.useState' Nothing
(mNodeId /\ setMNodeId) <- R.useState' Nothing (mNodeId /\ setMNodeId ) <- R.useState' Nothing
let mainStyle = case fst showSidePanel of let mainStyle = case fst showSidePanel of
Opened -> { display: "block" } Opened -> { display: "block" }
......
...@@ -52,13 +52,15 @@ textsWithForestCpt = R.hooksComponentWithModule thisModule "textsWithForest" cpt ...@@ -52,13 +52,15 @@ textsWithForestCpt = R.hooksComponentWithModule thisModule "textsWithForest" cpt
, textsProps: textProps@{ session } } _ = do , textsProps: textProps@{ session } } _ = do
controls <- initialControls controls <- initialControls
pure $ Forest.forestLayoutWithTopBar forestProps [ pure $ Forest.forestLayoutWithTopBar forestProps
topBar { controls } [] [ topBar { controls } []
, textsLayout (Record.merge textProps { controls }) [] , textsLayout (Record.merge textProps { controls }) []
, H.div { className: "side-panel" } [ -- TODO remove className "side-panel" is preview is not triggered
sidePanel { controls, session } [] -- , H.div { className: "" }
] , H.div { className: "side-panel" }
] [ sidePanel { controls, session } []
]
]
-------------------------------------------------------- --------------------------------------------------------
...@@ -338,7 +340,6 @@ docViewLayoutRec { cacheState ...@@ -338,7 +340,6 @@ docViewLayoutRec { cacheState
-------------------------------------------------------- --------------------------------------------------------
type SidePanelProps = ( type SidePanelProps = (
controls :: Record TextsLayoutControls controls :: Record TextsLayoutControls
, session :: Session , session :: Session
......
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