From a33954c59fe9d8fe889fab077b6612cc029ac3fc Mon Sep 17 00:00:00 2001
From: davidpkj <davidpenkow1@gmail.com>
Date: Wed, 24 Jul 2024 16:37:37 +0200
Subject: Mega Update: FW16 Space Rice

- Add symlinks to dotfiles in config dir (links to links)
- Switch from neofetch to fastfetch
- Add htop
- Add dynamic colors (polybar, xmonad, qutebrowser)
- Update color management (pywal & friends, alacritty, xorg)
- Minor updates to other files (quality of life)
---
 xmonad/.config/xmonad/lib/Colors.hs |  1 +
 xmonad/.config/xmonad/xmonad.hs     | 20 ++++++++++++++------
 2 files changed, 15 insertions(+), 6 deletions(-)
 create mode 120000 xmonad/.config/xmonad/lib/Colors.hs

(limited to 'xmonad')

diff --git a/xmonad/.config/xmonad/lib/Colors.hs b/xmonad/.config/xmonad/lib/Colors.hs
new file mode 120000
index 0000000..878d194
--- /dev/null
+++ b/xmonad/.config/xmonad/lib/Colors.hs
@@ -0,0 +1 @@
+/home/me/.cache/wal/Colors.hs
\ No newline at end of file
diff --git a/xmonad/.config/xmonad/xmonad.hs b/xmonad/.config/xmonad/xmonad.hs
index 09b3eee..2602184 100644
--- a/xmonad/.config/xmonad/xmonad.hs
+++ b/xmonad/.config/xmonad/xmonad.hs
@@ -4,15 +4,16 @@ import XMonad.Hooks.DynamicLog
 import XMonad.Hooks.EwmhDesktops
 import XMonad.Hooks.StatusBar
 import XMonad.Hooks.StatusBar.PP
+import XMonad.Hooks.ManageDocks
 import XMonad.Layout.Spacing
 import XMonad.Layout.NoBorders
 import XMonad.Util.EZConfig
 
+import Colors
+
 import qualified XMonad.StackSet as W
 import qualified Data.Map as M
 
--- TODO: xres colors, fullscreen mode shows open windows
-
 main :: IO ()
 main = xmonad
   $ ewmhFullscreen
@@ -21,15 +22,21 @@ main = xmonad
   $ customConfig
 
 myMod = mod4Mask
-myTerminal = "alacritty"
+myTerminal = "alacritty msg create-window || alacritty"
 myLayout = spacingWithEdge 6 $ Tall 1 (3/100) (1/2) ||| smartBorders Full
 
+zenToggle = do
+  toggleWindowSpacingEnabled
+  toggleScreenSpacingEnabled
+  sendMessage ToggleStruts
+  sendMessage NextLayout
+
 customConfig = def
   { terminal = myTerminal
   , borderWidth = 3
   , modMask = myMod
-  , normalBorderColor  = "#1e1e2e"
-  , focusedBorderColor = "#6d82cf"
+  , normalBorderColor  = background
+  , focusedBorderColor = primary
   , layoutHook = myLayout
   } `removeKeysP` removeKeys'
     `additionalKeysP` additionalKeys'
@@ -48,7 +55,8 @@ additionalKeys' =
   -- WM
   , ("M-S-r",      spawn "xmonad --recompile && xmonad --restart" )
   , ("M-f",        sendMessage NextLayout )
-  , ("M-z",        windows W.swapMaster )
+  , ("M-s",        windows W.swapMaster )
+  , ("M-z",        zenToggle )
   , ("M-r",        refresh )
   , ("M-q",        kill )
   -- Multimedia keys
-- 
cgit v1.2.3