1 files changed, 52 insertions, 0 deletions

diff --git a/accounts/gkleen@sif/xmobar/xmobar.hs b/accounts/gkleen@sif/xmobar/xmobar.hs
new file mode 100644
index 00000000..74ce7347
--- /dev/null
+++ b/accounts/gkleen@sif/xmobar/xmobar.hs
@@ -0,0 +1,52 @@
+import Xmobar
+
+import Data.List (intercalate)
+  
+
+main :: IO ()
+main = xmobar config
+  where
+    config = defaultConfig
+      { font             = "xft:FiraCode Nerd Font Mono:style=Regular:pixelsize=21"
+      , position         = OnScreen 0 $ TopP 0 307
+      , bgColor          = "black"
+      , fgColor          = "#808080"
+      , overrideRedirect = False
+      , template =
+          let left = intercalate " | "
+                [ "%XMonadWorkspaces%"
+                , "%XMonadLayout%"
+                , "%XMonadTitle%"
+                ]
+              right = intercalate " | "
+                [ {- "%status%"
+                , -} "%battery%"
+                , "%kbd%"
+                , "%worktime%"
+                , "%worktime-today%"
+                , "%time%"
+                , "%date%"
+                ]
+           in left <> "}{" <> right
+      , commands =
+          [ Run $ NamedXPropertyLog "_XMONAD_WORKSPACES" "XMonadWorkspaces"
+          , Run $ NamedXPropertyLog "_XMONAD_LAYOUT" "XMonadLayout"
+          , Run $ NamedXPropertyLog "_XMONAD_TITLE" "XMonadTitle"
+          , Run $ Date "%H:%M" "time" 50
+          , Run $ Date "%a %b %_d" "date" 50
+          , Run $ Com "worktime" [] "worktime" 1500
+          , Run $ Com "worktime" ["today"] "worktime-today" 1500
+          , Run $ Com "ssh" ["status.odin"] "status" 600
+          , Run $ Kbd [("us(dvp)", "dvp")]
+          , Run $ Battery
+            [ "--template", "<watts> <left> (<timeleft>) AC <acstatus>"
+            , "--suffix", "On"
+            , "--Low", "10"
+            , "--High", "80"
+            , "--low", "darkred"
+            , "--normal", "darkorange"
+            , "--high", "darkgreen"
+            , "-p", "3"
+            ] 50
+          ]
+      }