Commit 9c13975e authored by Alexandre Delanoë's avatar Alexandre Delanoë

Merge remote-tracking branch 'origin/arturo-dev-230109-code-section-block-rc0.x' into dev

parents c43db62b d6fb90af
...@@ -68,6 +68,7 @@ fieldsCodeEditorCpt = here.component "fieldsCodeEditorCpt" cpt ...@@ -68,6 +68,7 @@ fieldsCodeEditorCpt = here.component "fieldsCodeEditorCpt" cpt
, onRename: onRename idx , onRename: onRename idx
, idx , idx
, nodeId , nodeId
, initiallyOpened: idx == 0
} }
pure $ pure $
...@@ -126,6 +127,7 @@ type FieldCodeEditorProps = ...@@ -126,6 +127,7 @@ type FieldCodeEditorProps =
, onMoveUp :: Unit -> Effect Unit , onMoveUp :: Unit -> Effect Unit
, onRemove :: Unit -> Effect Unit , onRemove :: Unit -> Effect Unit
, onRename :: String -> Effect Unit , onRename :: String -> Effect Unit
, initiallyOpened :: Boolean
) )
fieldCodeEditorWrapper :: Record FieldCodeEditorProps -> R.Element fieldCodeEditorWrapper :: Record FieldCodeEditorProps -> R.Element
...@@ -141,6 +143,7 @@ fieldCodeEditorWrapperCpt = here.component "fieldCodeEditorWrapperCpt" cpt where ...@@ -141,6 +143,7 @@ fieldCodeEditorWrapperCpt = here.component "fieldCodeEditorWrapperCpt" cpt where
, onRename , onRename
, idx , idx
, nodeId , nodeId
, initiallyOpened
} _ = do } _ = do
-- | Computed -- | Computed
-- | -- |
...@@ -229,7 +232,10 @@ fieldCodeEditorWrapperCpt = here.component "fieldCodeEditorWrapperCpt" cpt where ...@@ -229,7 +232,10 @@ fieldCodeEditorWrapperCpt = here.component "fieldCodeEditorWrapperCpt" cpt where
, ,
H.div H.div
{ id: bodyId { id: bodyId
, className: "collapse card-body" , className: intercalate " "
[ "collapse card-body"
, initiallyOpened ? "show" $ ""
]
, aria: , aria:
{ labelledby: headerId { labelledby: headerId
} }
......
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