diff options
author | David Roundy <droundy@darcs.net> | 2007-11-11 20:50:36 +0100 |
---|---|---|
committer | David Roundy <droundy@darcs.net> | 2007-11-11 20:50:36 +0100 |
commit | f6a589c128a45ec862b704ba5d02a7bc91deae2b (patch) | |
tree | 4e8eeb3822b4bc879f074ab83f81912d405fff0f /XMonad/Config/Droundy.hs | |
parent | 3352241c8cfe40428742ca6829ea427498f949e5 (diff) | |
download | XMonadContrib-f6a589c128a45ec862b704ba5d02a7bc91deae2b.tar.gz XMonadContrib-f6a589c128a45ec862b704ba5d02a7bc91deae2b.tar.xz XMonadContrib-f6a589c128a45ec862b704ba5d02a7bc91deae2b.zip |
add two new modules, one to name layouts, another to select a layout.
The latter is pretty useless, as there's no way to find out what
layouts are available, but it can at least allow you to select between
any layouts that you happen to be using already (in one workspace or
another). The former is handy any time you'd rather have a short name
for a layout (either for selecting, or for viewing in a status bar).
darcs-hash:20071111195036-72aca-8ffbd496a9dbbdd7ca7e92a5bbedb568b2384485.gz
Diffstat (limited to '')
-rw-r--r-- | XMonad/Config/Droundy.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/XMonad/Config/Droundy.hs b/XMonad/Config/Droundy.hs index 95d10e1..8004a9d 100644 --- a/XMonad/Config/Droundy.hs +++ b/XMonad/Config/Droundy.hs @@ -34,6 +34,7 @@ import Graphics.X11.Xlib import XMonad.Layout.Tabbed import XMonad.Layout.Combo +import XMonad.Layout.Named import XMonad.Layout.LayoutCombinators import XMonad.Layout.Square import XMonad.Layout.LayoutScreens @@ -43,6 +44,7 @@ import XMonad.Layout.WorkspaceDir import XMonad.Layout.ToggleLayouts import XMonad.Prompt +import XMonad.Prompt.Layout import XMonad.Prompt.Shell import XMonad.Actions.CopyWindow @@ -112,6 +114,7 @@ keys x = M.fromList $ , ((modMask x, xK_m ), withWorkspace myXPConfig (windows . W.shift)) , ((modMask x .|. shiftMask, xK_m ), withWorkspace myXPConfig (windows . copy)) , ((modMask x .|. shiftMask, xK_r), renameWorkspace myXPConfig) + , ((modMask x, xK_l ), layoutPrompt myXPConfig) , ((modMask x .|. controlMask, xK_space), sendMessage ToggleLayout) ] @@ -138,8 +141,8 @@ config = defaultConfig { borderWidth = 1 -- Width of the window border in pixels. , XMonad.workspaces = ["1:mutt","2:iceweasel"] , layoutHook = Layout $ workspaceDir "~" $ windowNavigation $ toggleLayouts (noBorders Full) $ - noBorders mytab ||| - mytab <-/> combineTwo Square mytab mytab ||| + Named "tabbed" (noBorders mytab) ||| + Named "xclock" (mytab <-/> combineTwo Square mytab mytab) ||| mytab <//> mytab , terminal = "xterm" -- The preferred terminal program. , normalBorderColor = "#dddddd" -- Border color for unfocused windows. |