From f64764b95e9e713157bdb96a377c636479bfc40c Mon Sep 17 00:00:00 2001 From: jao Date: Sat, 1 Feb 2020 04:33:16 +0000 Subject: fn, fc --- src/TopC.hs | 6 +++--- src/lib/Bottom.hs | 2 +- src/lib/Config.hs | 6 +++++- src/lib/Monitors.hs | 48 ++++++++++++++++++++---------------------------- src/lib/Music.hs | 23 +++++++++-------------- 5 files changed, 38 insertions(+), 47 deletions(-) (limited to 'src') diff --git a/src/TopC.hs b/src/TopC.hs index f2fa458..a7ecf9d 100644 --- a/src/TopC.hs +++ b/src/TopC.hs @@ -56,14 +56,14 @@ config p = (baseConfig p) { ++ "|default:Master| \ \|default:Capture| " ++ "|" ++ ma ++ "|" - ++ " |kbd|" + ++ fn 1 " |kbd|" ++ " {} " ++ " |multicpu| " ++ " |top| " ++ "|memory| " - ++ "|diskio| |disku| " + ++ fc "grey60" "|diskio|" ++ " |disku| " ++ " |EGPH| " - ++ "๐Ÿ•“ |datetime| |laTime| " + ++ fn 2 "๐Ÿ•“ " ++ "|datetime| |laTime| " } where m = music (pIsLight p) ma = alias m w = (weather' " ยฐ " "EGPH" p) 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 = "" ++ thing ++ "" +fn n thing = "" ++ thing ++ "" + 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" , " " , "-L", "1", "-H", "2", "-S", "Off" , "-d", "2"]) 50 -- โค’โคŠโ โŠผ โ‡ง โ‡ฉ โŽ— โŽ˜ -dynNetwork p = DynNetwork (p <~> ["-t", "โ†‘ โ†“ " +dynNetwork p = DynNetwork (p <~> ["-t", fn 1 "โ†‘ " ++ " " ++ fn 1 "โ†“" ++ " " , "-L", "20", "-H", "1024000" , "-m", "5", "-W", "10", "-S", "Off"]) 10 @@ -78,19 +78,19 @@ uptime p = Uptime (p <~> [ "-t" , " ", "-m", "3", "-c", "0", "-S" -- ๐ŸŒง weather' tmp st p = WeatherX st - [ ("", "๐ŸŒ‘") - , ("clear", "๐ŸŒฃ") - , ("sunny", "๐ŸŒฃ") - , ("mostly clear", "๐ŸŒค") - , ("mostly sunny", "๐ŸŒค") - , ("partly sunny", "โ›…") - , ("fair", "๐ŸŒ‘") - , ("obscured", "๐ŸŒ") -- ๐ŸŒซ - , ("cloudy","โ˜") - , ("overcast","โ˜") - , ("partly cloudy", "โ›…") - , ("mostly cloudy", "โ˜") - , ("considerable cloudiness", "โ›ˆ")] + [ ("", 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", "\9211" - , "-O", " \9211 " - , "-o", " ๐Ÿ”‹ " + , "-i", fn 2 "\9211" + , "-O", fn 2 " \9211" ++ " " + , "-o", fn 2 " ๐Ÿ”‹" ++ " " , "-H", "10", "-L", "7" , "-h", pHigh p, "-l", pLow p] 50 "batt0" @@ -133,7 +133,7 @@ diskArgs p = mkArgs p diskIO p = DiskIO [("nvme0n1p2" -- , "โŽ— โŽ˜ ") - , " ") + , " ") ] (diskArgs p) 10 -- ๐Ÿ“จ ๐Ÿ–… ๐Ÿ–ƒ ๐Ÿ“ฉ โœ‰ @@ -165,20 +165,12 @@ mail p = MailX [ ("I", "jao/inbox", pHigh p) ["-d", "~/var/maildir", "-p", " ", "-s", " "] "mail" --- mail = Mail [ ("๐Ÿ–ƒ ", "~/var/maildir/jao/inbox") --- , ("๐Ÿ–ƒ ", "~/var/maildir/jao/geiser") --- , ("๐Ÿ–ƒ ", "~/var/maildir/jao/xmobar") --- , ("๐Ÿ–„ ", "~/var/maildir/bigml/inbox") --- , ("๐Ÿ–„ ", "~/var/maildir/bigml/support") --- ] --- "mail" - masterVol = Volume "default" "Master" ["-t", " " , "--", "-C", "black", "-c", "sienna4" - , "-O", "๐ŸŽง" -- ๐ŸŽง - , "-o", "๐Ÿ”‡"] 10 + , "-O", fn 4 "๐ŸŽง" + , "-o", fn 4 "๐Ÿ”‡"] 10 captureVol = Volume "default" "Capture" ["-t", ""] 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", " \ - \ <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] -- cgit v1.2.3