diff options
| author | jao <jao@gnu.org> | 2020-08-07 01:49:40 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2020-08-07 01:49:40 +0100 |
| commit | 80a716edf95ca61b347d8f20b080f88f4bf55bbf (patch) | |
| tree | 44d52a137272c9d94ff2295cb6e3ca91760454c7 /src/Xmobar/Plugins | |
| parent | 52749121672080f93ead1cf4408fef7b2b8adde4 (diff) | |
| download | xmobar-80a716edf95ca61b347d8f20b080f88f4bf55bbf.tar.gz xmobar-80a716edf95ca61b347d8f20b080f88f4bf55bbf.tar.bz2 | |
String index as progress bar
Diffstat (limited to 'src/Xmobar/Plugins')
| -rw-r--r-- | src/Xmobar/Plugins/Monitors/Common/Output.hs | 9 |
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 "" |