summaryrefslogtreecommitdiffhomepage
path: root/src/TopC.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/TopC.hs')
-rw-r--r--src/TopC.hs45
1 files changed, 45 insertions, 0 deletions
diff --git a/src/TopC.hs b/src/TopC.hs
new file mode 100644
index 0000000..e4529ae
--- /dev/null
+++ b/src/TopC.hs
@@ -0,0 +1,45 @@
+import Xmobar
+import Config
+import Monitors
+
+-- <fn=1> 💡 </fn>
+config p = (baseConfig p) {
+ position = TopSize C 100 (defaultHeight - 1)
+ , textOffset = defaultHeight - 8
+ , textOffsets = [defaultHeight - 9, defaultHeight - 9,
+ defaultHeight - 6, defaultHeight - 8]
+ , border = BottomB
+ , alpha = 255
+ , commands = [ Run (topProc' p)
+ , Run (multiCPU p)
+ , Run memory
+ , Run (diskU p)
+ , Run (diskIO p)
+ , Run (coreTemp p)
+ , Run brightness
+ , Run (batt p)
+ , Run (wireless p)
+ , Run (dynNetwork p)
+ , Run tun0
+ , Run (weather "EGPH") -- LEGE, LEBL, KCV0
+ , Run mail
+ , Run masterVol
+ , Run captureVol
+ , Run laTime
+ , Run localTime
+ ]
+ , template = " |batt0| |bright|\
+ \ <action=`toggle-app.sh nm-applet`>|tun0||wlp2s0wi|</action> \
+ \ |dynnetwork| \
+ \ <action=`toggle-app.sh blueman-tray`><fn=1>🎧</fn></action>\
+ \<action=`toggle-app.sh pasystray`>|default:Master|\
+ \ |default:Capture|</action> |EGPH|\
+ \ |mail| {} \
+ \ |top| |multicpu| |multicoretemp|\
+ \ |diskio| |disku| |memory| \
+ \ <fn=2>🕓 </fn>|datetime| |laTime| "
+}
+
+main :: IO ()
+main =
+ palette >>= configFromArgs . config >>= xmobar