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 | 
