diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2021-12-05 16:56:41 +0100 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2021-12-05 16:58:32 +0100 |
| commit | e019e80eac1b03a5c177ef5d358b720bdbc774ac (patch) | |
| tree | f2d86a62a62af8f2233c80c115b4943a379996dc /accounts/gkleen@sif/xmobar/xmobar.hs | |
| parent | 73875ac457ec19f1cabb3d343e0c44c1b1171f3d (diff) | |
| download | nixos-e019e80eac1b03a5c177ef5d358b720bdbc774ac.tar nixos-e019e80eac1b03a5c177ef5d358b720bdbc774ac.tar.gz nixos-e019e80eac1b03a5c177ef5d358b720bdbc774ac.tar.bz2 nixos-e019e80eac1b03a5c177ef5d358b720bdbc774ac.tar.xz nixos-e019e80eac1b03a5c177ef5d358b720bdbc774ac.zip | |
gkleen@sif: taffybar
Diffstat (limited to 'accounts/gkleen@sif/xmobar/xmobar.hs')
| -rw-r--r-- | accounts/gkleen@sif/xmobar/xmobar.hs | 54 |
1 files changed, 0 insertions, 54 deletions
diff --git a/accounts/gkleen@sif/xmobar/xmobar.hs b/accounts/gkleen@sif/xmobar/xmobar.hs deleted file mode 100644 index 322b4449..00000000 --- a/accounts/gkleen@sif/xmobar/xmobar.hs +++ /dev/null | |||
| @@ -1,54 +0,0 @@ | |||
| 1 | import Xmobar | ||
| 2 | |||
| 3 | import Data.List (intercalate) | ||
| 4 | |||
| 5 | |||
| 6 | main :: IO () | ||
| 7 | main = xmobar config | ||
| 8 | where | ||
| 9 | config = defaultConfig | ||
| 10 | { font = "xft:FiraCode Nerd Font Mono:style=Regular:pixelsize=21" | ||
| 11 | , position = OnScreen 0 $ TopP 0 307 | ||
| 12 | , bgColor = "black" | ||
| 13 | , fgColor = "#808080" | ||
| 14 | , overrideRedirect = False | ||
| 15 | , template = | ||
| 16 | let left = intercalate " | " | ||
| 17 | [ "%XMonadWorkspaces%" | ||
| 18 | , "%XMonadLayout%" | ||
| 19 | , "%XMonadTitle%" | ||
| 20 | ] | ||
| 21 | right = intercalate " | " | ||
| 22 | [ {- "%status%" | ||
| 23 | , -} "%battery%" | ||
| 24 | , "%kbd%" | ||
| 25 | , "%worktime%" | ||
| 26 | , "%worktime-today%" | ||
| 27 | , "%date%" | ||
| 28 | , "%weekdate%" | ||
| 29 | , "%time%" | ||
| 30 | ] | ||
| 31 | in left <> "}{" <> right | ||
| 32 | , commands = | ||
| 33 | [ Run $ NamedXPropertyLog "_XMONAD_WORKSPACES" "XMonadWorkspaces" | ||
| 34 | , Run $ NamedXPropertyLog "_XMONAD_LAYOUT" "XMonadLayout" | ||
| 35 | , Run $ NamedXPropertyLog "_XMONAD_TITLE" "XMonadTitle" | ||
| 36 | , Run $ Date "%Y-%m-%d" "date" 500 | ||
| 37 | , Run $ Date "W%V-%u" "weekdate" 500 | ||
| 38 | , Run $ Date "%H:%M:%S%Ez" "time" 2 | ||
| 39 | , Run $ Com "worktime" [] "worktime" 1500 | ||
| 40 | , Run $ Com "worktime" ["today"] "worktime-today" 1500 | ||
| 41 | , Run $ Com "ssh" ["status.odin"] "status" 600 | ||
| 42 | , Run $ Kbd [("us(dvp)", "dvp")] | ||
| 43 | , Run $ Battery | ||
| 44 | [ "--template", "<watts> <left> (<timeleft>) AC <acstatus>" | ||
| 45 | , "--suffix", "On" | ||
| 46 | , "--Low", "10" | ||
| 47 | , "--High", "80" | ||
| 48 | , "--low", "darkred" | ||
| 49 | , "--normal", "darkorange" | ||
| 50 | , "--high", "darkgreen" | ||
| 51 | , "-p", "3" | ||
| 52 | ] 50 | ||
| 53 | ] | ||
| 54 | } | ||
