{-# OPTIONS_GHC -W -fwarn-unused-imports -fno-warn-missing-signatures #-} import XMonad -- import XMonad.Config.Kde import XMonad.Actions.CycleWS import XMonad.Actions.GridSelect import XMonad.Actions.PerWorkspaceKeys import XMonad.Actions.RotSlaves import XMonad.Actions.UpdatePointer import XMonad.Config.Desktop -- import XMonad.Config.Kde import XMonad.Hooks.DynamicLog hiding (xmobar, xmobarPP, xmobarColor, sjanssenPP, byorgeyPP) import XMonad.Hooks.EwmhDesktops import XMonad.Hooks.ManageDocks (avoidStruts) import XMonad.Hooks.ManageHelpers import XMonad.Hooks.UrgencyHook import XMonad.Layout.Accordion import XMonad.Layout.Combo import XMonad.Layout.Cross import XMonad.Layout.Dishes import XMonad.Layout.FixedColumn import XMonad.Layout.Grid import XMonad.Layout.IM import XMonad.Layout.LimitWindows import XMonad.Layout.Magnifier import XMonad.Layout.NoBorders import XMonad.Layout.NoFrillsDecoration import XMonad.Layout.PerWorkspace import XMonad.Layout.PerWorkspace import XMonad.Layout.Reflect import XMonad.Layout.ResizableTile import XMonad.Layout.SimpleDecoration import XMonad.Layout.Tabbed import XMonad.Layout.ThreeColumns import XMonad.Layout.ToggleLayouts import XMonad.Layout.TwoPane import XMonad.Layout.WindowNavigation import XMonad.Prompt import XMonad.Prompt.Shell import XMonad.Util.EZConfig (additionalKeys) import XMonad.Util.Loggers import XMonad.Util.Run -- for spawnPipe import XMonad.Util.Themes import qualified XMonad.Actions.FlexibleResize as Flex import qualified XMonad.StackSet as W import qualified Data.Map as M import Control.Monad import Data.Ratio ((%)) import Data.Maybe import Data.List import IO (hPutStrLn) myMod = mod4Mask -- windows key myCtrl = controlMask myTerminal = "urxvtc" -- My workspaces myWorkspaces = ["term", "web", "chatter", "code", "K/D", "music", "plasma", "LaTeX", "web-nb"] -- Mouse bindings: default actions bound to mouse events myMouseBindings (XConfig {XMonad.modMask = modMask}) = M.fromList $ -- mod-button1 %! Set the window to floating mode and move by dragging [ ((modMask, button1), (\w -> focus w >> mouseMoveWindow w >> windows W.shiftMaster)) -- mod-button2 %! Raise the window to the top of the stack , ((modMask, button2), (\w -> focus w >> windows W.shiftMaster)) -- mod-button3 %! Set the window to floating mode and resize by dragging , ((modMask, button3), (\w -> focus w >> mouseResizeWindow w >> windows W.shiftMaster)) -- you may also bind events to the mouse scroll wheel (button4 and button5) , ((modMask, button5), (\_ -> moveTo Next NonEmptyWS)) , ((modMask, button4), (\_ -> moveTo Prev NonEmptyWS )) , ((modMask .|. shiftMask, button5), (\w -> focus w >> kill )) ] -- Theme {{{ -- Color names are easier to remember: colorBlack = "#000000" colorOrange = "#ff7701" colorDarkGray = "#171717" colorPink = "#e3008d" colorGreen = "#00aa4a" colorBlue = "#008dd5" colorYellow = "#fee100" colorWhite = "#cfbfad" colorBrightGreen = "#00FF00" colorNormalBorder = "#1c2636" colorFocusedBorder = "#2797d8" barFont = "'-misc-fixed-medium-r-semicondensed--12-110-75-75-c-60-iso8859-1'" barXFont = barFont xftFont = "xft: inconsolata-14" --}}} statusBarCmd = "dzen2" ++ " -bg '" ++ colorBlack ++ "'" ++ " -fg '" ++ colorBlue ++ "'" ++ " -sa c" ++ " -fn '" ++ barXFont ++ "'" ++ " -w 808 -x 114 -y 0 -ta l -e ''" -- Color theme for the window decorations myTheme = defaultTheme { activeColor = blue , inactiveColor = grey , activeBorderColor = blue , inactiveBorderColor = grey , activeTextColor = "white" , inactiveTextColor = "black" , decoHeight = 12 } where blue = "#4a708b" -- same color used by gnome pager grey = "#cccccc" myXPConfig = defaultXPConfig { fgColor = "white" , bgColor = "black" , promptBorderWidth = 0 , position = Bottom , height = 25 } myLayout = smartBorders $ toggleLayouts Full perWS where -- Per workspace layout selection. perWS = onWorkspace "web" (noTitles $ (simpleTabbed ||| mySplit ||| myWide)) $ onWorkspace "term" (noTitles $ (Full ||| myTall2 ||| customRyan)) $ onWorkspace "chatter" (noTitles $ myChat gridFirst) $ onWorkspace "code" (noTitles $ codeFirst) $ onWorkspace "LaTeX" (noTitles $ latexFirst) $ (noTitles $ customRyan) -- Modifies a layout to be desktop friendly with title bars -- and avoid the panel. withTitles l = noFrillsDeco shrinkText myTheme (desktopLayoutModifiers l) -- Modifies a layout to be desktop friendly, but with no title bars -- and avoid the panel. noTitles l = desktopLayoutModifiers l -- Each of these allows toggling through a set of layouts -- in the same logical order, but from a different starting point. codeFirst = myCode ||| myWide ||| myGrid ||| myDish gridFirst = myGrid ||| myDish ||| myCode ||| myWide customRyan = myGrid ||| myDish ||| Accordion ||| myCode ||| myWide ||| simpleCross ||| myFixed ||| myTall latexFirst = myLaTeX ||| myFixed ||| myGrid ||| myTall -- This is a tall-like layout with magnification. -- The master window is fixed at 80 columns wide, making this good -- for coding. Limited to 3 visible windows at a time to ensure all -- are a good size. myCode = limitWindows 3 $ magnifiercz' 1.4 $ FixedColumn 1 20 80 10 -- Stack with one large master window. -- It's easy to overflow a stack to the point that windows are too -- small, so only show first 5. myDish = limitWindows 5 $ Dishes nmaster ratio where -- The default number of windows in the master pane nmaster = 1 -- Default proportion of screen occupied by other panes ratio = 1/5 -- Wide layout with subwindows at the bottom. myWide = Mirror $ Tall nmaster delta ratio where -- 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 = 80/100 -- Split screen, optimized for web browsing. mySplit = magnifiercz' 1.4 $ Tall nmaster delta ratio where -- 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 = 60/100 -- Standard grid. myGrid = Grid myFixed = FixedColumn 1 20 80 10 -- The chat workspace has a roster on the right. myChat base = reflectHoriz $ withIM (1%5) ((And (ClassName "Pidgin") (Role "buddy_list")) `Or` (And (Title "Kopete") (Role "MainWindow#1"))) base where role = stringProperty "WM_WINDOW_ROLE" command = stringProperty "WM_COMMAND" -- LaTeX layout with a XPDF, vim window and small console to run pdflatex -- From -- http://www.haskell.org/haskellwiki/Xmonad/Config_archive/iderrick_xmonad.hs myLaTeX = windowNavigation ( combineTwo (TwoPane delta 0.45) (Full) (combineTwo (Mirror (TwoPane delta 0.85)) (Full) (Full) ) ) where -- Percent of the screen to increment by when resizing panes delta = 3/100 myTall = ResizableTall nmaster delta ratio [50/100] where nmaster = 1 delta = 3/100 ratio = 55/100 myTall2 = ResizableTall nmaster delta ratio [50/100] where nmaster = 1 delta = 3/100 ratio = 1/2 -- Pretty printer {{{ -- dynamiclog pretty printer for dzen mPP h = defaultPP { ppCurrent = wrap ("^fg(" ++ colorOrange ++ ")^bg(" ++ colorBlack ++ ")^p(2)") "^p(2)^fg()^bg()" , ppVisible = wrap ("^fg(" ++ colorBlue ++ ")^bg(" ++ colorBlack ++ ")^p(2)") "^p(2)^fg()^bg()" , ppSep = " ^fg(grey60)^r(1x8)^fg() " , ppLayout = dzenColor colorWhite "" . (\x -> case x of "myCode" -> pad "^i(/home/ryan/.dzen/icons/layout-threecol.xbm)" "myDish" -> pad "^i(/home/ryan/.dzen/icons/layout-im-gimp.xbm)" "myWide" -> pad "^i(/home/ryan/.dzen/icons/layout-mirror-black.xbm)" "mySplit" -> pad "^i(/home/ryan/.dzen/icons/layout-tall-black.xbm)" "myGrid" -> pad "^i(/home/ryan/.dzen/icons/layout-gimp.xbm)" "myChat" -> pad "^i(/home/ryan/.dzen/icons/layout-im.xbm)" "myLaTeX" -> pad "^i(/home/ryan/.dzen/icons/layoput-gimp.xbm)" "Full" -> pad "^i(/home/ryan/.dzen/icons/layout-full.xbm)" _ -> pad $ shorten 10 x ) , ppUrgent = dzenColor colorDarkGray colorYellow . wrap "[" "]" , ppTitle = dzenColor colorWhite "" . trim , ppExtras = [dzenColorL colorYellow "". wrapL mailIcon "" . padL $ gmailCheck, dzenColorL colorBrightGreen "" . wrapL mailIcon "" . padL $ queensuCheck, dzenColorL colorWhite "". padL $ layoutCheck] , ppOutput = hPutStrLn h } where -- logMail = dzenColorL colorPink "" . wrapL mailIcon "". padL $ maildirNew mailDir mailCheck = mailIcon -- <$> gmailCheck <$> queensuCheck mailIcon = "^i(/home/ryan/.dzen/icons/mail.xbm)" --gmailCheck = padL $ (dzenColorL colorRed "" . logCmd "cat /home/ryan/.xmonad/gmailcheck") --queensuCheck = padL $ (dzenColorL colorYellow "" . logCmd "cat /home/ryan/.xmonad/queensucheck") gmailCheck = logCmd "cat /home/ryan/.xmonad/gmailcheck" queensuCheck = logCmd "cat /home/ryan/.xmonad/queensucheck" layoutCheck = logCmd "cat /home/ryan/.xmonad/layout" --}}} -- Commented out because it exposes a bug in xmonad-contrib: --myLogHook = ewmhDesktopsLogHookCustom $ filter $ \w -> W.tag w /= "SP" dk :: KeySym -> KeySym dk k | k == xK_grave = xK_dollar | k == xK_asciitilde = xK_asciitilde | k == xK_1 = xK_ampersand | k == xK_exclam = xK_percent | k == xK_2 = xK_bracketleft | k == xK_at = xK_7 | k == xK_3 = xK_braceleft | k == xK_numbersign = xK_5 | k == xK_4 = xK_braceright | k == xK_dollar = xK_3 | k == xK_5 = xK_parenleft | k == xK_percent = xK_1 | k == xK_6 = xK_equal | k == xK_asciicircum = xK_9 | k == xK_7 = xK_asterisk | k == xK_ampersand = xK_0 | k == xK_8 = xK_parenright | k == xK_asterisk = xK_2 | k == xK_9 = xK_plus | k == xK_parenleft = xK_4 | k == xK_0 = xK_bracketright | k == xK_parenright = xK_6 | k == xK_minus = xK_exclam | k == xK_underscore = xK_8 | k == xK_equal = xK_numbersign | k == xK_plus = xK_grave | k == xK_q = xK_semicolon -- upper row, left side | k == xK_Q = xK_colon | k == xK_w = xK_comma | k == xK_W = xK_less | k == xK_e = xK_period | k == xK_E = xK_greater | k == xK_bracketleft = xK_slash -- upper row, top right | k == xK_braceleft = xK_question | k == xK_bracketright = xK_at | k == xK_braceright = xK_asciicircum | k == xK_R = xK_P | k == xK_T = xK_Y | k == xK_Y = xK_F | k == xK_U = xK_G | k == xK_I = xK_C | k == xK_O = xK_R | k == xK_P = xK_L | k == xK_A = xK_A | k == xK_S = xK_O | k == xK_D = xK_E | k == xK_F = xK_U | k == xK_G = xK_I | k == xK_H = xK_D | k == xK_J = xK_H | k == xK_K = xK_T | k == xK_L = xK_N | k == xK_Z = xK_quotedbl | k == xK_X = xK_Q | k == xK_C = xK_J | k == xK_V = xK_K | k == xK_B = xK_X | k == xK_N = xK_B | k == xK_M = xK_M | k == xK_r = xK_p | k == xK_t = xK_y | k == xK_y = xK_f | k == xK_u = xK_g | k == xK_i = xK_c | k == xK_o = xK_r | k == xK_p = xK_l | k == xK_a = xK_a | k == xK_s = xK_o | k == xK_d = xK_e | k == xK_f = xK_u | k == xK_g = xK_i | k == xK_h = xK_d | k == xK_j = xK_h | k == xK_k = xK_t | k == xK_l = xK_n | k == xK_z = xK_apostrophe | k == xK_x = xK_q | k == xK_c = xK_j | k == xK_v = xK_k | k == xK_b = xK_x | k == xK_n = xK_b | k == xK_m = xK_m | k == xK_comma = xK_w -- bottom right | k == xK_less = xK_W | k == xK_period = xK_v | k == xK_greater = xK_V | k == xK_slash = xK_z | k == xK_question = xK_Z | otherwise = k main = do dzenpipe <- spawnPipe statusBarCmd xmonad $ withUrgencyHookC dzenUrgencyHook { args = ["-bg", "red", "-fg", "yellow", "-x", "1"] } urgencyConfig { remindWhen = Every 30 } --NoUrgencyHook $ defaultConfig { -- kde4Config { workspaces = myWorkspaces , modMask = myMod -- use the Windows button as mod , terminal = myTerminal , normalBorderColor = inactiveBorderColor myTheme , focusedBorderColor = activeBorderColor myTheme , borderWidth = 1 , layoutHook = myLayout , manageHook = manageHook defaultConfig <+> myManageHook -- kde4Config <+> myManageHook , mouseBindings = myMouseBindings , keys = \x -> (M.fromList $ mykeys x) `M.union` dvorakify (keys defaultConfig x) --, logHook = (dynamicLogWithPP $ mPP dzenpipe) >> updatePointer (Relative 0.95 0.95) , logHook = dynamicLogWithPP $ mPP dzenpipe -- , logHook = myLogHook } where myManageHook = composeAll . concat $ [ --[ [ className =? c --> doFloat | c <- myFloats] [ title =? t --> doFloat | t <- myOtherFloats] , [ title =? c --> viewShift "term" | c <- term] , [ className =? c --> viewShift "term" | c <- term2] , [ className =? c --> viewShift "web" | c <- web] , [ className =? c --> viewShift "chatter" | c <- chatter] -- , [ className =? c --> doF (W.shift "plasma") | c <- plasmaD ] , [ className =? c --> doIgnore | c <- panel ] , [ isFullscreen --> doFullFloat ] ] viewShift = doF . liftM2 (.) W.greedyView W.shift mykeys x = [ -- ((myMod, xK_x), spawn myTerminal) -- , ((myMod, xK_c), kill) ((myMod, xK_Left), prevWS) , ((myMod, xK_Right), nextWS) , ((myMod, xK_a), myToggle) , ((myMod, xK_z), shellPrompt myXPConfig) , ((myMod, xK_g), goToSelected defaultGSConfig) , ((myMod, xK_F4), spawn "sleep 0.5 && xset dpms force suspend") , ((myMod, xK_F5), spawn "sleep 0.5 && xset dpms force off") , ((myMod, xK_F6), spawn "sleep 0.5 && /home/ryan/bin/icd") , ((myMod, xK_F7), spawn "sleep 0.5 && /home/ryan/bin/dpr") , ((myMod, xK_l), spawn "xautolock -enable && sleep 1 && xautolock -locknow") , ((myMod .|. shiftMask, xK_l), spawn "xautolock -toggle") , ((myMod .|. myCtrl .|. shiftMask, xK_Right), sendMessage $ Move R) , ((myMod .|. myCtrl .|. shiftMask, xK_Left), sendMessage $ Move L) , ((myMod .|. myCtrl .|. shiftMask, xK_Up), sendMessage $ Move U) , ((myMod .|. myCtrl .|. shiftMask, xK_Down), sendMessage $ Move D) , ((myMod, xK_BackSpace), focusUrgent) -- , ((myMod, xK_Tab), bindOn [("chat", rotSlavesDown), ("", rotAllDown)]) -- , ((myMod .|. shiftMask, xK_Tab), bindOn [("chat", rotSlavesUp), ("", rotAllUp)]) , ((myMod, xK_s), sendMessage $ ToggleLayout)] dvorakify kl = M.fromList $ map (\((m, k), d) -> ((m, dk k), d)) $ M.toList kl myFloats = ["MPlayer", "Plasma-netbook", "Plasma-desktop", "plasma-netbook", "plasma-desktop"] plasmaD = ["Plasma"] myOtherFloats = ["alsamixer"] term = ["ryan@localhost", "root@localhost", "ryan@lambda", "ryan@kappa", "ryan@sho", "Konsole"] -- open on desktop 1 term2 = ["Konsole"] web = ["Firefox", "Iceweasel", "Opera", "Akregator", "Konqueror", "Chromium-browser"] -- open on desktop 2 chatter = ["Ksirc", "Krusader", "xchat", "Quassel", "Pidgin", "Kopete", "kopete"] -- open on desktop 3 games = ["Bzflag"] panel = ["panel", "trayer"] -- Avoid the master window, but otherwise manage new windows normally. 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 otherwise -> c -- A version of toggleWS that ignores the scratchPad workspaces. myToggle = windows $ W.view =<< W.tag . head . filter ((\x -> x /= "NSP" && x /= "SP") . W.tag) . W.hidden