[corpus] Always open first code block

src/Gargantext/Components/Corpus/CodeSection.purs

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