diff options
| author | Mattias Andrée <m@maandree.se> | 2026-10-20 20:10:40 +0200 |
|---|---|---|
| committer | Mattias Andrée <m@maandree.se> | 2026-10-20 20:10:40 +0200 |
| commit | 102aece748c6854aac21ccdcc1c56c6b428e49a0 (patch) | |
| tree | cb55af0db6f41a907f1c328e3ece21b48fe60158 /xmonad/xmonad.hs.gpp | |
| parent | Misc (diff) | |
| download | dotfiles-102aece748c6854aac21ccdcc1c56c6b428e49a0.tar.gz dotfiles-102aece748c6854aac21ccdcc1c56c6b428e49a0.tar.bz2 dotfiles-102aece748c6854aac21ccdcc1c56c6b428e49a0.tar.xz | |
Signed-off-by: Mattias Andrée <m@maandree.se>
Diffstat (limited to 'xmonad/xmonad.hs.gpp')
| -rw-r--r-- | xmonad/xmonad.hs.gpp | 18 |
1 files changed, 17 insertions, 1 deletions
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 |