Commit 84bea376 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[ERGO] Tree handed flex start|end fixed

parent 020203b9
...@@ -13,6 +13,12 @@ ...@@ -13,6 +13,12 @@
.tree .node-actions .update-button.disabled { .tree .node-actions .update-button.disabled {
cursor: wait; cursor: wait;
} }
.tree .lefthanded li .leaf {
justify-content: flex-end;
}
.tree .righthanded li .leaf {
justify-content: flex-start;
}
.progress-pie { .progress-pie {
background: rgba(51, 122, 183, 0.1); background: rgba(51, 122, 183, 0.1);
......
...@@ -9,6 +9,16 @@ ...@@ -9,6 +9,16 @@
cursor: pointer cursor: pointer
&.disabled &.disabled
cursor: wait cursor: wait
.lefthanded
li
.leaf
justify-content : flex-end
.righthanded
li
.leaf
justify-content : flex-start
// based on https://codeburst.io/how-to-pure-css-pie-charts-w-css-variables-38287aea161e // based on https://codeburst.io/how-to-pure-css-pie-charts-w-css-variables-38287aea161e
.progress-pie .progress-pie
......
...@@ -133,20 +133,22 @@ loadedTreeView p = R.createElement loadedTreeViewCpt p [] ...@@ -133,20 +133,22 @@ loadedTreeView p = R.createElement loadedTreeViewCpt p []
, session , session
, tasks , tasks
, tree , tree
} _ = pure $ H.ul { className: "tree " <> if handed == GT.RightHanded } _ = pure $ H.ul { className: "tree"}
then "flex-start" [ H.div { className: if handed == GT.RightHanded
else "flex-end" then "righthanded"
} else "lefthanded"
[ toHtml { asyncTasks }
, frontends [ toHtml { asyncTasks
, handed , frontends
, mCurrentRoute , handed
, openNodes , mCurrentRoute
, reload , openNodes
, session , reload
, tasks , session
, tree , tasks
} , tree
}
]
] ]
------------------------------------------------------------------------ ------------------------------------------------------------------------
......
...@@ -68,42 +68,43 @@ nodeMainSpan p@{ dispatch, folderOpen, frontends, handed, session } = R.createEl ...@@ -68,42 +68,43 @@ nodeMainSpan p@{ dispatch, folderOpen, frontends, handed, session } = R.createEl
pure $ H.span (dropProps droppedFile isDragOver) pure $ H.span (dropProps droppedFile isDragOver)
$ ordering $ ordering
[ chevronIcon nodeType folderOpen [ chevronIcon nodeType folderOpen
, folderIcon nodeType folderOpen , folderIcon nodeType folderOpen
, if showBox then , if showBox then
Popover.popover { arrow: false Popover.popover { arrow: false
, open: false , open: false
, onClose: \_ -> pure unit , onClose: \_ -> pure unit
, onOpen: \_ -> pure unit , onOpen: \_ -> pure unit
, ref: popoverRef } [ , ref: popoverRef } [
popOverIcon popOverIcon
, mNodePopupView props (onPopoverClose popoverRef) , mNodePopupView props (onPopoverClose popoverRef)
] ]
else H.div {} [] else H.div {} []
, H.a { href: url frontends $ GT.NodePath (sessionId session) nodeType (Just id) } , H.a { href: url frontends $ GT.NodePath (sessionId session) nodeType (Just id) }
[ nodeText { isSelected: mCurrentRoute == Routes.nodeTypeAppRoute nodeType (sessionId session) id [ nodeText { isSelected: mCurrentRoute == Routes.nodeTypeAppRoute nodeType (sessionId session) id
, name: name' props , name: name' props
} ] } ]
, nodeActions { id , nodeActions { id
, nodeType , nodeType
, refreshTree: const $ dispatch RefreshTree , refreshTree: const $ dispatch RefreshTree
, session } , session
, fileTypeView { dispatch, droppedFile, id, isDragOver, nodeType } }
, H.div {} (map (\t -> asyncProgressBar { asyncTask: t , fileTypeView { dispatch, droppedFile, id, isDragOver, nodeType }
, barType: Pie , H.div {} (map (\t -> asyncProgressBar { asyncTask: t
, corpusId: id , barType: Pie
, onFinish: const $ onTaskFinish t , corpusId: id
, session , onFinish: const $ onTaskFinish t
} , session
) tasks }
) ) tasks
, if nodeType == GT.NodeUser )
then GV.versionView {session} , if nodeType == GT.NodeUser
else H.div {} [] then GV.versionView {session}
] else H.div {} []
where ]
SettingsBox {show: showBox} = settingsBox nodeType where
onPopoverClose popoverRef _ = Popover.setOpen popoverRef false SettingsBox {show: showBox} = settingsBox nodeType
onPopoverClose popoverRef _ = Popover.setOpen popoverRef false
name' {name, nodeType} = if nodeType == GT.NodeUser name' {name, nodeType} = if nodeType == GT.NodeUser
then show session then show 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