[Corpus fields] reintroduce old name and tweak styling

src/Gargantext/Components/Nodes/Lists.purs

@@ -72,11 +72,12 @@ listsLayoutWithKeyCpt = here.component "listsLayoutWithKey" cpt where
               , path
               , loader: loadCorpusWithChild
               , render: \corpusData@{ corpusId, corpusNode: NodePoly poly } ->
-                          let { date, hyperdata } = poly
+                          let { name, date, hyperdata } = poly
                           in
                             R.fragment [
                               Table.tableHeaderWithRenameLayout {
                                 cacheState
+                              , name
                               , date
                               , hyperdata
                               , nodeId: corpusId

src/Gargantext/Components/Nodes/Texts.purs

@@ -105,11 +105,12 @@ textsLayoutWithKeyCpt = here.component "textsLayoutWithKey" cpt
                 , loader: loadCorpusWithChild
                 , path: { nodeId, session }
                 , render: \corpusData@{ corpusId, corpusNode } -> do
-                    let NodePoly { date, hyperdata } = corpusNode
+                    let NodePoly { name, date, hyperdata } = corpusNode
 
                     R.fragment
                       [ Table.tableHeaderWithRenameLayout { 
                           cacheState
+                        , name
                         , date
                         , hyperdata
                         , nodeId: corpusId

src/Gargantext/Components/Renameable.purs

 module Gargantext.Components.Renameable where
 
-import Effect (Effect)
-import Reactix as R
-import Reactix.DOM.HTML as H
-import Toestand as T
-
 import Gargantext.Prelude
 
+import Effect (Effect)
 import Gargantext.Components.InputWithEnter (inputWithEnter)
 import Gargantext.Utils.Reactix as R2
+import Reactix as R
+import Reactix.DOM.HTML as H
+import Toestand as T
 
 
 here :: R2.Here
@@ -18,6 +17,7 @@ type RenameableProps =
   (
     onRename :: String -> Effect Unit
   , text     :: String
+  , icon     :: String
   )
 
 renameable :: R2.Component RenameableProps
@@ -25,7 +25,7 @@ renameable = R.createElement renameableCpt
 renameableCpt :: R.Component RenameableProps
 renameableCpt = here.component "renameableCpt" cpt
   where
-    cpt { onRename, text } _ = do
+    cpt { onRename, text, icon } _ = do
       isEditing <- T.useBox false
       state <- T.useBox text
       textRef <- R.useRef text
@@ -39,7 +39,7 @@ renameableCpt = here.component "renameableCpt" cpt
           T.write_ text state
 
       pure $ H.div { className: "renameable" } [
-        renameableText { isEditing, onRename, state } []
+        renameableText { isEditing, onRename, state, icon } []
       ]
 
 type RenameableTextProps =
@@ -47,6 +47,7 @@ type RenameableTextProps =
     isEditing :: T.Box Boolean
   , onRename  :: String -> Effect Unit
   , state     :: T.Box String
+  , icon      :: String
   )
 
 renameableText :: R2.Component RenameableTextProps
@@ -68,15 +69,13 @@ notEditing = R.createElement notEditingCpt
 notEditingCpt :: R.Component RenameableTextProps
 notEditingCpt = here.component "notEditing" cpt
   where
-    cpt { isEditing, state } _ = do
+    cpt { isEditing, state, icon} _ = do
       state' <- T.useLive T.unequal state
 
       pure $ H.div { className: "input-group" }
-        [ H.input { className: "form-control"
-                  , defaultValue: state'
-                  , disabled: 1
-                  , type: "text" }
-        , H.div { className: "btn input-group-append"
+        [ H.span {className: icon} []
+        , H.text state'
+        , H.button { className: "btn input-group-append"
                 , on: { click: \_ -> T.write_ true isEditing } }
           [ H.span { className: "fa fa-pencil" } []
           ]
@@ -88,11 +87,12 @@ editing = R.createElement editingCpt
 editingCpt :: R.Component RenameableTextProps
 editingCpt = here.component "editing" cpt
   where
-    cpt { isEditing, onRename, state } _ = do
+    cpt { isEditing, onRename, state, icon } _ = do
       state' <- T.useLive T.unequal state
 
       pure $ H.div { className: "input-group" }
-        [ inputWithEnter {
+        [ H.span {className: icon} []
+        , inputWithEnter {
             autoFocus: false
           , className: "form-control text"
           , defaultValue: state'
@@ -102,7 +102,7 @@ editingCpt = here.component "editing" cpt
           , placeholder: ""
           , type: "text"
           }
-        , H.div { className: "btn input-group-append"
+        , H.button { className: "btn input-group-append"
                 , on: { click: submit state' } }
           [ H.span { className: "fa fa-floppy-o" } []
           ]

src/Gargantext/Components/Table.purs

@@ -64,6 +64,7 @@ type TableHeaderWithRenameLayoutProps = (
   , session     :: Session
   , hyperdata   :: Hyperdata
   , nodeId      :: NodeID
+  , name        :: String
   , date        :: String
   , key         :: String
 )
@@ -73,6 +74,7 @@ type TableHeaderWithRenameBoxedLayoutProps = (
   , session     :: Session
   , hyperdata   :: Hyperdata
   , nodeId      :: NodeID
+  , name        :: String
   , date        :: String
   , key         :: String
   , corpusInfoS :: T.Box CorpusInfo
@@ -88,11 +90,11 @@ tableHeaderWithRenameLayout = R.createElement tableHeaderWithRenameLayoutCpt
 tableHeaderWithRenameLayoutCpt :: R.Component TableHeaderWithRenameLayoutProps
 tableHeaderWithRenameLayoutCpt = here.component "tableHeaderWithRenameLayoutCpt" cpt
   where
-    cpt { hyperdata: Hyperdata h, nodeId, session, cacheState, date, key } _ = do
+    cpt { hyperdata: Hyperdata h, nodeId, session, cacheState, name, date, key } _ = do
       let corpusInfo = getCorpusInfo h.fields
       corpusInfoS <- T.useBox corpusInfo
 
-      pure $ tableHeaderWithRenameBoxedLayout {hyperdata: Hyperdata h, nodeId, session, cacheState, date, corpusInfoS, key} []
+      pure $ tableHeaderWithRenameBoxedLayout {hyperdata: Hyperdata h, nodeId, session, cacheState, name, date, corpusInfoS, key} []
 
 tableHeaderWithRenameBoxedLayout :: R2.Component TableHeaderWithRenameBoxedLayoutProps
 tableHeaderWithRenameBoxedLayout = R.createElement tableHeaderWithRenameBoxedLayoutCpt
@@ -100,7 +102,7 @@ tableHeaderWithRenameBoxedLayout = R.createElement tableHeaderWithRenameBoxedLay
 tableHeaderWithRenameBoxedLayoutCpt :: R.Component TableHeaderWithRenameBoxedLayoutProps
 tableHeaderWithRenameBoxedLayoutCpt = here.component "tableHeaderWithRenameBoxedLayoutCpt" cpt
   where
-    cpt { hyperdata: Hyperdata h, nodeId, session, cacheState, date, corpusInfoS} _ = do
+    cpt { hyperdata: Hyperdata h, nodeId, session, cacheState, name, date, corpusInfoS} _ = do
       cacheState' <- T.useLive T.unequal cacheState
       CorpusInfo {title, desc, query, authors} <- T.read corpusInfoS
 
@@ -108,19 +110,23 @@ tableHeaderWithRenameBoxedLayoutCpt = here.component "tableHeaderWithRenameBoxed
         [ R2.row [FV.backButton {} []]
         ,
           R2.row
-          [ H.div {className: "col-md-3"} [ H.h3 {} [renameable {text: title, onRename: onRenameTitle} []] ]
+          [ H.div {className: "col-md-3"} [ H.h3 {} [H.text name] ]
           , H.div {className: "col-md-9"}
             [ H.hr {style: {height: "2px", backgroundColor: "black"}} ]
           ]
           , R2.row
             [ H.div {className: "col-md-8 content"}
               [ H.p {}
-                [ H.span {className: "fa fa-globe"} []
-                , renameable {text: " " <> desc, onRename: onRenameDesc} []
+                [
+                  renameable {icon: "fa fa-info", text: title, onRename: onRenameTitle} []
                 ]
               , H.p {}
-                [ H.span {className: "fa fa-search-plus"} []
-                , renameable {text: " " <> query, onRename: onRenameQuery} []
+                [
+                  renameable {icon: "fa fa-globe", text: desc, onRename: onRenameDesc} []
+                ]
+              , H.p {}
+                [ 
+                  renameable {icon: "fa fa-search-plus", text: query, onRename: onRenameQuery} []
                 ]
               , H.p { className: "cache-toggle"
                     , on: { click: cacheClick cacheState } }
@@ -130,8 +136,8 @@ tableHeaderWithRenameBoxedLayoutCpt = here.component "tableHeaderWithRenameBoxed
               ]
             , H.div {className: "col-md-4 content"}
               [ H.p {}
-                [ H.span {className: "fa fa-user"} []
-                , renameable {text: " " <> authors, onRename: onRenameAuthors} []
+                [ 
+                  renameable {icon: "fa fa-user", text: authors, onRename: onRenameAuthors} []
                 ]
               , H.p {}
                 [ H.span {className: "fa fa-calendar"} []