summaryrefslogtreecommitdiffhomepage
path: root/src/TopC.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/TopC.hs')
-rw-r--r--src/TopC.hs20
1 files changed, 13 insertions, 7 deletions
diff --git a/src/TopC.hs b/src/TopC.hs
index 4941adb..1adef23 100644
--- a/src/TopC.hs
+++ b/src/TopC.hs
@@ -4,7 +4,7 @@ import Monitors
import Music (mpris, gpmd, mpdt)
topProcL p = TopProc (p <~> ["-t"
- , "<both1> <both2> <both3> <mboth1> <mboth2> "
+ , "<both1> <both2> <both3> <mboth1> <mboth2> <mboth3>"
, "-w", "10", "-L" , "10", "-H", "80"]) 15
diskIOL p = DiskIO [("/", "<totalbipat>"), ("/home", "<totalbipat>")]
(diskArgs p) 10
@@ -19,9 +19,13 @@ ompd light =
where tm = " <remaining> " ++ mpdt light
compMPD light = concatMonitor " " mpd (autoMPD light)
-mpn = "spotify"
+mpn = "spotifyd"
-- music light = toggleMonitor "/tmp/mpris.st" (mpris mpn 120) (autoMPD light)
-music = ompd
+-- music = ompd
+-- music l = toggleMonitor "/tmp/mpris.st" (ompd l) (mpris mpn 120)
+-- musicPipe = MarqueePipeReader "/tmp/music" (20, 10, "..") "musicpipe"
+musicPipe = PipeReader "/tmp/music" "musicpipe"
+music l = toggleMonitor "/tmp/mpris.st" musicPipe (ompd l)
-- <fn=1> 💡 </fn>
config p = (baseConfig p) {
@@ -33,7 +37,8 @@ config p = (baseConfig p) {
, alpha = 255
, commands = [ Run (topProcL p)
, Run m
--- , Run (mail p)
+ , Run (thinkTemp p)
+ , Run (mail p)
, Run (cpuBars p)
, Run memory
, Run (diskU p)
@@ -54,19 +59,20 @@ config p = (baseConfig p) {
++ "|bright| "
++ "<action=`toggle-app.sh nm-applet`>|proton0||wlp1s0wi|</action> "
++ "|dynnetwork| "
--- ++ "|mail| "
++ "<action=`toggle-app.sh pasystray`>|default:Master| \
\|default:Capture|</action> "
++ "<action=`toggle-pipe.sh /tmp/mpris.st`>|" ++ ma ++ "|</action>"
++ fn 1 " |kbd|"
++ " {} "
- ++ " |multicpu| "
+ ++ "|mail|"
+ ++ "|multicoretemp| "
+ ++ "|multicpu| "
++ " |top| "
++ "|memory| "
++ fc "grey60" "|diskio|" ++ " |disku| "
++ " |EGPH| "
++ fn 2 "🕓 " ++ "|datetime| |laTime| "
- } where m = music (pIsLight p)
+ } where m = music (pIsLight p) -- ompd (pIsLight p) -- (mpris mpn 120) --
ma = alias m
w = (weather' "<skyConditionS> <tempC>° <weather>" "EGPH" p)