X-Git-Url: https://ruderich.org/simon/gitweb/?a=blobdiff_plain;f=xmonad.hs;h=367c93be01aa7c2d3efa19fa28f3a879e5c7e3b7;hb=f01ef3329274973ae8fe80697b694f8882b9bd50;hp=c71d10d2a9ec3e41b6728b013e87e7fa61f8d1fe;hpb=7581f733804cc654ee077a21b5d18a8fd2212685;p=config%2Fdotfiles.git

diff --git a/xmonad.hs b/xmonad.hs
index c71d10d..367c93b 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -1,13 +1,126 @@
--- Xmonad configuration file.
+-- XMonad configuration file.
+--
+-- Should work fine with XMonad 0.7 and above.
 
 
 import XMonad
+-- Necessary for reflectVert.
+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. 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 r [] (t:rs)
+    otherwise           -> c
+
+-- Create my custom layout.
+--
+-- Only use horizontal (Mirror tiled) and fullscreen layouts.
+--
+-- The master pane is at the top of the screen. To make sure new windows don't
+-- 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 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
+    -- 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 CEST).
+--
+-- Also some applications are spawned on specific workspaces. Thanks to
+-- 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.
-    , focusedBorderColor = "#990000" }
+    -- 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