From: Simon Ruderich Date: Wed, 5 Jan 2011 21:24:01 +0000 (+0100) Subject: xmonad.hs: Add missing timezones. X-Git-Url: https://ruderich.org/simon/gitweb/?a=commitdiff_plain;h=8bc4da086d9cefe68d8c92f0d92957b518cd4733;p=config%2Fdotfiles.git xmonad.hs: Add missing timezones. --- diff --git a/xmonad.hs b/xmonad.hs index c59bc53..367c93b 100644 --- a/xmonad.hs +++ b/xmonad.hs @@ -26,7 +26,7 @@ import XMonad.Actions.CycleWS -- 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). +-- 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) @@ -40,12 +40,12 @@ 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. +-- 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) how to use toggleLayouts. +-- #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. @@ -59,10 +59,10 @@ myLayoutHook = toggleLayouts tiled $ smartBorders $ Mirror tiled ||| Full -- 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). +-- dschoepe and ivanm in #xmonad on Freenode (2009-07-12 14:50 CEST). myManageHook = composeOne -- Browser on "2". [ className =? "Iceweasel" -?> doF (W.shift "2") @@ -78,7 +78,7 @@ myManageHook = composeOne , 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). + -- Freenode (2010-04-15 21:04 CEST). , return True -?> doF W.focusDown ] @@ -87,7 +87,7 @@ myKeys = [ -- toggleLayouts above. ((mod4Mask, xK_v), sendMessage ToggleLayout) -- Switch to last active workspace, thanks to moljac024 in #xmonad on - -- Freenode (2010-12-18 14:45). + -- Freenode (2010-12-18 14:45 CET). , ((mod4Mask, xK_f), toggleWS) ] ++ @@ -97,10 +97,10 @@ myKeys = [ -- 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 + -- 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) to use - -- the default XMonad workspaces. + -- 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)]]