-- -- xmonad config file. -- {-# LANGUAGE NoMonomorphismRestriction #-} import XMonad import System.Exit import XMonad.Layout.NoBorders (noBorders, smartBorders) import XMonad.Layout.ResizableTile import XMonad.Layout.SimplestFloat import XMonad.Actions.CopyWindow import XMonad.Actions.DynamicWorkspaces import XMonad.Actions.GridSelect import XMonad.Actions.NoBorders import XMonad.Actions.Warp(warpToScreen) import XMonad.Actions.WindowBringer import XMonad.Prompt import XMonad.Util.EZConfig (additionalKeysP) import Data.Monoid import Data.List import Data.Maybe import qualified XMonad.StackSet as W import qualified Data.Map as M -- mTerminal = "urxvt;ps -U $USER |grep dzen2|awk '{print $1}'|xargs kill -USR1" mTerminal = "urxvtc" mBorderWidth = 1 mModMask = mod4Mask -- A tagging example: -- > workspaces = ["web", "irc", "code" ] ++ map show [4..9] -- mWorkspaces :: [WorkspaceId] mWorkspaces = map show [1 .. 9 :: Int] -- Border colors for unfocused and focused windows, respectively. -- mNormalBorderColor = "#999999" mFocusedBorderColor = "#dd0000" -- Custom keys -- mKeys = [ ("M-S-n", sendMessage MirrorShrink ) -- Expand current window , ("M-S-t", sendMessage MirrorExpand ) -- Shrink current window , ("M-b" , withFocused toggleBorder ) -- Toggle the border of the currently focused window , ("M-g" , warpToCentre >> promptedWs) -- Gridselect to pick windows , ("M-S-b", spawn "ps -U hunner|grep dzen2|awk '{print $1}'|xargs kill -USR1") -- Bring dzen to the front -- Goes to window or bring up window --, ("M-S-g", gotoMenu) --, ("M-S-b", bringMenu) , ("M-S-g", warpToCentre >> goToSelected gsConfig ) -- Multimedia , ("" , spawn "mpc toggle" ) -- play/pause mpd , ("" , spawn "mpc stop" ) -- stop mpd , ("" , spawn "mpc prev" ) -- prev song , ("" , spawn "mpc next" ) -- next song , ("", spawn "mpc volume -3" ) -- volume down via custom script , ("", spawn "mpc volume +3" ) -- volume up via custom script , ("" , spawn "amixer -q -- sset Headphone togglemute") -- toggle mute via custom script -- Dynamic workspace commands , ("M-S-" , removeWorkspace) , ("M-S-w" , selectWorkspace mXPConfig) , ("M-S-r" , renameWorkspace mXPConfig) , ("M-m" , withWorkspace mXPConfig (windows . W.shift)) , ("M-S-m" , withWorkspace mXPConfig (windows . copy)) ] -- Don't auto-assign the key shortcuts -- ++ -- zip (map (("M-" ++) . show) [1..9]) (map (withNthWorkspace W.greedyView) [0..]) -- ++ -- zip (map (("M-S-" ++) . show) [1..9]) (map (withNthWorkspace W.shift) [0..]) where -- Make the mouse jump to the middle of the screen for gridselect warpToCentre = gets (W.screen . W.current . windowset) >>= \x -> warpToScreen x 0.5 0.5 promptedWs = wsgrid >>= \x -> whenJust x $ \y -> windows $ W.greedyView y wsgrid = gridselect gsConfig =<< gets (map (\x -> (x,x)) . (map W.tag . W.workspaces . windowset)) --wsgrid = gridselect gsConfig =<< gets (map (\x -> (x,x)) . (map W.tag . uncurry (++) . partition (isJust . W.stack) . W.workspaces . windowset)) -- (map W.tag . W.workspaces . windowset)) {- [10:28] dschoepe : gets (map W.tag . W.workspaces . windowset) should work [10:31] aavogt : somewhat useful variation on that is: [10:32] aavogt : gets $ map W.tag . uncurry (++) . partition (isJust . W.stack) . W.workspaces . windowset [10:32] aavogt : to put the populated ones towards the inside [10:33] aavogt : unfortunately, it is a bit more awkward to supply those ones with a different color [10:34] aavogt : needs imports of Data.List and Data.Maybe -} {- - Fancy gsConfig gsConfig = defaultGSConfig { gs_navigate = neiu `M.union` gs_navigate (defaultGSConfig`asTypeOf`gsConfig) } where neiu = M.insert (0,xK_space) (const (0,0)) $ M.map (\(x,y) (a,b) -> (x+a,y+b)) $ M.fromList [((0,xK_n),(-1,0)) ,((0,xK_e),(0,1)) ,((0,xK_i),(1,0)) ,((0,xK_u),(0,-1))] -} mXPConfig :: XPConfig mXPConfig = defaultXPConfig { fgColor = "#dd0000", bgColor = "black", borderColor = "#dd0000" } gsConfig = defaultGSConfig { gs_navigate = M.unions [reset ,nethackKeys ,gs_navigate -- get the default navigation bindings $ defaultGSConfig `asTypeOf` gsConfig -- needed to fix an ambiguous type variable ] } where addPair (a,b) (x,y) = (a+x,b+y) nethackKeys = M.map addPair $ M.fromList [((0,xK_y),(-1,-1)) ,((0,xK_u),(1,-1)) ,((0,xK_b),(-1,1)) ,((0,xK_n),(1,1)) ] -- jump back to the center with the spacebar, regardless of the current position. reset = M.singleton (0,xK_space) (const (0,0)) ------------------------------------------------------------------------ -- Layouts: mLayout = smartBorders Full ||| tiled ||| Mirror tiled ||| simplestFloat where -- default tiling algorithm partitions the screen into two panes --tiled = Tall nmaster delta ratio tiled = ResizableTall 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 ratio = toRational (2/(1+sqrt(5)::Double)) -- golden -- Percent of screen to increment by when resizing panes delta = 3/100 ------------------------------------------------------------------------ -- Window rules: -- > xprop | grep WM_CLASS -- mManageHook = composeAll [ className =? "MPlayer" --> doFloat , title =? "VLC media player" --> doFloat , className =? "Gimp" --> doFloat , className =? "Anki" --> doFloat , className =? "Skype" --> doFloat , className =? "googleearth" --> doFloat , className =? "Pidgin" --> doFloat , className =? "mangclient" --> doFloat , className =? "CellWriter" --> doFloat , className =? "Gvba" --> doFloat , className =? "Cellwriter" --> doIgnore , resource =? "desktop_window" --> doIgnore , resource =? "kdesktop" --> doIgnore ] -- Whether focus follows the mouse pointer. mFocusFollowsMouse :: Bool mFocusFollowsMouse = True {- [14:25] dschoepe : Hunner: http://hpaste.org/fastcgi/hpaste.fcgi/view?id=8798#a8798 [14:25] dschoepe : that should work in darcs [14:28] dschoepe : Hunner: you probably want something like `flip (/="cellwriterclass") `fmap` className' as shouldFollow [14:28] dschoepe : err, without the flip -- Special window following code --shouldFollow :: Query Bool --shouldFollow = className =? "CellWriter" -} pickyFocusEventHook e@(CrossingEvent {ev_window = w, ev_event_type = t}) | t == enterNotify && ev_mode e == notifyNormal = whenX (runQuery shouldFollow w) (focus w) >> return (All False) | otherwise = return $ All True where shouldFollow = (/="Cellwriter") `fmap` className pickyFocusEventHook _ = return $ All True -- Run xmonad! -- main = do xmonad $ defaultConfig { terminal = mTerminal , focusFollowsMouse = mFocusFollowsMouse , borderWidth = mBorderWidth , modMask = mModMask , workspaces = mWorkspaces , normalBorderColor = mNormalBorderColor , focusedBorderColor = mFocusedBorderColor , layoutHook = mLayout , manageHook = mManageHook , handleEventHook = pickyFocusEventHook } `additionalKeysP` mKeys