mpo/xmonad-config
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix shrink/grow bug

Browse Source
This commit is contained in:
Martin Potier 2017-12-11 13:30:50 +02:00
parent cf78d0a900
commit ab8e2390e0
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
xmonad.hs
View File

@ -81,7 +81,7 @@ lh = do
myConfig = desktopConfig myConfig = desktopConfig
{ modMask = mod4Mask -- Use the "Win" key for the mod key { modMask = mod4Mask -- Use the "Win" key for the mod key
, manageHook = myManageHook <+> manageHook desktopConfig , manageHook = myManageHook <+> manageHook desktopConfig
, layoutHook = desktopLayoutModifiers $ myLayouts , layoutHook = desktopLayoutModifiers myLayouts
, logHook = lh , logHook = lh
, terminal = "/run/current-system/sw/bin/kitty" , terminal = "/run/current-system/sw/bin/kitty"
, workspaces = wkspcs , workspaces = wkspcs
@ -118,10 +118,12 @@ myConfig = desktopConfig
| (tag, key) <- zip wkspcs [ xK_F1 .. ] | (tag, key) <- zip wkspcs [ xK_F1 .. ]
, (mask, actionWith) <- zip [ 0, shiftMask ] [ W.view, W.shift ] ] , (mask, actionWith) <- zip [ 0, shiftMask ] [ W.view, W.shift ] ]
myLayouts = smartBorders $ toggleLayouts (noBorders Full) others myLayouts = toggleLayouts fullscreen tiled
where where
resizableTall = ResizableTall 1 (2 % 1) (1/2) [] fullscreen = (noBorders Full)
others = smartSpacingWithEdge 5 $ resizableTall ||| (Mirror resizableTall) tiled = smarts $ resizableTall ||| (Mirror resizableTall)
smarts = (smartSpacingWithEdge 5) . smartBorders
resizableTall = ResizableTall 1 (5/100) (1/2) []
myXPConfig = def myXPConfig = def
{ position = Top { position = Top