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 | } | ||