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

[REFACT][Tree] NodeType Documentation (cosmetics/renames)

parent 8568235a
...@@ -502,8 +502,7 @@ panelAction p = R.createElement panelActionCpt p [] ...@@ -502,8 +502,7 @@ panelAction p = R.createElement panelActionCpt p []
panelActionCpt :: R.Component PanelActionProps panelActionCpt :: R.Component PanelActionProps
panelActionCpt = R.hooksComponent "G.C.F.T.N.B.panelAction" cpt panelActionCpt = R.hooksComponent "G.C.F.T.N.B.panelAction" cpt
where where
cpt {action: Documentation nodeType} _ = doc nodeType cpt {action: Documentation nodeType} _ = actionDoc nodeType
cpt {action: Link _} _ = pure $ fragmentPT "Soon, you will be able to link the corpus with your Annuaire (and reciprocally)."
cpt {action: Upload, dispatch, id, nodeType: GT.NodeList, session} _ = do cpt {action: Upload, dispatch, id, nodeType: GT.NodeList, session} _ = do
pure $ uploadTermListView {dispatch, id, nodeType: GT.NodeList, session} pure $ uploadTermListView {dispatch, id, nodeType: GT.NodeList, session}
...@@ -555,6 +554,7 @@ panelActionCpt = R.hooksComponent "G.C.F.T.N.B.panelAction" cpt ...@@ -555,6 +554,7 @@ panelActionCpt = R.hooksComponent "G.C.F.T.N.B.panelAction" cpt
cpt {action: CopyFromCorpus, dispatch, id, nodeType, session} _ = do cpt {action: CopyFromCorpus, dispatch, id, nodeType, session} _ = do
pure $ copyFromCorpusView {dispatch, id, nodeType, session} pure $ copyFromCorpusView {dispatch, id, nodeType, session}
cpt {action: Link _} _ = pure $ fragmentPT "Soon, you will be able to link the corpus with your Annuaire (and reciprocally)."
{- {-
cpt {action: Refresh, nodeType: GT.Graph, id, session} _ = do cpt {action: Refresh, nodeType: GT.Graph, id, session} _ = do
...@@ -595,25 +595,30 @@ reallyDelete d = H.div {className: "panel-footer"} ...@@ -595,25 +595,30 @@ reallyDelete d = H.div {className: "panel-footer"}
[H.text " Yes, delete!"] [H.text " Yes, delete!"]
] ]
-- | Show Documentation -- | Action : Upload
infoTitle :: GT.NodeType -> R.Element
infoTitle nt = H.div {style: {margin: "10px"}} [ H.h3 {} [H.text "Documentation about " ]
, H.h3 {className: GT.fldr nt true} [ H.text $ show nt ]
]
doc :: GT.NodeType -> R.Hooks R.Element
doc GT.NodeUser = pure $ R.fragment [ H.div { style: {margin: "10px"} } -- | Action: Show Documentation
actionDoc :: GT.NodeType -> R.Hooks R.Element
actionDoc GT.NodeUser = pure $ R.fragment [ H.div { style: {margin: "10px"} }
[ infoTitle GT.NodeUser [ infoTitle GT.NodeUser
, H.p {} [ H.text "This account is personal"] , H.p {} [ H.text "This account is personal"]
, H.p {} [ H.text "See the instances terms of uses."] , H.p {} [ H.text "See the instances terms of uses."]
] ]
] ]
doc GT.FolderPrivate = pure $ fragmentPT "This folder and its children are private only!" actionDoc GT.FolderPrivate = pure $ fragmentPT "This folder and its children are private only!"
doc GT.FolderPublic = pure $ fragmentPT "Soon, you will be able to build public folders to share your work with the world!" actionDoc GT.FolderPublic = pure $ fragmentPT "Soon, you will be able to build public folders to share your work with the world!"
doc GT.FolderShared = pure $ fragmentPT "Soon, you will be able to build teams folders to share your work" actionDoc GT.FolderShared = pure $ fragmentPT "Soon, you will be able to build teams folders to share your work"
doc nodeType = pure $ fragmentPT $ "More information on " <> show nodeType actionDoc nodeType = pure $ fragmentPT $ "More information on " <> show nodeType
-- | Utils
infoTitle :: GT.NodeType -> R.Element
infoTitle nt = H.div { style: {margin: "10px"}}
[ H.h3 {} [H.text "Documentation about " ]
, H.h3 {className: GT.fldr nt true} [ H.text $ show nt ]
]
fragmentPT text = H.div {style: {margin: "10px"}} [H.text text] fragmentPT text = H.div {style: {margin: "10px"}} [H.text text]
......
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