From ec1c7a9a32f19fe83e6e05ddf93f130313a2dd49 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Fri, 12 Aug 2022 21:57:38 +0100
Subject: xmobar-emacs tweaks

---
 src/Emacs.hs | 42 +++++++++++++++++++++---------------------
 1 file changed, 21 insertions(+), 21 deletions(-)

(limited to 'src')

diff --git a/src/Emacs.hs b/src/Emacs.hs
index f2a9a44..d432c97 100644
--- a/src/Emacs.hs
+++ b/src/Emacs.hs
@@ -17,23 +17,23 @@ memory' = Memory args 20
 
 master p = Volume "default" "Master" (args ++ ("--":ext)) 10
   where args = ["-t", "<status> <volume>"]
-        ext = ["-C", pForeground p, "-c", "sienna4", "-O", "🎼", "-o", "🔇"]
+        ext = ["-C", pForeground p, "-c", "sienna4", "-O", "🔊", "-o", "🔇"]
 
 capture = Volume "default" "Capture" ["-t", "<volume>"] 10
 
 batt0 p =
   BatteryN ["BAT0"]
            ["-t", "<acstatus>"
-           , "-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"
            , "-a", "notify-send -u critical 'Battery running out!!!!!!'"
            , "-A", "7"
-           , "-i", "\9211"
-           , "-O", "\129707 <left> <timeleft> <watts>"
-           , "-o", "🔋" ++ " <left> <timeleft> <watts>"
+           , "-i", "✳️"
+           , "-o", "\129707 <left> <timeleft> <watts>"
+           , "-O", "🔋" ++ " <left> <timeleft> <watts>"
            , "-H", "10", "-L", "7"
            , "-h", pHigh p, "-l", pLow p] 50 "batt0"
 
@@ -43,22 +43,22 @@ weath st p =
            , ("clear", "🔆")
            , ("sunny", "🔆")
            , ("fair", "🔆")
-           , ("mostly clear", "🌤")
-           , ("mostly sunny", "🌤")
+           , ("mostly clear", "🌤️")
+           , ("mostly sunny", "🌤️")
            , ("partly sunny", "⛅")
-           , ("obscured", "🌁") -- 🌫
-           , ("fog", "🌁") -- 🌫
-           , ("foggy", "🌁") -- 🌫
+           , ("obscured", "🌁")
+           , ("fog", "🌫️")
+           , ("foggy", "🌫️")
            , ("cloudy", "☁️")
            , ("overcast", "☁️")
            , ("partly cloudy", "⛅")
            , ("mostly cloudy", "☁️")
-           , ("considerable cloudiness", "⛈")
-           , ("light rain", "🌧")
-           , ("rain", "⛆")
-           , ("ice crystals", "❄")
-           , ("light snow", "🌨")
-           , ("snow", "❄")
+           , ("considerable cloudiness", "☁️")
+           , ("light rain", "🌦️")
+           , ("rain", "🌨️")
+           , ("ice crystals", "❄️")
+           , ("light snow", "🌨️")
+           , ("snow", "❄️")
            ]
            (mkArgs p ["-t", "<skyConditionS> <tempC>° <weather> 🌫 <windKmh>"
                      , "-L", "10", "-H", "25" , "-T", "25", "-E", ".."]
@@ -89,10 +89,10 @@ config p = (baseConfig p) {
                , Run localTime
                , Run (weath "EGPH" p)
                ]
-  , template = "|batt0| "
-             ++ " |wg-mullvad||tun0||wlp164s0wi|"
+  , template = " |batt0| "
+             ++ " 🖧 |wg-mullvad||tun0||wlp164s0wi|"
              ++ " |dynnetwork| "
-             ++ "  |default:Master| 🗪 |default:Capture|"
+             ++ "  |default:Master| 🎙️ |default:Capture|"
              ++ "  |EGPH|"
              ++ "{*}"
              ++ "|kbd|"
@@ -101,7 +101,7 @@ config p = (baseConfig p) {
              ++ " |multicoretemp|"
              ++ "   |top| "
              ++  " ␞ |memory| "
-             ++ " |diskio| 🖴 |disku| " -- 📀 🖴 🖫
+             ++ " |diskio| 🖴 |disku| "
              ++ "  |datetime| "
              ++ "|laTime| "
   }
-- 
cgit v1.2.3