From 7b825b51253aaa3dee789aa5262c93681cd10289 Mon Sep 17 00:00:00 2001 From: 4Lost Date: Wed, 13 Mar 2024 21:00:56 +0100 Subject: [PATCH] xmonadlog colors --- home/TODOS.md | 8 +++++--- home/programs/xmonad/src/xmonad.hs | 7 ++++--- 2 files changed, 9 insertions(+), 6 deletions(-) diff --git a/home/TODOS.md b/home/TODOS.md index f659821..98673f7 100644 --- a/home/TODOS.md +++ b/home/TODOS.md @@ -57,7 +57,6 @@ ## Catppuccin Theme -- Firefox - Ecosia - Anki - Zathura @@ -67,6 +66,7 @@ ## Rofi - Theme wählen +- Oder Theme an Farben anpassen ## Neovim @@ -142,6 +142,8 @@ - Hintergrund, Lockscreen - Webhook -## Terminal +## xmobar -- Maby auf Kitty umsteigen wegen Fira Code +- XMonadLog change colors +- pulseaudioctl only gives correct answer after one change +- change bash scripts to Haskell Functions diff --git a/home/programs/xmonad/src/xmonad.hs b/home/programs/xmonad/src/xmonad.hs index 47a0bfb..155058e 100644 --- a/home/programs/xmonad/src/xmonad.hs +++ b/home/programs/xmonad/src/xmonad.hs @@ -47,8 +47,8 @@ myXmobarPP = def { ppSep = pink " • " , ppWsSep = "" - , ppCurrent = wrap " " "" . xmobarBorder "Top" "#f5c2e7" 2 - , ppHidden = wrap " " "" + , ppCurrent = wrap " " "" . xmobarBorder "Top" "#f38ba8" 2 + , ppHidden = green . wrap " " "" , ppHiddenNoWindows = gray . wrap " " "" , ppUrgent = red . wrap (yellow "!") (yellow "!") , ppTitleSanitize = xmobarStrip @@ -62,8 +62,9 @@ myXmobarPP = def ppWindow :: String -> String ppWindow = xmobarRaw . (\w -> if null w then "???" else w) . shorten 15 -- set maximum length of windowtitle to 15 - pink, gray, red, yellow :: String -> String + pink, gray, red, yellow, green :: String -> String pink = xmobarColor "#f5c2e7" "" + green = xmobarColor "#a6e3a1" "" gray = xmobarColor "#cdd6f4" "" red = xmobarColor "#f38ba8" "" yellow = xmobarColor "#f9e2af" ""