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

[ERGO] Chevron for lefthanded fixed

parent bd54045a
......@@ -67,14 +67,17 @@ nodeMainSpan p@{ dispatch, folderOpen, frontends, handed, session } = R.createEl
pure $ H.span (dropProps droppedFile isDragOver)
$ ordering
[ chevronIcon nodeType folderOpen
, folderIcon nodeType folderOpen
[ folderIcon nodeType folderOpen
, chevronIcon handed nodeType folderOpen
, nodeLink { frontends
, id
, isSelected: mCurrentRoute == Routes.nodeTypeAppRoute nodeType (sessionId session) id
, name: name' props
, nodeType
, session }
, id
, isSelected: mCurrentRoute
== Routes.nodeTypeAppRoute
nodeType
(sessionId session) id
, name: name' props
, nodeType
, session }
, fileTypeView { dispatch, droppedFile, id, isDragOver, nodeType }
, H.div {} (map (\t -> asyncProgressBar { asyncTask: t
......@@ -117,14 +120,16 @@ nodeMainSpan p@{ dispatch, folderOpen, frontends, handed, session } = R.createEl
then show session
else name
chevronIcon nodeType folderOpen'@(open /\ _) =
chevronIcon handed' nodeType folderOpen'@(open /\ _) =
H.a { className: "chevron-icon"
, onClick: R2.effToggler folderOpen'
}
[ H.i {
className: if open
then "fa fa-chevron-down"
else "fa fa-chevron-right"
else if handed' == GT.RightHanded
then "fa fa-chevron-right"
else "fa fa-chevron-left"
} [] ]
folderIcon nodeType folderOpen'@(open /\ _) =
......
......@@ -323,7 +323,7 @@ nodeTextCpt = R.hooksComponent "G.C.F.T.N.T.nodeText" cpt
]
]
cpt {isSelected: false, name} _ = do
pure $ H.text (name15 name <> " ")
pure $ H.text (name15 name)
name len n = if S.length n < len then
n
......
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