diff options
Diffstat (limited to 'xmonad')
| -rw-r--r-- | xmonad/.config/xmobar/xmobarrc | 21 | ||||
| -rw-r--r-- | xmonad/.config/xmonad/xmonad.hs | 4 |
2 files changed, 19 insertions, 6 deletions
diff --git a/xmonad/.config/xmobar/xmobarrc b/xmonad/.config/xmobar/xmobarrc index 7b669aa..0972ff5 100644 --- a/xmonad/.config/xmobar/xmobarrc +++ b/xmonad/.config/xmobar/xmobarrc @@ -2,13 +2,26 @@ Config { bgColor = "#181818" , fgColor = "#e4e4e4" , border = BottomB - , borderColor = "#cc8c3c" - , font = "xft:Iosevka Comfy-13" + , font = "xft:Iosevka Comfy-12" + , additionalFonts = ["Noto Color Emoji-12", "Iosevka Nerd Font"] , position = TopH 22 , commands = [ -- Network activity monitor (dynamic interface resolution) - Run Date "%Y-%m-%d (%a) %H:%M" "mydate" 10 + Run Date "%Y-%m-%d (%a) %H:%M:%S" "mydate" 10 + -- Run Com "<terminal app/script>" [<app arguments>] <template identifier> <refreshrate> + , Run Com "notmuch" ["count"] "mail" 600 + , Run Com "music-plain" [] "music" 50 + , Run Com "weather-plain" [] "weather" 100 , Run StdinReader -- text coming from xmonad + , Run DynNetwork [ "--template" , " : <tx>kB/s <rx>kB/s" + , "--Low" , "1000" -- units: B/s + , "--High" , "5000" -- units: B/s + , "--low" , "#73c936" + , "--normal" , "#ce5c00" + , "--high" , "#ff4f58" + ] 10 + , Run ThermalZone 0 ["-t"," : <temp>C"] 30 + , Run MultiCpu ["-H","95","--high","red","-t","[<autovbar>]","--","--contiguous-icons"] 10 ] - , template = "%StdinReader% }{ %mydate% " + , template = " %StdinReader% }{ <fc=#ffdd33>%weather%</fc> | <fc=#73c936> : %mail% unread</fc> | <fc=#96a6c8>%music%</fc> | : %multicpu% | %thermal0% | %dynnetwork% | : %mydate% " } diff --git a/xmonad/.config/xmonad/xmonad.hs b/xmonad/.config/xmonad/xmonad.hs index 51c6805..76487b0 100644 --- a/xmonad/.config/xmonad/xmonad.hs +++ b/xmonad/.config/xmonad/xmonad.hs @@ -30,12 +30,11 @@ main :: IO() main = do nScreens <- countScreens xmprocs <- mapM (\s -> spawnPipe $ "xmobar -x " ++ show s) [0 .. (nScreens - 1)] - xmprocs' <- mapM (\s -> spawnPipe $ "xmobar -x " ++ show s) [0 .. (nScreens - 1)] -- Second set of bars xmonad . docks . ewmhFullscreen . ewmh - $ myConfig (xmprocs ++ xmprocs') + $ myConfig xmprocs term :: String term = "st" @@ -104,6 +103,7 @@ myKeys = , ("M-<Return>", spawn term) , ("M-d", spawn "dmenu_run") , ("M-S-x", spawn "sysact") + , ("M-S-z", spawn "boomer") , ("M-p", spawn "st -e alsamixer") , ("M-S-m", spawn "wallpaper.sh") , ("<Print>", spawn "maimpick") |