qvalentin
/
xmonad
1
1
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

window resizing

This commit is contained in:
qvalentin 2021-10-11 19:00:21 +02:00
parent 995541b03d
commit 554ddd36b4
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
xmonad.hs
View File

@ -91,7 +91,8 @@ import XMonad.Util.Loggers (logTitles)
import XMonad.Util.SpawnOnce (spawnOnce) import XMonad.Util.SpawnOnce (spawnOnce)
import XMonad.Util.Ungrab (unGrab) import XMonad.Util.Ungrab (unGrab)
import XMonad.Util.WorkspaceCompare (getSortByIndex) 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 :: IO ()
main = do main = do
@ -126,6 +127,8 @@ main = do
-- window navigation -- window navigation
("M-l", sendMessage $ Go R), ("M-l", sendMessage $ Go R),
("M-h", sendMessage $ Go L), ("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 -- layout switching
("M-<Tab>", sendMessage NextLayout), ("M-<Tab>", sendMessage NextLayout),
-- dmenu stuff -- dmenu stuff
@ -190,8 +193,7 @@ 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 = [" dev ", " www ", " sys ", " doc ", " vbox ", " chat ", " mus ", " vid ", " gfx "]
myWorkspaces :: [String] myWorkspaces :: [String]
myWorkspaces = show <$> [1 .. 9] myWorkspaces = show <$> ([1 .. 9] ::[Integer] )
myLayout = windowNavigation tiled ||| Mirror tiled ||| Full myLayout = windowNavigation tiled ||| Mirror tiled ||| Full
where where
tiled = mySpacing' 8 $ Tall nmaster delta ratio tiled = mySpacing' 8 $ Tall nmaster delta ratio