diff options
| -rw-r--r-- | lib/Config.hs | 2 | ||||
| -rw-r--r-- | lib/Monitors.hs | 35 | ||||
| -rw-r--r-- | lib/Music.hs | 4 | ||||
| -rw-r--r-- | src/Single.hs | 9 | ||||
| -rw-r--r-- | xmobar-config.cabal | 4 |
5 files changed, 34 insertions, 20 deletions
diff --git a/lib/Config.hs b/lib/Config.hs index 845aa8a..248cd97 100644 --- a/lib/Config.hs +++ b/lib/Config.hs @@ -86,7 +86,7 @@ baseConfig p = defaultConfig { , fgColor = pForeground p , bgColor = pBackground p , additionalFonts = ["FontAwesome 9", "Weather Icons 10"] - , textOffsets = [0, -2] + , textOffsets = [0, -1] , border = NoBorder , alpha = pAlpha p , overrideRedirect = True diff --git a/lib/Monitors.hs b/lib/Monitors.hs index 1444305..7f1c772 100644 --- a/lib/Monitors.hs +++ b/lib/Monitors.hs @@ -73,37 +73,42 @@ weather' tmp st p = -- , ("ice crystals", "❄️") -- , ("light snow", "🌨️") -- , ("snow", "❄️") - ("", "\xf054") - , ("clear", "\xf00d") - , ("sunny", "\xf00d") - , ("fair", "\xf00d") + -- ("", "\xf054") + ("clear", "1 \xf00d") + , ("sunny", "2 \xf00d") + , ("fair", "3 \xf00d") , ("mostly clear", "\xf00c") - , ("mostly sunny", "\xf00c") - , ("partly sunny", "\xf00c") + , ("mostly sunny", "5 \xf00c") + , ("partly sunny", "6 \xf00c") , ("obscured", "\xf063") - , ("fog", "\xf014") + , ("haze", "\xf063") + , ("fog", "\xf04a") , ("foggy", "\xf014") - , ("cloudy", "\xf041") + , ("mist", "\xf014") + , ("fog in the vicinity", "\xf014") + , ("shallow fog", "\xf04a") + , ("cloudy", "10 \xf041") , ("overcast", "\xf041") , ("partly cloudy", "\xf083") , ("mostly cloudy", "\xf013") - , ("considerable cloudiness", "\xf002") + , ("considerable cloudiness", "14 \xf002") , ("light rain", "\xf01c") , ("rain", "\xf019") - , ("ice crystals", "\xf077") - , ("light snow", "\xf01b") - , ("snow", "\xf01b") + , ("ice crystals", "17 \xf077") + , ("light snow", "18 \xf01b") + , ("snow", "19 \xf01b") ] (mkArgs p ["-t", tmp , "-L", "10", "-H", "25" , "-T", "20"] ["-w", ""]) 18000 -weather = weather' "<fn=2><skyConditionS></fn> <tempC>° <windKmh> <weather>" +weather = weather' $ fn 2 "<weatherS>" ++ " <tempC>° <windKmh>" -- "https://wttr.in?format=" ++ fnn 3 "%c" ++ "+%t+%C+%w++" ++ fnn 1 "%m" -- , Run (ComX "curl" [wttrURL "Edinburgh"] "" "wttr" 18000) wttrURL l = "https://wttr.in/" ++ l ++ "?format=" ++ fmt - where fmt = fnn 2 "+%c+" ++ "+%t+%C+" ++ fn 5 "%w" + where -- fmt = fnn 2 "+%c+" ++ "+%t+%C+" ++ fn 5 "%w" + fmt = fnn 0 "%c%t+%w" fnn n x = urlEncode ("<fn=" ++ show n ++ ">") ++ x ++ urlEncode "</fn>" encode c | c == ' ' = "+" @@ -111,6 +116,8 @@ wttrURL l = "https://wttr.in/" ++ l ++ "?format=" ++ fmt | otherwise = Printf.printf "%%%02X" c urlEncode = concatMap encode +edinWeather = Run (ComX "curl" [wttrURL "Edinburgh"] "" "wttr" 18000) + batt p = BatteryN ["BAT0"] ["-t", "<acstatus> <left>" diff --git a/lib/Music.hs b/lib/Music.hs index 3b7bec4..7b712dc 100644 --- a/lib/Music.hs +++ b/lib/Music.hs @@ -3,7 +3,9 @@ module Music where import Xmobar import Monitors import qualified Bottom -import Config (defaultHeight, pIsLight, pHigh, fc, fni) +import Config (defaultHeight, pIsLight, pHigh, fc, fn) + +fni = fn 1 mpris p client width = Mpris2 client diff --git a/src/Single.hs b/src/Single.hs index ca21243..707cc15 100644 --- a/src/Single.hs +++ b/src/Single.hs @@ -1,6 +1,7 @@ import Xmobar import Config import Monitors +import Music (mpdMon) topProcL p s = TopProc (p <~> args) 15 where temp | s = "<both1> <both2> <both3> · <mboth1> <mboth2> <mboth3>" @@ -50,10 +51,12 @@ config p = (baseConfig p) { -- , Run captureVol , Run (masterAlsa p) , Run captureAlsa - , Run laTime +-- , Run laTime , Run localTime , Run (cpuFreq' p) , Run (weather "EGPH" p) + , Run mpdMon +-- , edinWeather ] ++ extraCmds , template = trayT ++ " |batt0| " @@ -66,6 +69,8 @@ config p = (baseConfig p) { ++ " |alsa:default:Master| " ++ dimi "\xf130" ++ " |alsa:default:Capture|" ++ "</action>" ++ " |EGPH|" + ++ " |mpd|" +-- ++ " |wttr|" ++ mail ++ " |kbd| " ++ eLog p @@ -78,7 +83,7 @@ config p = (baseConfig p) { ++ dimi "\xf080" ++ " |memory| " ++ dimi "\xf0a0" ++ "|diskio| |disku| " ++ " |datetime| " - ++ " |laTime| " +-- ++ " |laTime| " } where dimi = fc "grey40" . fn 1 isXmonad = pWm p == Just "xmonad" trayT = if isXmonad then "|tray|" else "" diff --git a/xmobar-config.cabal b/xmobar-config.cabal index 4538d8f..2160f21 100644 --- a/xmobar-config.cabal +++ b/xmobar-config.cabal @@ -3,7 +3,7 @@ version: 0.1 description: xmobar configs author: jao maintainer: jao@gnu.org -copyright: 2018, 2019, 2020, 2022, 2023 Jose A Ortega Ruiz +copyright: 2018, 2019, 2020, 2022, 2023, 2025 Jose A Ortega Ruiz license: GPL-3 build-type: Simple cabal-version: >= 1.10 @@ -13,7 +13,7 @@ extra-source-files: library hs-source-dirs: lib - exposed-modules: Config, Monitors, Bottom + exposed-modules: Config, Monitors, Bottom, Music build-depends: base >=4.7 && <5, async > 2.2, stm >= 2.5, aeson, text, bytestring, http-conduit, hinotify, xmobar |