Difference between revisions of "Xmonad/Config archive/TeXitoi's xmonad.hs"
< Xmonad | Config archive
Jump to navigation
Jump to search
Line 17: | Line 17: | ||
logHook = logHook desktopConfig >> fadeInactiveLogHook 0xcccccccc >> setWMName "LG3D", |
logHook = logHook desktopConfig >> fadeInactiveLogHook 0xcccccccc >> setWMName "LG3D", |
||
layoutHook = desktopLayoutModifiers . smartBorders $ tiled ||| Full, |
layoutHook = desktopLayoutModifiers . smartBorders $ tiled ||| Full, |
||
+ | manageHook = myManageHook <+> manageHook desktopConfig, |
||
workspaces = map show [1..8], |
workspaces = map show [1..8], |
||
focusedBorderColor = "#729fcf", |
focusedBorderColor = "#729fcf", |
||
Line 28: | Line 29: | ||
mykeys conf@(XConfig {modMask = modm}) = M.fromList $ |
mykeys conf@(XConfig {modMask = modm}) = M.fromList $ |
||
− | [(( |
+ | [((modm, xK_semicolon), sendMessage (IncMasterN (-1))), |
+ | ((mod1Mask, xK_Tab), windows W.focusDown), |
||
((mod1Mask .|. shiftMask, xK_Tab), windows W.focusUp), |
((mod1Mask .|. shiftMask, xK_Tab), windows W.focusUp), |
||
((mod4Mask, xK_i), sendMessage NextLayout)] |
((mod4Mask, xK_i), sendMessage NextLayout)] |
||
++ |
++ |
||
− | [((m .|. modm, k), windows $ f i) |
+ | [((m .|. modm, k), windows $ f i) |
− | (i, k) <- zip (workspaces conf) numbepo, |
+ | | (i, k) <- zip (workspaces conf) numbepo, |
− | (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]] |
+ | (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]] |
numbepo = [0x22,0xab,0xbb,0x28,0x29,0x40,0x2b,0x2d,0x2f,0x2a] |
numbepo = [0x22,0xab,0xbb,0x28,0x29,0x40,0x2b,0x2d,0x2f,0x2a] |
||
numazerty = [0x26,0xe9,0x22,0x27,0x28,0x2d,0xe8,0x5f,0xe7,0xe0] |
numazerty = [0x26,0xe9,0x22,0x27,0x28,0x2d,0xe8,0x5f,0xe7,0xe0] |
||
+ | |||
+ | myManageHook = composeAll |
||
+ | [className =? "Midori" --> doShift "2", |
||
+ | className =? "Gajim.py" --> doShift "3", |
||
+ | className =? "Gmpc" --> doShift "4"] |
||
</haskell> |
</haskell> |
Revision as of 20:26, 18 March 2010
import XMonad
import XMonad.Config.Desktop
import XMonad.Hooks.FadeInactive
import XMonad.Hooks.SetWMName
import XMonad.Layout.NoBorders
import qualified XMonad.Layout.HintedTile as HT
import qualified Data.Map as M
import qualified XMonad.StackSet as W
import Data.Bits ((.|.))
main = xmonad desktopConfig {
modMask = mod4Mask,
terminal = "urxvtc",
keys = \c -> mykeys c `M.union` keys desktopConfig c,
logHook = logHook desktopConfig >> fadeInactiveLogHook 0xcccccccc >> setWMName "LG3D",
layoutHook = desktopLayoutModifiers . smartBorders $ tiled ||| Full,
manageHook = myManageHook <+> manageHook desktopConfig,
workspaces = map show [1..8],
focusedBorderColor = "#729fcf",
normalBorderColor = "#aaaaaa"
}
tiled = HT.HintedTile nmaster delta ratio HT.TopLeft HT.Tall where
nmaster = 1
ratio = 1/2
delta = 3/100
mykeys conf@(XConfig {modMask = modm}) = M.fromList $
[((modm, xK_semicolon), sendMessage (IncMasterN (-1))),
((mod1Mask, xK_Tab), windows W.focusDown),
((mod1Mask .|. shiftMask, xK_Tab), windows W.focusUp),
((mod4Mask, xK_i), sendMessage NextLayout)]
++
[((m .|. modm, k), windows $ f i)
| (i, k) <- zip (workspaces conf) numbepo,
(f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]]
numbepo = [0x22,0xab,0xbb,0x28,0x29,0x40,0x2b,0x2d,0x2f,0x2a]
numazerty = [0x26,0xe9,0x22,0x27,0x28,0x2d,0xe8,0x5f,0xe7,0xe0]
myManageHook = composeAll
[className =? "Midori" --> doShift "2",
className =? "Gajim.py" --> doShift "3",
className =? "Gmpc" --> doShift "4"]