diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/Sway.hs | 72 | ||||
-rw-r--r-- | src/TopC.hs | 2 |
2 files changed, 72 insertions, 2 deletions
diff --git a/src/Sway.hs b/src/Sway.hs new file mode 100644 index 0000000..2129e20 --- /dev/null +++ b/src/Sway.hs @@ -0,0 +1,72 @@ +import Xmobar +import Config +import Monitors + +memoratio = Memory ["-t","<usedratio>%", "-p", "2", "-W", "3"] 20 + +topProcL p = TopProc (p <~> ["-t" + , memTemp + ++ " · <mboth1> <mboth2> <mboth3> <mboth4>" + , "-w", "12", "-L" , "10", "-H", "80"]) 15 + where memTemp = if pIsLight p + then "<both1> <both2> <both3> <both4>" + else "<both1> <both2> <both3>" + +diskIOS p = DiskIO [("/", "<total>"), ("/home", "<total>")] (diskArgs p) 10 + +mpd a p i = MPDX [ "-W", "12", "-t", "<statei> <remaining>" + , "--", "-p", p, "-P", "\xf144", "-Z",fni i, "-S", fni i] 20 a + +mpdMon = mpd "mpd" "6600" "\xf001" +mopMon = mpd "mopidy" "6669" "\xf1bc" + +config p = (baseConfig p) { + position = TopSize C 100 (defaultHeight - 1) + , textOutput = True + , textOutputFormat = Pango + , bgColor = "#efefef" + , border = FullB + , commands = [ Run (topProcL p) + , Run (iconBatt p) + , Run mpdMon + , if pIsLight p then Run (cpu p) else Run (cpuBars p) + , Run memoratio + , Run (diskU p) + , Run (diskIOS p) + , Run brightness + , Run (kbd p) + , Run (coreTemp p) + , Run (wireless p "wlp164s0") + , Run (dynNetwork p) + , Run (vpnMark "wg-mullvad") + , Run tun0 + , Run (masterVol p) + , Run captureVol + , Run laTime + , Run localTime + , Run w -- LEGE, LEBL, KCV0 + ] + , template = "|batt0| " + ++ dimi "\xf26c" ++ " |bright| " + ++ "<action=`toggle-app.sh nm-applet`>" + ++ " |wg-mullvad||tun0||wlp164s0wi|" + ++ "</action>" + ++ " |dynnetwork| " + ++ "<action=`toggle-app.sh pasystray`>" + ++ " |default:Master| " ++ dimi "\xf130" ++ " |default:Capture|" + ++ "</action> " + ++ "|mpd|" + ++ " |EGPH| " + ++ " {} <hspace=10/>" + ++ "|multicpu| " + ++ "|multicoretemp| " + ++ " |top| " + ++ " " ++ fni "\xf0c9" ++ " |memory| " + ++ " |diskio| |disku| " + ++ " |datetime| " + ++ "|laTime| " + } where dimi = fc (pDim p) . fni + w = weather' "<skyConditionS> <tempC>° <weather>" "EGPH" p + +main :: IO () +main = palette >>= configFromArgs . config >>= xmobar diff --git a/src/TopC.hs b/src/TopC.hs index c447270..f9472da 100644 --- a/src/TopC.hs +++ b/src/TopC.hs @@ -64,11 +64,9 @@ config p = (baseConfig p) { ++ " |default:Master| " ++ dimi "\xf130" ++ " |default:Capture|" ++ "</action> " ++ "|mpd|" --- ++ " |mopidy|" ++ " |EGPH| " ++ fc (pHigh p) "|elog|" ++ " {} " --- ++ "|mail|" ++ "|kbd| " ++ "|multicpu| " ++ "|multicoretemp| " |