diff options
Diffstat (limited to 'src/lib')
| -rw-r--r-- | src/lib/Bottom.hs | 2 | ||||
| -rw-r--r-- | src/lib/Config.hs | 6 | ||||
| -rw-r--r-- | src/lib/Monitors.hs | 48 | ||||
| -rw-r--r-- | src/lib/Music.hs | 23 |
4 files changed, 35 insertions, 44 deletions
diff --git a/src/lib/Bottom.hs b/src/lib/Bottom.hs index 6ab5b40..7f58efe 100644 --- a/src/lib/Bottom.hs +++ b/src/lib/Bottom.hs @@ -9,7 +9,7 @@ config cs tpl p = (baseConfig p) { position = BottomSize C 100 defaultHeight , textOffset = defaultHeight - 6 , textOffsets = [defaultHeight - 6, defaultHeight - 6, - defaultHeight - 4, defaultHeight - 6, + defaultHeight - 4, defaultHeight - 8, defaultHeight - 7] , border = TopB , template = "|tray| \ diff --git a/src/lib/Config.hs b/src/lib/Config.hs index 905773e..c2a7720 100644 --- a/src/lib/Config.hs +++ b/src/lib/Config.hs @@ -1,5 +1,6 @@ module Config ( - Palette(..), baseConfig, palette, (<~>), (>~<), mkArgs, defaultHeight) + Palette(..), baseConfig, palette, (<~>), (>~<), + mkArgs, defaultHeight, fc, fn) where import System.Environment (lookupEnv) @@ -21,6 +22,9 @@ data Palette = Palette { pNormal :: String , pIsLight :: Bool } +fc color thing = "<fc=" ++ color ++ ">" ++ thing ++ "</fc>" +fn n thing = "<fn=" ++ show n ++ ">" ++ thing ++ "</fn>" + lightTheme :: IO Bool lightTheme = fmap (== Just "light") (lookupEnv "JAO_COLOR_SCHEME") diff --git a/src/lib/Monitors.hs b/src/lib/Monitors.hs index 324043d..1a8d0d6 100644 --- a/src/lib/Monitors.hs +++ b/src/lib/Monitors.hs @@ -68,7 +68,7 @@ cpuFreq p = CpuFreq (p <~> ["-t" , "<cpu0> <cpu1> <cpu2> <cpu3>" , "-L", "1", "-H", "2", "-S", "Off" , "-d", "2"]) 50 -- ⤒⤊⍐ ⊼ ⇧ ⇩ ⎗ ⎘ -dynNetwork p = DynNetwork (p <~> ["-t", "<fn=1>↑</fn> <tx> <fn=1>↓</fn> <rx>" +dynNetwork p = DynNetwork (p <~> ["-t", fn 1 "↑ " ++ "<tx> " ++ fn 1 "↓" ++ " <rx>" , "-L", "20", "-H", "1024000" , "-m", "5", "-W", "10", "-S", "Off"]) 10 @@ -78,19 +78,19 @@ uptime p = Uptime (p <~> [ "-t" , "<days> <hours>", "-m", "3", "-c", "0", "-S" -- 🌧 weather' tmp st p = WeatherX st - [ ("", "<fc=gray60><fn=4>🌑</fn></fc>") - , ("clear", "<fn=4>🌣</fn>") - , ("sunny", "<fn=4>🌣</fn>") - , ("mostly clear", "<fn=4>🌤</fn>") - , ("mostly sunny", "<fn=4>🌤</fn>") - , ("partly sunny", "<fn=3>⛅</fn>") - , ("fair", "<fn=4>🌑</fn>") - , ("obscured", "<fn=4>🌁</fn>") -- 🌫 - , ("cloudy","<fn=3>☁</fn>") - , ("overcast","<fn=3>☁</fn>") - , ("partly cloudy", "<fn=3>⛅</fn>") - , ("mostly cloudy", "<fn=3>☁</fn>") - , ("considerable cloudiness", "<fn=4>⛈</fn>")] + [ ("", fc "gray60" $ fn 4 "🌑") + , ("clear", fn 4 "🌣") + , ("sunny", fn 4 "🌣") + , ("mostly clear", fn 4 "🌤") + , ("mostly sunny", fn 4 "🌤") + , ("partly sunny", fn 3 "⛅") + , ("fair", fn 4 "🌑") + , ("obscured", fn 4 "🌁") -- 🌫 + , ("cloudy", fn 3 "☁") + , ("overcast", fn 3 "☁") + , ("partly cloudy", fn 3 "⛅") + , ("mostly cloudy", fn 3 "☁") + , ("considerable cloudiness", fn 4 "⛈")] (mkArgs p ["-t", tmp , "-L","10", "-H", "25"] ["-w", ""]) 18000 @@ -106,9 +106,9 @@ batt p = , "-P" , "-a", "notify-send -u critical 'Battery running out!!!!!!'" , "-A", "7" - , "-i", "<fn=2>\9211</fn>" - , "-O", " <fn=2>\9211</fn> <timeleft> <watts>" - , "-o", " <fn=2>🔋</fn> <timeleft> <watts>" + , "-i", fn 2 "\9211" + , "-O", fn 2 " \9211" ++ " <timeleft> <watts>" + , "-o", fn 2 " 🔋" ++ " <timeleft> <watts>" , "-H", "10", "-L", "7" , "-h", pHigh p, "-l", pLow p] 50 "batt0" @@ -133,7 +133,7 @@ diskArgs p = mkArgs p diskIO p = DiskIO [("nvme0n1p2" -- , "<fn=1>⎗</fn> <readb> <fn=1>⎘</fn> <writeb> <fn=1><totalbbar></fn>") - , "<readb> <writeb> <fn=0><totalbipat></fn>") + , "<readb> <writeb> <totalbipat>") ] (diskArgs p) 10 -- <fn=1>📨 🖅 🖃 📩 ✉ </fn> @@ -165,20 +165,12 @@ mail p = MailX [ ("I", "jao/inbox", pHigh p) ["-d", "~/var/maildir", "-p", " ", "-s", " "] "mail" --- mail = Mail [ ("<fc=darkseagreen4><fn=2>🖃 </fn></fc>", "~/var/maildir/jao/inbox") --- , ("<fc=darkseagreen3><fn=2>🖃 </fn></fc>", "~/var/maildir/jao/geiser") --- , ("<fc=darkseagreen3><fn=2>🖃 </fn></fc>", "~/var/maildir/jao/xmobar") --- , ("<fc=sienna2><fn=2>🖄 </fn></fc>", "~/var/maildir/bigml/inbox") --- , ("<fc=sienna4><fn=2>🖄 </fn></fc>", "~/var/maildir/bigml/support") --- ] --- "mail" - masterVol = Volume "default" "Master" ["-t", "<status> <volume>" , "--", "-C", "black", "-c", "sienna4" - , "-O", "<fn=4>🎧</fn>" -- 🎧 - , "-o", "<fn=4>🔇</fn>"] 10 + , "-O", fn 4 "🎧" + , "-o", fn 4 "🔇"] 10 captureVol = Volume "default" "Capture" ["-t", "<volume>"] 10 diff --git a/src/lib/Music.hs b/src/lib/Music.hs index 3d298df..5544d50 100644 --- a/src/lib/Music.hs +++ b/src/lib/Music.hs @@ -3,14 +3,13 @@ module Music where import Xmobar import Monitors import qualified Bottom -import Config (defaultHeight, pIsLight) +import Config (defaultHeight, pIsLight, fc) import GMPDP (GMPDP(..)) mpris client width = Mpris2 client -- "clementine" -- - ["-t", " <fn=0><tracknumber>\ - \ <title> <fc=sienna4><artist></fc>\ - \ <album> <length></fn>" + ["-t", " <tracknumber> <title> " ++ fc "sienna4" "<artist>" + ++ " <album> <length>" , "-T", show width, "-E", "…", "-M", "100", "-x", ""] 10 mprisConfig client p = Bottom.config [Run (mpris client 165)] "|mpris2|" p @@ -19,18 +18,14 @@ mpd = MPD [ "-W", "12", "-b", "░", "-f", "▒", "-t" , " <lapsed> <fc=honeydew3><fn=5><bar></fn></fc>"] 10 -- fn=5 +mpdt' c0 c1 c2 = "<ppos>/<plength> " + ++ fc c0 "<title> " ++ fc c1 "<artist> " ++ fc c2 "<album>" + ++ " <composer> <date>" + mpdt light = if light - then "<ppos>/<plength> \ - \<fn=0><fc=darkolivegreen><title></fc></fn> \ - \<fn=0><fc=dodgerblue4><artist></fc> \ - \<fn=0><album></fn> \ - \<fc=burlywood4><composer></fc> <date></fn>" - else "<ppos>/<plength> \ - \<fn=0><fc=darkseagreen4><title></fc></fn> \ - \<fn=0><fc=darkslategray4><artist></fc> \ - \<fn=0><fc=burlywood4><album></fc></fn> \ - \<composer> <date></fn>" + then mpdt' "darkolivegreen" "dodgerblue4" "burlywood4" + else mpdt' "darkseagreen4" "darkslategray4" "burlywood4" autoMPD l lgt = AutoMPD [ "-T", l, "-E", "…", "-W", "10", "-t", "<length> " ++ mpdt lgt] |