dotfiles/xmonad.hs

import XMonad
import XMonad.Config.Gnome
import XMonad.Config.Desktop
import XMonad.Hooks.ManageHelpers (isFullscreen,doFullFloat)
import XMonad.Layout.Tabbed
import XMonad.Util.EZConfig
import XMonad.Actions.CycleWS
import XMonad.Layout.ResizableTile
import XMonad.Actions.WindowGo
import XMonad.Util.Scratchpad (scratchpadSpawnAction, scratchpadSpawnActionTerminal, scratchpadManageHook, scratchpadFilterOutWorkspace)
import XMonad.Layout.WindowNavigation
import XMonad.Actions.FloatSnap
import XMonad.Actions.PhysicalScreens
import XMonad.Layout.BorderResize
import XMonad.Layout.TwoPane
import XMonad.Layout.Combo
import XMonad.Layout.Grid
import XMonad.Layout.IM
import Data.Ratio ((%))
import XMonad.Layout.PerWorkspace

import qualified XMonad.Actions.FlexibleManipulate as Flex
import qualified XMonad.StackSet as W
import qualified Data.Map as M

modm = mod1Mask

myTerminal :: String
-- myTerminal = "$XTERMCMD"
myTerminal = "xterm"
myScratchPad = scratchpadSpawnActionTerminal myTerminal

myDefaultLayoutHook = windowNavigation $ desktopLayoutModifiers $ 
            -- fullscreen with tabs
                simpleTabbedAlways
            -- Two panes, each one with its own tabs
            ||| combineTwo (TwoPane 0.03 0.5) simpleTabbed simpleTabbed
            -- 2/3 of the screen for a master window, other ones on the right
            ||| ResizableTall 1 (3/100) (2/3) []
            ||| GridRatio (4/3)

            -- buddy lists on a small vertical pane at right,
            -- master windows on top of the remaining space, other ones below
myIMLayoutHook = windowNavigation $ desktopLayoutModifiers $
            withIM (10/100) -- keep a small column on the right…
                (Or (Or (Role "buddy_list") (Role "contact_list")) (ClassName "gimp-toolbox")) -- … for buddy lists
                (Mirror(ResizableTall 1 (3/100) (41/60) [0.75,1.25,1])) -- a large master on top, getting ~ two-third of the screen, the first slave on left being a bit larger than the others

myLayoutHook = onWorkspace "1" myIMLayoutHook $ myDefaultLayoutHook

main = xmonad $ gnomeConfig
    {
          terminal = myTerminal
        , XMonad.modMask = modm
        , focusedBorderColor = "#ffbb00"
        , borderWidth = 3
        -- Switch workspaces with default first azerty row instead of plain numbers
        , keys = \c -> bepoKeys c `M.union` keys gnomeConfig c
        , manageHook = manageHook gnomeConfig <+> manageScratchPad <+> composeAll 
            [
                className =? "Thunderbird" --> doShift "1",
                className =? "Xchat"       --> doShift "1",
                className =? "Pidgin"      --> doShift "1",
                className =? "XClock"     --> doShift "1",
                className =? "Gimp"        --> doFloat
            ]

        -- add a fullscreen tabbed layout that does not avoid covering
        -- up desktop panels before the desktop layouts
        -- desktopLayoutModifiers still allow toggling panel visibility
        , layoutHook = myLayoutHook
    }
        -- Simple notation ala emacs
    `removeKeysP`
        [
            ("M-<Space>")
            , ("M-S-<Up>")
        ]
    `additionalKeysP`
        [
            -- Quit session
              ("M-S-q",  spawn "gnome-session-quit")
            -- Lock Screen
            , ("M-l",  spawn "gnome-screensaver-command -l")
            -- Close focused window
            , ("M-c",  kill )
            , ("M-b d",  kill )
            , ("M-x",  kill )
            -- Got to workspaces
            , ("M-b p",   prevWS )
            , ("M-b n",   nextWS )
            , ("C-M-<Left>",   prevWS )
            , ("C-M-<Right>",   nextWS )
            -- Move windows among workspaces
            , ("M-u <Left>",  shiftToPrev )
            , ("M-u <Right>", shiftToNext )
            -- Shrink the master area
            , ("M-S-r", sendMessage Shrink)
            -- Expand the master area
            , ("M-r", sendMessage Expand)
            -- Increment the number of windows in the master area
            , ("M-s", sendMessage (IncMasterN 1))
            -- Deincrement the number of windows in the master area
            , ("M-S-s", sendMessage (IncMasterN (-1)))
            -- Cycle through the available layout algorithms
            , ("M-<Return>", sendMessage NextLayout)

            -- Move focus with arrows
            , ("M-<Right>", sendMessage $ Go R)
            , ("M-<Left>", sendMessage $ Go L)
            , ("M-<Up>", sendMessage $ Go U)
            , ("M-<Down>", sendMessage $ Go D)

            -- Swap windows with arrows
            , ("M-S-<Right>", sendMessage $ Swap R)
            , ("M-S-<Left>", sendMessage $ Swap L)
            , ("M-S-<Up>", sendMessage $ Swap U)
            , ("M-S-<Down>", sendMessage $ Swap D)

            -- Swap windows within tabbed two panes
            , ("M-S-<Home>", sendMessage $ Move L)
            , ("M-S-<End>", sendMessage $ Move R)
            , ("M-S-<Page_Up>", sendMessage $ Move U)
            , ("M-S-<Page_Down>", sendMessage $ Move D)

            -- Swap the focused window and the master window
            , ("M-S-<Return>", windows W.swapMaster)

            -- Move focus to the master window
            , ("M-m", windows W.focusMaster  )
            -- Scratchpad
            , ("M-<Space>", myScratchPad )
            , ("M-<XF86Calculator>", myScratchPad )

            -- Move focus to the next physical xinerama screen
            , ("M-$", onPrevNeighbour W.view)

            , ("<XF86HomePage>", runOrRaise "firefox" (className =? "Firefox" <||> className =? "Firefox-bin"))
            , ("<XF86Mail>", spawn "thunderbird -remote \"xfeDoCommand(composeMessage)\"")
	]
-- Extended notation, for F keys (?)
    `additionalKeys` 
        [
              ((modm, xK_F1), spawn "xterm")
            , ((modm, xK_F2), spawn "gmrun")
            -- Launch firefox or raise its window if already running
            , ((modm, xK_F4), runOrRaise "firefox" (className =? "Firefox" <||> className =? "Firefox-bin"))
            -- Launch firefox or raise its window if already running
            , ((modm, xK_F5), spawn "nautilus --no-desktop")
        ]
    `additionalMouseBindings`
        [
            -- Move window with M-mouse1
              ((modm, 1), (\w -> focus w >> windows W.shiftMaster >> Flex.mouseWindow Flex.position w >> snapMagicMove (Just 50) (Just 50) w))
            -- Resize windows with M-mouse3
            , ((modm, 3), (\w -> focus w >> windows W.shiftMaster >> Flex.mouseWindow Flex.resize w >> snapMagicMouseResize 100 (Just 50) (Just 50) w))
        ]


-- Workspace switching using first row keycodes
-- for keyboards that do not use numbers here

-- bépo with «/» switched with </>
numBepoNoj = [0x22,0x3c,0x3e,0x28,0x29,0x40,0x2b,0x2d,0x2f,0x2a]
-- normal bépo
numBepo = [0x22,0xab,0xbb,0x28,0x29,0x40,0x2b,0x2d,0x2f,0x2a]
-- azerty
numAzerty = [0x26,0xe9,0x22,0x27,0x28,0x2d,0xe8,0x5f,0xe7,0xe0]

bepoConfig = gnomeConfig { keys = bepoKeys <+> keys gnomeConfig }
bepoKeys conf@(XConfig {modMask = modm}) = M.fromList $
    [((m .|. modm, k), windows $ f i)
        | (i, k) <- zip (workspaces conf) numBepoNoj,
          (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]]

manageScratchPad :: ManageHook
manageScratchPad = scratchpadManageHook (W.RationalRect l t w h)
  where
    h = 0.5     -- terminal height, 10%
    w = 0.5       -- terminal width, 100%
    t = 0.25   -- distance from top edge, 90%
    l = 0.25   -- distance from left edge, 0%