jtdaugherty/brick
1
1
Fork 0
mirror of https://github.com/jtdaugherty/brick.git synced 2024-11-22 05:36:00 +03:00
Code Issues Projects Releases Wiki Activity

Whitespace

Browse Source
This commit is contained in:
Jonathan Daugherty 2024-10-25 19:04:38 -07:00
parent e461db5c13
commit 32225d6c13
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
programs/ProgressBarDemo.hs
View File

@ -51,16 +51,16 @@ drawUI p = [ui]
bar $ _z p
-- custom bars
cBar1 = overrideAttr P.progressCompleteAttr cDoneAttr1 $
overrideAttr P.progressIncompleteAttr cToDoAttr1
overrideAttr P.progressIncompleteAttr cToDoAttr1
$ bar' '▰' '▱' $ _x p
cBar2 = overrideAttr P.progressCompleteAttr cDoneAttr2 $
overrideAttr P.progressIncompleteAttr cToDoAttr2
$ bar' '|' '─' $ _y p
cBar3 = overrideAttr P.progressCompleteAttr cDoneAttr $
overrideAttr P.progressIncompleteAttr cToDoAttr
overrideAttr P.progressIncompleteAttr cToDoAttr
$ bar' '⣿' '⠶' $ _z p
lbl c = if _showLabel p
then Just $ " " ++ (show $ fromEnum $ c * 100) ++ " "
lbl c = if _showLabel p
then Just $ " " ++ (show $ fromEnum $ c * 100) ++ " "
else Nothing
bar v = P.progressBar (lbl v) v
bar' cc ic v = P.customProgressBar cc ic (lbl v) v