colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[XMonad] Add limitWindows layout

Browse Source
This commit is contained in:
Ivan Malison 2016-11-09 13:54:48 -08:00
parent 19cc057864
commit def606e713
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
dotfiles/xmonad/xmonad.hs
View File

@ -27,6 +27,7 @@ import XMonad.Hooks.FadeInactive
import XMonad.Layout.BoringWindows import XMonad.Layout.BoringWindows
import XMonad.Layout.LayoutCombinators import XMonad.Layout.LayoutCombinators
import XMonad.Layout.LayoutModifier import XMonad.Layout.LayoutModifier
import XMonad.Layout.LimitWindows
import XMonad.Layout.MagicFocus import XMonad.Layout.MagicFocus
import XMonad.Layout.Minimize import XMonad.Layout.Minimize
import XMonad.Layout.MultiColumns import XMonad.Layout.MultiColumns
@ -83,9 +84,10 @@ myManageHook = composeAll . concat $
-- TODO: Figure out how to disable focus follows mouse for magicFocus -- TODO: Figure out how to disable focus follows mouse for magicFocus
layouts = multiCol [1, 1] 2 0.01 (-0.5) ||| Full ||| layouts = multiCol [1, 1] 2 0.01 (-0.5) ||| Full |||
Tall 1 (3/100) (1/2) ||| magicFocus (Tall 1 (3/100) (3/4)) Tall 1 (3/100) (1/2) ||| magicFocus (Tall 1 (3/100) (3/4)) |||
limitWindows 2 (Tall 1 (3/100) (1/2))
myLayoutHook = avoidStruts . smartSpacing 10 . minimize . boringWindows . myLayoutHook = avoidStruts . smartSpacing 10 . minimize . boringAuto . boringWindows .
mkToggle (MIRROR ?? EOT) . workspaceNamesHook . smartBorders . mkToggle (MIRROR ?? EOT) . workspaceNamesHook . smartBorders .
noBorders $ layouts noBorders $ layouts