From 09812befdcea7806e3c89ed8bc4a84dff772a1b6 Mon Sep 17 00:00:00 2001
From: Hektor Misplon <hektor.misplon@pm.me>
Date: Sat, 30 Mar 2024 16:26:32 +0100
Subject: [PATCH] Add folds for hooks

---
 .xmonad/xmonad.hs | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs
index ed48ed1..f7e975f 100644
--- a/.xmonad/xmonad.hs
+++ b/.xmonad/xmonad.hs
@@ -67,12 +67,13 @@ shiftAndView = doF . liftM2 (.) W.greedyView W.shift
 
 -- Hooks {{{
 
--- startupHook
+-- startupHook {{{
 myStartupHook =
   do
     spawn "killall polybar && polybar -r"
+-- }}}
 
--- manageHook
+-- manageHook {{{
 myManageHook :: ManageHook
 myManageHook =
   composeAll
@@ -94,15 +95,17 @@ myManageHook =
       className =? "KeePassXC" --> doRectFloat (W.RationalRect 0.1 0.1 0.8 0.8),
       className =? "flameshot" --> doRectFloat (W.RationalRect 0.1 0.1 0.8 0.8)
     ]
+-- }}}
 
+-- dynamicManageHook {{{
 myDynamicManageHook :: ManageHook
 myDynamicManageHook =
  composeAll
    [
      title =? "Zettelkasten — Firefox Developer Edition" --> doShift "1_sh"
    ]
+-- }}}
 
--- TODO: Replace showWName by dunst notification
 myShowWNameConfig :: SWNConfig
 myShowWNameConfig =
   def
@@ -112,7 +115,7 @@ myShowWNameConfig =
       swn_bgcolor = "#cccccc"
     }
 
--- layoutHook
+-- layoutHook {{{
 myLayoutHook =
     showWName' myShowWNameConfig $
     ifWider smallWidth (
@@ -134,11 +137,14 @@ myLayoutHook =
     nmaster = 1
     ratio = 1 / 2
     delta = 4 / 100
+-- }}}
 
+-- handleEventHook {{{
 myHandleEventHook =
      onXPropertyChange "WM_NAME" myDynamicManageHook
   <> handleEventHook def
   <> Hacks.windowedFullscreenFixEventHook
+-- }}}
 
 -- }}}