mirror of
https://codeberg.org/leana8959/.files.git
synced 2025-12-06 14:49:14 +00:00
61 lines
1.5 KiB
Haskell
61 lines
1.5 KiB
Haskell
import Xmobar
|
|
|
|
import Data.Function ((&))
|
|
|
|
config =
|
|
defaultConfig
|
|
{ overrideRedirect = False
|
|
, font = "Iosevka 13"
|
|
, bgColor = "#000000"
|
|
, fgColor = "#FFFFFF"
|
|
, position = BottomH 30
|
|
, commands =
|
|
[ Run $ Date "%a %d %H:%M:%S" "date" (1 &second)
|
|
, Run $
|
|
Com
|
|
"tomorrow"
|
|
[ "--target", "2025-08-14"
|
|
, "--target", "2025-08-21"
|
|
]
|
|
""
|
|
(60 &minute)
|
|
, Run $
|
|
Battery
|
|
[ "-t", "<left> (<timeleft>"
|
|
, "-H", "70"
|
|
, "-L", "20"
|
|
, "-h", "green"
|
|
, "-n", "orange"
|
|
, "-l", "red"
|
|
, "--"
|
|
, "-P"
|
|
, "-A", "20"
|
|
, "-a", "notify-send -u critical \"Battery Low\" \"Please charge your battery\""
|
|
]
|
|
(6 &second)
|
|
, Run $ Com "powerprofilesctl" ["get"] "" (6 &second)
|
|
, Run XMonadLog
|
|
, Run $
|
|
Weather
|
|
"LFRN"
|
|
[ "-t", "<station>: <tempC>C"
|
|
, "-L","10", "-H", "25"
|
|
, "--normal", "white"
|
|
, "--high", "orange"
|
|
, "--low", "blue"
|
|
]
|
|
(15 &minute)
|
|
]
|
|
, sepChar = "%"
|
|
, alignSep = "}{"
|
|
, template = " %XMonadLog% }{ %LFRN% | %battery%, %powerprofilesctl%) | %date%, j%tomorrow% "
|
|
}
|
|
|
|
second :: Int -> Int
|
|
second = (* 10)
|
|
|
|
minute :: Int -> Int
|
|
minute = (* 60) . second
|
|
|
|
main :: IO ()
|
|
main = xmobar config
|