From c3c81cf5e642b0ad80b56458b8c1cd4eea10ddd8 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sat, 20 Jun 2020 15:55:25 +0100
Subject: misc

---
 src/TopC.hs | 20 +++++++++++++-------
 1 file changed, 13 insertions(+), 7 deletions(-)

(limited to 'src/TopC.hs')

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)
 
-- 
cgit v1.2.3