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

---
 lib/Monitors.hs |  8 ++++----
 src/Emacs.hs    | 11 ++++++++---
 src/Sway.hs     | 42 ++++++++++++++++++++++++------------------
 3 files changed, 36 insertions(+), 25 deletions(-)

diff --git a/lib/Monitors.hs b/lib/Monitors.hs
index 70f71bc..d154ec3 100644
--- a/lib/Monitors.hs
+++ b/lib/Monitors.hs
@@ -121,8 +121,8 @@ wttrURL l = "https://wttr.in/" ++ l ++ "?format=" ++ fmt
 batt p =
   BatteryN ["BAT0"]
            ["-t", "<acstatus> <left>"
-           , "-S", "Off", "-d", "0", "-m", "3"
-           , "-L", "10", "-H", "90", "-p", "3"
+           , "-S", "Off", "-d", "0", "-m", "2"
+           , "-L", "10", "-H", "90", "-p", "2"
            , "--low", pHigh p, "--normal", pNormal p, "--high", pLow p
            , "--"
            , "-P"
@@ -205,8 +205,8 @@ mail p = MailX [ ("I", "jao/inbox", pHigh p)
 masterVol p =
   Volume "default" "Master"
                   ["-t", "<status> <volume>"
-                  , "--", "-C", pForeground p, "-c", "sienna4"
-                  , "-O", fni "\xf025" -- "\xf130" -- fn 2 "🎧"
+                  , "--", "-C", pForeground p, "-c", "#8b4726"
+                  , "-O", fni "\xf025" -- "\xf130" fn 4 "🎧"
                   , "-o", fn 4 "🔇"
                   ] 10
 
diff --git a/src/Emacs.hs b/src/Emacs.hs
index d432c97..adbe13c 100644
--- a/src/Emacs.hs
+++ b/src/Emacs.hs
@@ -27,13 +27,17 @@ batt0 p =
            , "-S", "Off", "-d", "0" -- , "-m", "2"
            , "-L", "10", "-H", "90" -- , "-p", "2"
            , "--low", pHigh p, "--normal", pNormal p, "--high", pLow p
+           , "-W", "0"
+           , "-f", "\129707\129707\129707🔋🔋🔋🔋🔋🔋🔋✳️"
            , "--"
            , "-P"
            , "-a", "notify-send -u critical 'Battery running out!!!!!!'"
            , "-A", "7"
-           , "-i", "✳️"
+           , "-i", "＊" -- "✳️"
            , "-o", "\129707 <left> <timeleft> <watts>"
            , "-O", "🔋" ++ " <left> <timeleft> <watts>"
+           -- , "-o", "<leftbar> <left> <timeleft> <watts>"
+           --, "-O", "<leftbar> <left> <timeleft> <watts>"
            , "-H", "10", "-L", "7"
            , "-h", pHigh p, "-l", pLow p] 50 "batt0"
 
@@ -90,12 +94,13 @@ config p = (baseConfig p) {
                , Run (weath "EGPH" p)
                ]
   , template = " |batt0| "
-             ++ " 🖧 |wg-mullvad||tun0||wlp164s0wi|"
+             -- ++ " 🖧 |wg-mullvad||tun0||wlp164s0wi|"
+             ++ "  |wg-mullvad||tun0||wlp164s0wi|"
              ++ " |dynnetwork| "
              ++ "  |default:Master| 🎙️ |default:Capture|"
              ++ "  |EGPH|"
              ++ "{*}"
-             ++ "|kbd|"
+             -- ++ "|kbd|"
              ++ " |cpufreq|"
              ++ " |multicpu|"
              ++ " |multicoretemp|"
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