twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

use ewmhDesktopsLayout in Droundy.

Browse Source
This commit is contained in:
David Roundy 2008-03-22 15:36:10 +00:00
parent c0519e4375
commit b378857a8e
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
XMonad/Config/Droundy.hs
View File

@ -45,7 +45,8 @@ import XMonad.Actions.CycleWS
import XMonad.Hooks.ManageDocks import XMonad.Hooks.ManageDocks
import XMonad.Hooks.UrgencyHook import XMonad.Hooks.UrgencyHook
import XMonad.Hooks.EwmhDesktops ( ewmhDesktopsLogHook ) import XMonad.Hooks.EwmhDesktops ( ewmhDesktopsLogHook,
ewmhDesktopsLayout )
myXPConfig :: XPConfig myXPConfig :: XPConfig
myXPConfig = defaultXPConfig {font="-*-lucida-medium-r-*-*-14-*-*-*-*-*-*-*" myXPConfig = defaultXPConfig {font="-*-lucida-medium-r-*-*-14-*-*-*-*-*-*-*"
@ -127,7 +128,8 @@ config = -- withUrgencyHook FocusUrgencyHook $
defaultConfig defaultConfig
{ borderWidth = 1 -- Width of the window border in pixels. { borderWidth = 1 -- Width of the window border in pixels.
, XMonad.workspaces = ["mutt","iceweasel"] , XMonad.workspaces = ["mutt","iceweasel"]
, layoutHook = showWName $ workspaceDir "~" $ smartBorders $ windowNavigation $ , layoutHook = ewmhDesktopsLayout $ showWName $ workspaceDir "~" $
smartBorders $ windowNavigation $
toggleLayouts Full $ avoidStruts $ toggleLayouts Full $ avoidStruts $
named "tabbed" mytab ||| named "tabbed" mytab |||
named "xclock" (mytab ****//* combineTwo Square mytab mytab) ||| named "xclock" (mytab ****//* combineTwo Square mytab mytab) |||