From 554ddd36b403feaf0c5fa53c42ae5e2474e6921f Mon Sep 17 00:00:00 2001 From: qvalentin Date: Mon, 11 Oct 2021 19:00:21 +0200 Subject: [PATCH] window resizing --- xmonad.hs | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/xmonad.hs b/xmonad.hs index cb2de1a..34a406e 100644 --- a/xmonad.hs +++ b/xmonad.hs @@ -91,7 +91,8 @@ import XMonad.Util.Loggers (logTitles) import XMonad.Util.SpawnOnce (spawnOnce) import XMonad.Util.Ungrab (unGrab) import XMonad.Util.WorkspaceCompare (getSortByIndex) -import XMonad.Hooks.RefocusLast (RecentWins(previous)) +import XMonad.Layout (Resize(Expand,Shrink) ) +import XMonad.Layout.DwmStyle (dwmStyle, shrinkText) main :: IO () main = do @@ -126,6 +127,8 @@ main = do -- window navigation ("M-l", sendMessage $ Go R), ("M-h", sendMessage $ Go L), + ("M-S-h", sendMessage Shrink), -- Shrink horiz window width + ("M-S-l", sendMessage Expand), -- Expand horiz window width -- layout switching ("M-", sendMessage NextLayout), -- dmenu stuff @@ -190,9 +193,8 @@ mySpacing' i = spacingRaw True (Border i 0 i i) True (Border i 0 i i) True --myWorkspaces = [" dev ", " www ", " sys ", " doc ", " vbox ", " chat ", " mus ", " vid ", " gfx "] myWorkspaces :: [String] -myWorkspaces = show <$> [1 .. 9] - -myLayout = windowNavigation tiled ||| Mirror tiled ||| Full +myWorkspaces = show <$> ([1 .. 9] ::[Integer] ) +myLayout = windowNavigation tiled ||| Mirror tiled ||| Full where tiled = mySpacing' 8 $ Tall nmaster delta ratio nmaster = 1 -- Default number of windows in the master pane