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