|
|
| Line 1: |
Line 1: |
| [[Category:XMonad configuration]]
| |
| <haskell>
| |
| {-# LANGUAGE FlexibleInstances, MultiParamTypeClasses, TypeSynonymInstances, FlexibleContexts, NoMonomorphismRestriction #-}
| |
|
| |
|
| -- XMonad configuration file by Thomas ten Cate <ttencate@gmail.com>
| |
| --
| |
| -- Works on xmonad-0.8, NOT on 0.7 or below; and of course
| |
| -- xmonad-contrib needs to be installed as well
| |
| --
| |
| -- This is designed to play nice with a standard Ubuntu Hardy installation.
| |
| -- It gives you 10 workspaces, available through Alt+F1..F10. You can move
| |
| -- windows to a workspace with Win+F1..F10 (and you will automatically switch
| |
| -- to that workspace too).
| |
| --
| |
| -- All workspaces except F9 respect panels and docks.
| |
| -- F9 is the fullscreen workspace (for mplayer, etc.).
| |
| -- F10 is the instant messaging workspace.
| |
| --
| |
| -- Pidgin and Skype windows are automatically placed onto the IM workspace.
| |
| -- Their contact lists each get a column on the right side of the screen,
| |
| -- and all their other windows (chat windows, etc.) go into a grid layout
| |
| -- in the remaining space.
| |
| -- (This uses a copied and modified version of XMonad.Layout.IM.)
| |
| --
| |
| -- Keybindings mostly use the Windows key, but some use Alt to mimic other
| |
| -- window managers. In general: Alt is used for navigation, Win for modification.
| |
| -- Some of the bindings resemble the XMonad defaults, but most don't.
| |
| -- The bindings are set up to be comfortable to use on a dvorak keyboard layout.
| |
| --
| |
| -- Navigation:
| |
| -- Alt+F1..F10 switch to workspace
| |
| -- Ctrl+Alt+Left/Right switch to previous/next workspace
| |
| -- Alt+Tab focus next window
| |
| -- Alt+Shift+Tab focus previous window
| |
| --
| |
| -- Window management:
| |
| -- Win+F1..F10 move window to workspace
| |
| -- Win+Up/Down move window up/down
| |
| -- Win+C close window
| |
| -- Alt+ScrollUp/Down move focused window up/down
| |
| -- Win+M move window to master area
| |
| -- Win+N refresh the current window
| |
| -- Alt+LMB move floating window
| |
| -- Alt+MMB resize floating window
| |
| -- Alt+RMB unfloat floating window
| |
| -- Win+T unfloat floating window
| |
| --
| |
| -- Layout management:
| |
| -- Win+Left/Right shrink/expand master area
| |
| -- Win+W/V move more/less windows into master area
| |
| -- Win+Space cycle layouts
| |
| --
| |
| -- Other:
| |
| -- Win+Enter start a terminal
| |
| -- Win+R open the Gnome run dialog
| |
| -- Win+Q restart XMonad
| |
| -- Win+Shift+Q display Gnome shutdown dialog
| |
|
| |
| import XMonad
| |
| import XMonad.Util.EZConfig
| |
| import qualified XMonad.StackSet as S
| |
| import XMonad.Actions.CycleWS
| |
| import XMonad.Config.Gnome
| |
| import XMonad.Hooks.EwmhDesktops
| |
| import XMonad.Hooks.ManageDocks
| |
| import XMonad.Layout.Combo
| |
| import XMonad.Layout.Grid
| |
| import XMonad.Layout.LayoutModifier
| |
| import XMonad.Layout.Named
| |
| import XMonad.Layout.NoBorders
| |
| import XMonad.Layout.PerWorkspace
| |
| import XMonad.Layout.Reflect
| |
| import XMonad.Layout.TwoPane
| |
| import XMonad.Layout.WindowNavigation
| |
| import XMonad.Util.WindowProperties
| |
| import Control.Monad
| |
| import Data.Ratio
| |
| import qualified Data.Map as M
| |
|
| |
| -- defaults on which we build
| |
| -- use e.g. defaultConfig or gnomeConfig
| |
| myBaseConfig = gnomeConfig
| |
|
| |
| -- display
| |
| -- replace the bright red border with a more stylish colour
| |
| myBorderWidth = 2
| |
| myNormalBorderColor = "#202030"
| |
| myFocusedBorderColor = "#A0A0D0"
| |
|
| |
| -- workspaces
| |
| myWorkspaces = ["web", "editor", "terms"] ++ (miscs 5) ++ ["fullscreen", "im"]
| |
| where miscs = map (("misc" ++) . show) . (flip take) [1..]
| |
| isFullscreen = (== "fullscreen")
| |
|
| |
| -- layouts
| |
| basicLayout = Tall nmaster delta ratio where
| |
| nmaster = 1
| |
| delta = 3/100
| |
| ratio = 1/2
| |
| tallLayout = named "tall" $ avoidStruts $ basicLayout
| |
| wideLayout = named "wide" $ avoidStruts $ Mirror basicLayout
| |
| singleLayout = named "single" $ avoidStruts $ noBorders Full
| |
| fullscreenLayout = named "fullscreen" $ noBorders Full
| |
| imLayout = avoidStruts $ reflectHoriz $ withIMs ratio rosters chatLayout where
| |
| chatLayout = Grid
| |
| ratio = 1%6
| |
| rosters = [skypeRoster, pidginRoster]
| |
| pidginRoster = And (ClassName "Pidgin") (Role "buddy_list")
| |
| skypeRoster = (ClassName "Skype") `And` (Not (Title "Options")) `And` (Not (Role "Chats")) `And` (Not (Role "CallWindowForm"))
| |
|
| |
| myLayoutHook = fullscreen $ im $ normal where
| |
| normal = tallLayout ||| wideLayout ||| singleLayout
| |
| fullscreen = onWorkspace "fullscreen" fullscreenLayout
| |
| im = onWorkspace "im" imLayout
| |
|
| |
| -- special treatment for specific windows:
| |
| -- put the Pidgin and Skype windows in the im workspace
| |
| myManageHook = imManageHooks <+> manageHook myBaseConfig
| |
| imManageHooks = composeAll [isIM --> moveToIM] where
| |
| isIM = foldr1 (<||>) [isPidgin, isSkype]
| |
| isPidgin = className =? "Pidgin"
| |
| isSkype = className =? "Skype"
| |
| moveToIM = doF $ S.shift "im"
| |
|
| |
| -- Mod4 is the Super / Windows key
| |
| myModMask = mod4Mask
| |
| altMask = mod1Mask
| |
|
| |
| -- better keybindings for dvorak
| |
| myKeys conf = M.fromList $
| |
| [ ((myModMask , xK_Return), spawn $ XMonad.terminal conf)
| |
| , ((myModMask , xK_r ), gnomeRun)
| |
| , ((myModMask , xK_c ), kill)
| |
| , ((myModMask , xK_space ), sendMessage NextLayout)
| |
| , ((myModMask , xK_n ), refresh)
| |
| , ((myModMask , xK_m ), windows S.swapMaster)
| |
| , ((altMask , xK_Tab ), windows S.focusDown)
| |
| , ((altMask .|. shiftMask , xK_Tab ), windows S.focusUp)
| |
| , ((myModMask , xK_Down ), windows S.swapDown)
| |
| , ((myModMask , xK_Up ), windows S.swapUp)
| |
| , ((myModMask , xK_Left ), sendMessage Shrink)
| |
| , ((myModMask , xK_Right ), sendMessage Expand)
| |
| , ((myModMask , xK_t ), withFocused $ windows . S.sink)
| |
| , ((myModMask , xK_w ), sendMessage (IncMasterN 1))
| |
| , ((myModMask , xK_v ), sendMessage (IncMasterN (-1)))
| |
| , ((myModMask , xK_q ), broadcastMessage ReleaseResources >> restart "xmonad" True)
| |
| , ((myModMask .|. shiftMask, xK_q ), spawn "gnome-session-save --kill")
| |
| , ((altMask .|. controlMask, xK_Left ), prevWS)
| |
| , ((altMask .|. controlMask, xK_Right ), nextWS)
| |
| ] ++
| |
| -- Alt+F1..F10 switches to workspace
| |
| -- (Alt is in a nicer location for the thumb than the Windows key,
| |
| -- and 1..9 keys are already in use by Firefox, irssi, ...)
| |
| [ ((altMask, k), windows $ S.greedyView i)
| |
| | (i, k) <- zip myWorkspaces workspaceKeys
| |
| ] ++
| |
| -- mod+F1..F10 moves window to workspace and switches to that workspace
| |
| [ ((myModMask, k), (windows $ S.shift i) >> (windows $ S.greedyView i))
| |
| | (i, k) <- zip myWorkspaces workspaceKeys
| |
| ]
| |
| where workspaceKeys = [xK_F1 .. xK_F10]
| |
|
| |
| -- mouse bindings that mimic Gnome's
| |
| myMouseBindings (XConfig {XMonad.modMask = modMask}) = M.fromList $
| |
| [ ((altMask, button1), (\w -> focus w >> mouseMoveWindow w))
| |
| , ((altMask, button2), (\w -> focus w >> mouseResizeWindow w))
| |
| , ((altMask, button3), (\w -> focus w >> (withFocused $ windows . S.sink)))
| |
| , ((altMask, button4), (const $ windows S.swapUp))
| |
| , ((altMask, button5), (const $ windows S.swapDown))
| |
| ]
| |
|
| |
| -- put it all together
| |
| main = xmonad $ myBaseConfig
| |
| { modMask = myModMask
| |
| , workspaces = myWorkspaces
| |
| , layoutHook = myLayoutHook
| |
| , manageHook = myManageHook
| |
| , borderWidth = myBorderWidth
| |
| , normalBorderColor = myNormalBorderColor
| |
| , focusedBorderColor = myFocusedBorderColor
| |
| , keys = myKeys
| |
| , mouseBindings = myMouseBindings
| |
| }
| |
|
| |
| -- modified version of XMonad.Layout.IM --
| |
|
| |
| -- | Data type for LayoutModifier which converts given layout to IM-layout
| |
| -- (with dedicated space for the roster and original layout for chat windows)
| |
| data AddRosters a = AddRosters Rational [Property] deriving (Read, Show)
| |
|
| |
| instance LayoutModifier AddRosters Window where
| |
| modifyLayout (AddRosters ratio props) = applyIMs ratio props
| |
| modifierDescription _ = "IMs"
| |
|
| |
| -- | Modifier which converts given layout to IMs-layout (with dedicated
| |
| -- space for rosters and original layout for chat windows)
| |
| withIMs :: LayoutClass l a => Rational -> [Property] -> l a -> ModifiedLayout AddRosters l a
| |
| withIMs ratio props = ModifiedLayout $ AddRosters ratio props
| |
|
| |
| -- | IM layout modifier applied to the Grid layout
| |
| gridIMs :: Rational -> [Property] -> ModifiedLayout AddRosters Grid a
| |
| gridIMs ratio props = withIMs ratio props Grid
| |
|
| |
| hasAnyProperty :: [Property] -> Window -> X Bool
| |
| hasAnyProperty [] _ = return False
| |
| hasAnyProperty (p:ps) w = do
| |
| b <- hasProperty p w
| |
| if b then return True else hasAnyProperty ps w
| |
|
| |
| -- | Internal function for placing the rosters specified by
| |
| -- the properties and running original layout for all chat windows
| |
| applyIMs :: (LayoutClass l Window) =>
| |
| Rational
| |
| -> [Property]
| |
| -> S.Workspace WorkspaceId (l Window) Window
| |
| -> Rectangle
| |
| -> X ([(Window, Rectangle)], Maybe (l Window))
| |
| applyIMs ratio props wksp rect = do
| |
| let stack = S.stack wksp
| |
| let ws = S.integrate' $ stack
| |
| rosters <- filterM (hasAnyProperty props) ws
| |
| let n = fromIntegral $ length rosters
| |
| let (rostersRect, chatsRect) = splitHorizontallyBy (n * ratio) rect
| |
| let rosterRects = splitHorizontally n rostersRect
| |
| let filteredStack = stack >>= S.filter (`notElem` rosters)
| |
| (a,b) <- runLayout (wksp {S.stack = filteredStack}) chatsRect
| |
| return (zip rosters rosterRects ++ a, b)
| |
| </haskell>
| |