X-Git-Url: https://ruderich.org/simon/gitweb/?a=blobdiff_plain;f=xmonad.hs;h=367c93be01aa7c2d3efa19fa28f3a879e5c7e3b7;hb=e43aac66d71d0638c5220e01abbe42d0c957e882;hp=b3949d77daf049c98280eeb1c3c3207976932a3a;hpb=c528f3ec1893b0cf11ef112147524410423dfdb4;p=config%2Fdotfiles.git diff --git a/xmonad.hs b/xmonad.hs index b3949d7..367c93b 100644 --- a/xmonad.hs +++ b/xmonad.hs @@ -1,4 +1,6 @@ -- XMonad configuration file. +-- +-- Should work fine with XMonad 0.7 and above. import XMonad @@ -6,16 +8,28 @@ import XMonad import XMonad.Layout.Reflect -- Necessary for avoidMaster. import qualified XMonad.StackSet as W +-- Necessary for toggleLayouts. +import XMonad.Layout.ToggleLayouts -- Necessary for smartBorders. import XMonad.Layout.NoBorders +-- Necessary for composeOne and -?>. +import XMonad.Hooks.ManageHelpers +-- Necessary for `additionalKeys`. +import XMonad.Util.EZConfig +-- Necessary for setWMName. +import XMonad.Hooks.SetWMName +-- Necessary for toggleWS. +import XMonad.Actions.CycleWS -- Prevent new windows from spawning in the master pane. Taken from -- http://haskell.org/haskellwiki/Xmonad/Frequently_asked_questions on --- 2009-06-30. Thanks. +-- 2009-06-30. Thanks. Modified to not steal focus from the master pane when a +-- new window is created, thanks to vav in #xmonad on Freenode (2010-04-15 +-- 21:59 CEST). avoidMaster :: W.StackSet i l a s sd -> W.StackSet i l a s sd avoidMaster = W.modify' $ \c -> case c of - W.Stack t [] (r:rs) -> W.Stack t [r] rs + W.Stack t [] (r:rs) -> W.Stack r [] (t:rs) otherwise -> c -- Create my custom layout. @@ -26,41 +40,87 @@ avoidMaster = W.modify' $ \c -> case c of -- spawn in the master pane avoidMaster (see below) is used. Borders are only -- drawn when the screen has more then one window (smartBorders). -- --- Thanks to jrick in #xmonad on Freenode (2009-06-29 22:19) for telling me --- how to remove the vertical tiled layout. -myLayoutHook = smartBorders $ Mirror tiled ||| Full +-- Thanks to jrick in #xmonad on Freenode (2009-06-29 22:19 CEST) for telling +-- me how to remove the vertical tiled layout. +-- +-- toggleLayouts is used to allow switching to vertical tiled layout but not +-- using it with meta-space (see below in key bindings). Thanks to ml| in +-- #xmonad on Freenode (2010-06-14 09:49 CEST) how to use toggleLayouts. +myLayoutHook = toggleLayouts tiled $ smartBorders $ Mirror tiled ||| Full where -- Default tiling algorithm partitions the screen into two panes. tiled = Tall nmaster delta ratio -- The default number of windows in the master pane. nmaster = 1 - -- Default proportion of screen occupied by master pane. - ratio = 1/2 -- Percent of screen to increment by when resizing panes. delta = 3/100 + -- Default proportion of screen occupied by master pane. + ratio = 1/2 -- Don't spawn new windows in the master pane (which is at the top of the -- screen). Thanks to dschoepe, aavogt and especially vav in #xmonad on --- Freenode (2009-06-30 02:10f). +-- Freenode (2009-06-30 02:10f CEST). -- -- Also some applications are spawned on specific workspaces. Thanks to --- dschoepe and ivanm in #xmonad on Freenode (2009-07-12 14:50). -myManageHook = composeAll - [ className =? "Iceweasel" --> doF (W.shift "2") - , className =? "Wireshark" --> doF (W.shift "3") - ] <+> doF avoidMaster +-- dschoepe and ivanm in #xmonad on Freenode (2009-07-12 14:50 CEST). +myManageHook = composeOne + -- Browser on "2". + [ className =? "Iceweasel" -?> doF (W.shift "2") + -- Miscellaneous on "3". + , className =? "Wireshark" -?> doF (W.shift "3") + , title =? "OpenOffice.org" -?> doF (W.shift "3") -- splash screen + , className =? "OpenOffice.org 2.4" -?> doF (W.shift "3") + , className =? "Vncviewer" -?> doF (W.shift "3") + -- Wine on "4". + , className =? "Wine" -?> doF (W.shift "4") + + -- Don't spawn new windows in the master pane. + , return True -?> doF avoidMaster + -- Prevent windows which get moved to other workspaces from removing the + -- focus of the currently selected window. Thanks to vav in #xmonad on + -- Freenode (2010-04-15 21:04 CEST). + , return True -?> doF W.focusDown + ] + +myKeys = [ + -- Switch to additional layout (vertical tiled) defined by + -- toggleLayouts above. + ((mod4Mask, xK_v), sendMessage ToggleLayout) + -- Switch to last active workspace, thanks to moljac024 in #xmonad on + -- Freenode (2010-12-18 14:45 CET). + , ((mod4Mask, xK_f), toggleWS) + ] + ++ + -- When using multiple screens, switching to another workspace causes + -- Xmonad to pull the workspace to the current screen if it was also + -- displayed on another one. This is confusing for me so the following + -- code changes it to just switch to the screen where the workspace is + -- already displayed. + -- + -- Thanks to the Xmonad FAQ, read on 2010-06-16 13:42 CEST + -- (http://www.haskell.org/haskellwiki/Xmonad/Frequently_asked_questions). + -- Thanks to MrElendig in #xmonad on Freenode (2010-06-17 17:16 CEST) to + -- use the default XMonad workspaces. + [((m .|. mod4Mask, k), windows $ f i) + | (i, k) <- zip (XMonad.workspaces defaultConfig) [xK_1 .. xK_9] + , (f, m) <- [(W.view, 0), (W.shift, shiftMask)]] main = xmonad $ defaultConfig - -- Use Windows key as main key so it doesn't conflict with any other key + -- Use Windows key as main key as it doesn't conflict with any other key -- bindings. { modMask = mod4Mask -- Inactive borders are black - invisible on my black screen. , normalBorderColor = "#000000" - -- Active border is dark red. + -- Active borders are dark red. , focusedBorderColor = "#990000" -- Use my layout and manage hooks (see above). , layoutHook = myLayoutHook , manageHook = myManageHook -- Use unicode rxvt as my terminal. , terminal = "urxvt" + -- Necessary for Java so it recognizes XMonad as tiling window manager. + , startupHook = setWMName "LG3D" } + `additionalKeys` myKeys + +-- vim: nospell