summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar/Plugins/Monitors
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2020-08-07 01:49:40 +0100
committerjao <jao@gnu.org>2020-08-07 01:49:40 +0100
commit80a716edf95ca61b347d8f20b080f88f4bf55bbf (patch)
tree44d52a137272c9d94ff2295cb6e3ca91760454c7 /src/Xmobar/Plugins/Monitors
parent52749121672080f93ead1cf4408fef7b2b8adde4 (diff)
downloadxmobar-80a716edf95ca61b347d8f20b080f88f4bf55bbf.tar.gz
xmobar-80a716edf95ca61b347d8f20b080f88f4bf55bbf.tar.bz2
String index as progress bar
Diffstat (limited to 'src/Xmobar/Plugins/Monitors')
-rw-r--r--src/Xmobar/Plugins/Monitors/Common/Output.hs9
1 files changed, 6 insertions, 3 deletions
diff --git a/src/Xmobar/Plugins/Monitors/Common/Output.hs b/src/Xmobar/Plugins/Monitors/Common/Output.hs
index c41ef19..4733a9f 100644
--- a/src/Xmobar/Plugins/Monitors/Common/Output.hs
+++ b/src/Xmobar/Plugins/Monitors/Common/Output.hs
@@ -221,9 +221,12 @@ showPercentBar v x = do
bb <- getConfigValue barBack
bf <- getConfigValue barFore
bw <- getConfigValue barWidth
- let len = min bw $ round (fromIntegral bw * x)
- s <- colorizeString v (take len $ cycle bf)
- return $ s ++ take (bw - len) (cycle bb)
+ let c = bw < 1
+ w = if c then length bf else bw
+ len = min w $ round (fromIntegral w * x)
+ bfs = if c then [bf !! (len - 1)] else take len $ cycle bf
+ s <- colorizeString v bfs
+ return $ s ++ if c then "" else take (bw - len) (cycle bb)
showIconPattern :: Maybe IconPattern -> Float -> Monitor String
showIconPattern Nothing _ = return ""