xmobar-emacs, for emacs' tab bar

2 files changed, 110 insertions, 10 deletions

diff --git a/src/Emacs.hs b/src/Emacs.hs
new file mode 100644
index 0000000..553b782
--- /dev/null
+++ b/src/Emacs.hs
@@ -0,0 +1,93 @@
+import Xmobar
+import Config
+import Monitors
+import Music (mpris, gpmd, mpdt)
+
+topProcL p = TopProc (p <~> args) 15
+  where template = "<both1>  <both2>  <both3> ·  <mboth1>  <mboth2>  <mboth3>"
+        args = ["-t", template, "-w", "12", "-L" , "10", "-H", "80"]
+
+diskIOS p = DiskIO [("/", "⎗<read> ⎘<write>")] (diskArgs p) 10
+
+cpuFreq' p = CpuFreq (p <~> args) 50
+  where args = ["-t" , "<avg>" , "-L", "1", "-H", "2", "-S", "Off" , "-d", "2"]
+
+memory' = Memory args 20
+  where template = "<used> <available>"
+        args = ["-t", template , "-p", "2", "-d", "1", "--", "--scale", "1024"]
+
+master p = Volume "default" "Master" (args ++ ("--":ext)) 10
+  where args = ["-t", "<status> <volume>"]
+        ext = ["-C", pForeground p, "-c", "sienna4", "-O", "🎼", "-o", "🔇"]
+
+capture = Volume "default" "Capture" ["-t", "<volume>"] 10
+
+weath st p =
+  WeatherX st
+           [ ("", "")
+           , ("clear", "🌣")
+           , ("sunny", fc (pHigh p) "🌣")
+           , ("fair", "🌣")
+           , ("mostly clear", "🌤")
+           , ("mostly sunny", "🌤")
+           , ("partly sunny", "⛅")
+           , ("obscured", "🌁") -- 🌫
+           , ("fog", "🌁") -- 🌫
+           , ("foggy", "🌁") -- 🌫
+           , ("cloudy", "☁️")
+           , ("overcast", "☁️")
+           , ("partly cloudy", "⛅")
+           , ("mostly cloudy", "☁️")
+           , ("considerable cloudiness", "⛈")
+           , ("light rain", "🌧")
+           , ("rain", "⛆")
+           , ("ice crystals", "❄")
+           , ("light snow", "🌨")
+           , ("snow", "❄")
+           ]
+           (mkArgs p ["-t", "<skyConditionS> <tempC>° <weather>"
+                     , "-L", "10", "-H", "25" , "-T", "25", "-E", ".."]
+                     ["-w", ""])
+           18000
+
+config p = (baseConfig p) {
+  position = TopSize C 100 (defaultHeight - 2)
+  , font = "xft:DejaVu Sans Mono-8"
+  , commands = [ Run (topProcL p)
+               , Run (batt p)
+               , Run (cpu p)
+               , Run (cpuFreq' p)
+               , Run memory'
+               , Run (diskU p)
+               , Run (diskIOS p)
+               , Run (kbd p)
+               , Run (coreTemp p)
+               , Run (wireless p "wlp164s0")
+               , Run (dynNetwork p)
+               , Run (vpnMark "wg-mullvad")
+               , Run tun0
+               , Run (master p)
+               , Run capture
+               , Run laTime
+               , Run localTime
+               , Run (weath "EGPH" p)
+               ]
+  , template = " |batt0|"
+             ++ " |EGPH| "
+             ++ " |wg-mullvad||tun0||wlp164s0wi|"
+             ++ " |dynnetwork| "
+             ++ "  |default:Master| 🗪 |default:Capture|"
+             ++ " {} "
+             ++ "|kbd|"
+             ++ " |cpufreq|"
+             ++ " |multicpu|"
+             ++ " |multicoretemp|"
+             ++ "   |top| "
+             ++  " ␞ |memory| "
+             ++ " |diskio| 🖫|disku| " -- 📀 🖴
+             ++ "  |datetime| "
+             ++ "|laTime| "
+  }
+
+main :: IO ()
+main = palette >>= configFromArgs . config >>= xmobar
diff --git a/xmobar-config.cabal b/xmobar-config.cabal
index d219a8d..d6554f5 100644
--- a/xmobar-config.cabal
+++ b/xmobar-config.cabal
@@ -20,13 +20,6 @@ library
   other-modules: Paths_xmobar_config
   default-language: Haskell2010
 
-executable xmobar-top
-  main-is: Top.hs
-  hs-source-dirs: src
-  ghc-options: -rtsopts -with-rtsopts=-V0 -threaded
-  build-depends: base, xmobar, xmobar-config
-  default-language: Haskell2010
-
 executable xmobar-exwm
   main-is: TopC.hs
   hs-source-dirs: src
@@ -34,13 +27,27 @@ executable xmobar-exwm
   build-depends: base, xmobar, xmobar-config
   default-language: Haskell2010
 
-executable xmobar-bottom
-  main-is: Bottom.hs
+executable xmobar-emacs
+  main-is: Emacs.hs
   hs-source-dirs: src
-  ghc-options: -rtsopts -with-rtsopts=-V0  -threaded
+  ghc-options: -rtsopts -with-rtsopts=-V0 -threaded
   build-depends: base, xmobar, xmobar-config
   default-language: Haskell2010
 
+-- executable xmobar-top
+--   main-is: Top.hs
+--   hs-source-dirs: src
+--   ghc-options: -rtsopts -with-rtsopts=-V0 -threaded
+--   build-depends: base, xmobar, xmobar-config
+--   default-language: Haskell2010
+
+-- executable xmobar-bottom
+--   main-is: Bottom.hs
+--   hs-source-dirs: src
+--   ghc-options: -rtsopts -with-rtsopts=-V0  -threaded
+--   build-depends: base, xmobar, xmobar-config
+--   default-language: Haskell2010
+
 executable xmobar-sway
   main-is: Sway.hs
   hs-source-dirs: src