From 102aece748c6854aac21ccdcc1c56c6b428e49a0 Mon Sep 17 00:00:00 2001
From: Mattias Andrée <m@maandree.se>
Date: Tue, 20 Oct 2026 20:10:40 +0200
Subject: misc
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Signed-off-by: Mattias Andrée <m@maandree.se>
---
 xmonad/xmonad.hs.gpp | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

(limited to 'xmonad/xmonad.hs.gpp')

diff --git a/xmonad/xmonad.hs.gpp b/xmonad/xmonad.hs.gpp
index 7a6f960..b7cca39 100644
--- a/xmonad/xmonad.hs.gpp
+++ b/xmonad/xmonad.hs.gpp
@@ -161,6 +161,10 @@ $$>fi
     , (( $${modmask}, xK_F5), sendMessage $ JumpToLayout (decoName ++ "Tall"))
     , (( $${modmask}, xK_F6), sendMessage $ JumpToLayout (decoName ++ "Mirror Tall"))
     , (( $${modmask}, xK_F7), sendMessage $ JumpToLayout (decoName ++ "Grid"))
+    , (( $${modmask} .|. controlMask, xK_h), shiftHorizontalLayout (-16)) -- <Super><Ctrl>H :: Shift layout area left
+    , (( $${modmask} .|. controlMask, xK_j), adjustHorizontalGaps (-16))  -- <Super><Ctrl>J :: Widen layout area
+    , (( $${modmask} .|. controlMask, xK_k), adjustHorizontalGaps 16)     -- <Super><Ctrl>K :: Narrow layout area
+    , (( $${modmask} .|. controlMask, xK_l), shiftHorizontalLayout 16)    -- <Super><Ctrl>L :: Shift layout area right
     , (( $${modmask}, xK_F8), sendMessage $ JumpToLayout "Full")
     {-- TODO , (( $${modmask} .|. controlMask, xK_m), withFocused (sendMessage . maximizeRestore)) --}
     {-- TODO , (( $${modmask}, xK_m), withFocused minimizeWindow) --}
@@ -205,7 +209,7 @@ myManageHook = manageDocks <+> manageHook def <+> composeAll
                [ className =? "XEyes"         --> doIgnore
                , className =? "TzClock"       --> doIgnore
                ]
-myLayoutHook = avoidStruts $ myLayouts
+myLayoutHook = avoidStruts $ gaps [(L, 0), (R, 0)] $ myLayouts
 myLayouts    = $${deco} (maximize {-- $ TODO minimize --} (tiled 2))
            ||| $${deco} (maximize {-- $ TODO minimize --} (Mirror (tiled 2)))
            ||| full
@@ -217,6 +221,18 @@ full         = noBorders Full
 nmaster      = 1
 delta        = 1/100
 
+adjustHorizontalGaps amount = sendMessage $ ModifyGaps $ map adjustGap
+  where
+    adjustGap (direction, size)
+      | direction == L || direction == R = (direction, max 0 (min 720 (size + amount)))
+      | otherwise                        = (direction, size)
+
+shiftHorizontalLayout amount = sendMessage $ ModifyGaps $ map shiftGap
+  where
+    shiftGap (direction, size)
+      | direction == L = (direction, max 0 (min 720 (size + amount)))
+      | direction == R = (direction, max 0 (min 720 (size - amount)))
+      | otherwise      = (direction, size)
 
 ---- ==== dzen2/xpybar (top panel) settings ==== ----
 myLogHook h = do
-- 
cgit v1.3.1