xmonadlog colors

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

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" ""