From 07c093c9b351466e60b93692c7d05b949bd71b0c Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Fri, 2 Sep 2022 02:33:12 +0100
Subject: sway tweaks

---
 src/Sway.hs | 42 ++++++++++++++++++++++++------------------
 1 file changed, 24 insertions(+), 18 deletions(-)

(limited to 'src/Sway.hs')

diff --git a/src/Sway.hs b/src/Sway.hs
index 44be8b5..4c197ab 100644
--- a/src/Sway.hs
+++ b/src/Sway.hs
@@ -4,18 +4,15 @@ 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>"
+topProcL p = TopProc (p <~> args) 15
+  where template = "<both1>  <both2>  <both3>  <both4> "
+                 ++ "·  <mboth1>  <mboth2>  <mboth3>  <mboth4>"
+        args = ["-t", template, "-w", "12", "-L" , "10", "-H", "80"]
 
 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
+                 , "--", "-p", p, "-P", "\xf144", "-Z", fni i, "-S", fni i] 20 a
 
 mpdMon = mpd "mpd" "6600" "🎶"
 
@@ -25,19 +22,27 @@ mprisx client width =
                 , "-E", "…", "-M", "100", "-x", ""] 40
 
 
+nmmail = NotmuchMail "mail" [MailItem "" "" "tag:new"] 100
+
 config p = (baseConfig p) {
   position = TopSize C 100 (defaultHeight - 1)
   , textOutput = True
   , textOutputFormat = Swaybar
   , font = "Source Code Pro Medium 9"
-  , additionalFonts = []
+  , additionalFonts = [ "xft:Symbola 9"
+                      , "xft:Symbola 10"
+                      , "xft:Symbola 11"
+                      , "xft:Symbola 11"
+                      , "xft:DejaVu Sans Mono 9"
+                      , "xft:FontAwesome 10"
+                      , "xft:FontAwesome 9"]
   , bgColor = "#ffffffc0"
   , fgColor = "#000000"
   , border = FullB
   , commands = [ Run (topProcL p)
                , Run (iconBatt p)
                , Run mpdMon
-               , if pIsLight p then Run (cpu p) else  Run (cpuBars p)
+               , Run (cpu p)
                , Run memoratio
                , Run (diskU p)
                , Run (diskIOS p)
@@ -53,29 +58,30 @@ config p = (baseConfig p) {
                , Run laTime
                , Run localTime
                , Run w -- LEGE, LEBL, KCV0
---               , Run (mprisx "playerctld" 20)
+               , Run (PipeReader ":/tmp/emacs.status" "estat")
+               , Run nmmail
                ]
-  , template = "" -- " |mpris2| "
+  , template = fc "#a0522d" "|mail| |estat|"
              ++ " |batt0| "
-             ++ dimi "\xf26c" ++ " |bright| "
              ++ "<action=`toggle-app.sh nm-applet --indicator`>"
              ++ " |wg-mullvad||tun0||wlp164s0wi|"
              ++ "</action>"
              ++ " |dynnetwork| "
              ++ "<action=`toggle-app.sh pavucontrol`>"
-             ++ "  |default:Master| " ++ dimi "\xf130" ++ " |default:Capture|"
+             ++ "  |default:Master| "
+             ++ fn 7 "\xf130" ++ " |default:Capture|"
              ++ "</action>  "
              ++  "|mpd|"
-             ++ " |EGPH| "
+             ++ "   |EGPH| "
              ++ " {} <hspace=3/>"
              ++ "|multicpu| "
              ++ "|multicoretemp| "
-             ++ " |top| "
-             ++ " " ++ "☸" ++ " |memory| "
+             ++ " |top|   "
+             ++ fni "☸" ++ " |memory| "
              ++ " |diskio| |disku| "
              ++ " |datetime| "
              ++ " |laTime|  "
-  } where dimi = fc (pDim p) . fni
+  } where dimi = fc (pDim p)
           w = weather' "<skyConditionS> <tempC>° <weather>" "EGPH" p
 
 main :: IO ()
-- 
cgit v1.2.3