Mercurial > dotfiles

comparison .xmonad/xmonad.hs @ 325:64e73453e43f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
xmonad: Pull apart custom layout into something readable This change doesn't affect any behavior, but it does document the custom layout by naming function parameters. Hopefully, this will make things easier to fix the next time the XMonad developers break us.
author Lucas Bergman <lucas@bergmans.us>
date Tue, 11 Mar 2014 12:49:05 -0500
parents 93a8f55a4e30
children
comparison
equal deleted inserted replaced
324:231aef6069cc 325:64e73453e43f
8 import XMonad.Layout.Column 8 import XMonad.Layout.Column
9 import XMonad.Layout.LayoutBuilder 9 import XMonad.Layout.LayoutBuilder
10 import XMonad.Util.EZConfig 10 import XMonad.Util.EZConfig
11 import XMonad.Util.Run(spawnPipe) 11 import XMonad.Util.Run(spawnPipe)
12 12
13 myLayout = augie2 ||| augie1 ||| Full 13 myLayout = (augieLayout 2) ||| (augieLayout 1) ||| Full
14 where augie2 = ((layoutN 2 (relBox 0 0 1 0.75) (Just $ relBox 0 0 1 1) $ (Tall 1 0.03 0.75))
15 $ (layoutAll (relBox 0 0.75 1 1) $ (Mirror (Column 1))))
16 augie1 = ((layoutN 1 (relBox 0 0 1 0.75) (Just $ relBox 0 0 1 1) $ (Tall 1 0.03 0.75))
17 $ (layoutAll (relBox 0 0.75 1 1) $ (Mirror (Column 1))))
18 14
15 augieLayout num = layoutN num mainBox (Just overflowBox) layout overflowLayout
16 where
17 mainBox = relBox 0 0 1 mainHeightFrac
18 overflowBox = relBox 0 0 1 1
19 layout = Tall 1 0.03 mainWidthFrac
20 overflowLayout = layoutAll (relBox 0 mainHeightFrac 1 1) singleRow
21 mainHeightFrac = 0.75 -- main area takes up this much screen height
22 mainWidthFrac = 0.75 -- main window takes up this much screen width
23 singleRow = Mirror $ Column 1
19 24
20 myDmenuTitleBar = 25 myDmenuTitleBar =
21 "exec `dmenu_path | dmenu\ 26 "exec `dmenu_path | dmenu\
22 \ -p 'Run:'`" 27 \ -p 'Run:'`"
23 28