diff options
author | jao <jao@gnu.org> | 2022-08-09 22:50:48 +0100 |
---|---|---|
committer | jao <jao@gnu.org> | 2022-08-09 22:53:42 +0100 |
commit | bc1b2d6defbd9dc7cf8a5a103e9672fdb9a715f0 (patch) | |
tree | 74d719ed2435083e7d0bd37ec789c2f659c96bb7 /src/TopC.hs | |
parent | 6640f4d36dc401b9182f91be7179c9d16a212e07 (diff) | |
download | xmobar-config-bc1b2d6defbd9dc7cf8a5a103e9672fdb9a715f0.tar.gz xmobar-config-bc1b2d6defbd9dc7cf8a5a103e9672fdb9a715f0.tar.bz2 |
xmobar-exwm -> xmobar-single
Diffstat (limited to 'src/TopC.hs')
-rw-r--r-- | src/TopC.hs | 110 |
1 files changed, 0 insertions, 110 deletions
diff --git a/src/TopC.hs b/src/TopC.hs deleted file mode 100644 index c8e5115..0000000 --- a/src/TopC.hs +++ /dev/null @@ -1,110 +0,0 @@ -import Xmobar -import Config -import Monitors -import Music (mpris, gpmd, mpdt) - -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> <both4>" - -diskIOL p = DiskIO [("/", "<totalbipat>"), ("/home", "<totalbipat>")] - (diskArgs p) 10 - -diskIOS p = DiskIO [("/", "<read> <write>")] (diskArgs p) 10 - -mpd a p i = - MPDX [ "-W", "12", "-b", "░", "-f", "▒", "-t", "<statei> <remaining>" - , "--", "-p", p, "-P", fni "\xf144", "-Z", fni i, "-S", fni i] 20 a - -mpdMon = mpd "mpd" "6600" "\xf001" -mopMon = mpd "mopidy" "6669" "\xf1bc" - -cpuFreq' p = CpuFreq (p <~> ["-t" , "<avg>" - , "-L", "1", "-H", "2", "-S", "Off" , "-d", "2"]) 50 - -cpus p = MultiCpu (mkArgs p - ["--template" , "<autobar> <total>%" - , "-L", "50", "-H", "85", "-W", "0", "-w", "3" - , "-f", "0123456789"] - ["--fallback-icon-pattern", "<icon=load_%%.xpm/>"]) 10 - - -memory' = Memory [ "-t" ,"<usedbar> <usedratio>" - , "-p", "2", "-W", "0","-d", "1", "-f", "0123456789" - , "--", "--scale", "1024"] 20 - - -config p = (baseConfig p) { - position = TopSize C 100 (defaultHeight - 2) - , font = "xft:Hack-8" - , textOffset = defaultHeight - 8 - , textOffsets = [defaultHeight - 9, defaultHeight - 9, - defaultHeight - 6, defaultHeight - 8, - defaultHeight - 8, defaultHeight - 8] - , alpha = if pIsLight p then 192 else 230 - , border = FullB - , commands = [ Run (topProcL p) - , Run (load p) - , Run (iconBatt p) - , Run (cpu p) --- , Run (cpus p) - , Run memory - , 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 (cpuFreq' p) - , Run w -- LEGE, LEBL, KCV0 - ] ++ extraCmds - , template = trayT - ++ " |batt0|" ++ sep - -- ++ dimi "\xf26c" ++ sep - ++ "|bright|" ++ sep - ++ "<action=`toggle-app.sh nm-applet`>" - ++ " |wg-mullvad||tun0||wlp164s0wi|" - ++ "</action>" - ++ " |dynnetwork| " ++ sep - ++ "<action=`toggle-app.sh pasystray`>" - ++ " |default:Master| " ++ dimi "\xf130" ++ " |default:Capture|" - ++ "</action>" ++ sep - ++ " |EGPH| " ++ sep - ++ eLog p - ++ " {} " - ++ "|kbd|" ++ sep - ++ "|load|" ++ sep - ++ "|cpufreq|" ++ sep - ++ "|multicpu|" ++ sep - ++ "|multicoretemp|" ++ sep - ++ " |top| " ++ sep - ++ " " ++ fni "\xf0c9" ++ " |memory| " - ++ " |diskio| |disku| " ++ sep - ++ " |datetime| " - ++ "|laTime| " - } where dimi = fc (pDim p) . fni - sep = " " - w = weather' "<skyConditionS> <tempC>° <weather>" "EGPH" p - isXmonad = pWm p == Just "xmonad" - trayT = if isXmonad then "|tray|" else "" - eLog p = if isXmonad then "|XMonadLog|" else fc (pHigh p) "|elog|" - extraCmds = if isXmonad - then [ Run (NamedXPropertyLog "_XMONAD_TRAYPAD" "tray") - , Run XMonadLog] - else [Run (NamedXPropertyLog "_EMACS_LOG" "elog")] - -main :: IO () -main = palette >>= configFromArgs . config >>= xmobar |