summaryrefslogtreecommitdiff
path: root/accounts/gkleen@sif/xmobar/xmobar.hs
diff options
context:
space:
mode:
Diffstat (limited to 'accounts/gkleen@sif/xmobar/xmobar.hs')
-rw-r--r--accounts/gkleen@sif/xmobar/xmobar.hs54
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 @@
1import Xmobar
2
3import Data.List (intercalate)
4
5
6main :: IO ()
7main = 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 }