diff options
Diffstat (limited to 'src/TopC.hs')
-rw-r--r-- | src/TopC.hs | 45 |
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 |