hunner/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Spiffy new keysyms for Bépo

Browse source
This commit is contained in:
Hunter Haugen 2009-12-13 01:46:43 +05:30
parent a497ff0398
commit c521e6788a
1 changed files with 26 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

43
.xmonad/xmonad.hs
View file

@ -20,7 +20,7 @@ import XMonad.Actions.NoBorders
import XMonad.Actions.Warp(warpToScreen) import XMonad.Actions.Warp(warpToScreen)
import XMonad.Actions.WindowBringer import XMonad.Actions.WindowBringer
import XMonad.Prompt import XMonad.Prompt
import XMonad.Util.EZConfig (additionalKeysP) import XMonad.Util.EZConfig
import XMonad.Hooks.EwmhDesktops import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ManageHelpers import XMonad.Hooks.ManageHelpers
import XMonad.Hooks.SetWMName import XMonad.Hooks.SetWMName
@ -32,7 +32,7 @@ import qualified XMonad.StackSet as W
import qualified Data.Map as M import qualified Data.Map as M
-- mTerminal = "urxvt;ps -U $USER |grep dzen2|awk '{print $1}'|xargs kill -USR1" -- mTerminal = "urxvt;ps -U $USER |grep dzen2|awk '{print $1}'|xargs kill -USR1"
mTerminal = "urxvt" mTerminal = "urxvtc"
mBorderWidth = 1 mBorderWidth = 1
mModMask = mod4Mask mModMask = mod4Mask
@ -99,6 +99,9 @@ mKeys = [ ("M-S-n", sendMessage MirrorShrink ) -- Expand current window
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 . 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)) --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))
mKeysExt = [((m .|. mModMask, k), f i) -- changing workspaces with bébo
| (i, k) <- zip ([0..]) [0x22,0xab,0xbb,0x28,0x29,0x40,0x2b,0x2d,0x2f,0x2a]
, (f, m) <- [(withNthWorkspace W.greedyView, 0), (withNthWorkspace W.shift, shiftMask)]]
{- {-
[10:28] dschoepe : gets (map W.tag . W.workspaces . windowset) should work [10:28] dschoepe : gets (map W.tag . W.workspaces . windowset) should work
[10:31] aavogt : somewhat useful variation on that is: [10:31] aavogt : somewhat useful variation on that is:
@ -109,7 +112,7 @@ mKeys = [ ("M-S-n", sendMessage MirrorShrink ) -- Expand current window
-} -}
mXPConfig :: XPConfig mXPConfig :: XPConfig
mXPConfig = defaultXPConfig { fgColor = "#dd0000", bgColor = "black", borderColor = "#dd0000" } mXPConfig = defaultXPConfig { fgColor = "#007998", bgColor = "#222222", borderColor = "#007998" }
gsConfig = defaultGSConfig gsConfig = defaultGSConfig
{ gs_navigate = M.unions { gs_navigate = M.unions
@ -159,12 +162,16 @@ mManageHook = composeAll
, title =? "VLC media player" --> doFloat , title =? "VLC media player" --> doFloat
, className =? "Gimp" --> doFloat , className =? "Gimp" --> doFloat
, className =? "Anki" --> doFloat , className =? "Anki" --> doFloat
, className =? "XCalc" --> doFloat
, className =? "XClock" --> doFloat
, className =? "Skype" --> doFloat , className =? "Skype" --> doFloat
, className =? "googleearth" --> doFloat , className =? "googleearth" --> doFloat
, className =? "Pidgin" --> doFloat , className =? "Pidgin" --> doFloat
, className =? "mangclient" --> doFloat , className =? "mangclient" --> doFloat
, className =? "CellWriter" --> doFloat , className =? "CellWriter" --> doFloat
, className =? "Gvba" --> doFloat , className =? "Gvba" --> doFloat
, className =? "Thunar" --> doFloat
, className =? "feh" --> doFloat
, className =? "Cellwriter" --> doIgnore , className =? "Cellwriter" --> doIgnore
, resource =? "desktop_window" --> doIgnore , resource =? "desktop_window" --> doIgnore
, resource =? "kdesktop" --> doIgnore , resource =? "kdesktop" --> doIgnore
@ -195,17 +202,19 @@ pickyFocusEventHook _ = return $ All True
-- Run xmonad! -- Run xmonad!
-- --
main = do main = xmonad $ mConfig
xmonad $ defaultConfig mConfig = defaultConfig
{ terminal = mTerminal { terminal = mTerminal
, focusFollowsMouse = mFocusFollowsMouse , focusFollowsMouse = mFocusFollowsMouse
, borderWidth = mBorderWidth , borderWidth = mBorderWidth
, modMask = mModMask , modMask = mModMask
, workspaces = mWorkspaces , workspaces = mWorkspaces
, normalBorderColor = mNormalBorderColor , normalBorderColor = mNormalBorderColor
, focusedBorderColor = mFocusedBorderColor , focusedBorderColor = mFocusedBorderColor
, layoutHook = mLayout , layoutHook = mLayout
, manageHook = mManageHook , manageHook = mManageHook
, handleEventHook = pickyFocusEventHook , handleEventHook = pickyFocusEventHook
, startupHook = ewmhDesktopsStartup >> setWMName "LG3D" , startupHook = do
} `additionalKeysP` mKeys ewmhDesktopsStartup >> setWMName "LG3D"
return () >> checkKeymap mConfig mKeys
} `additionalKeysP` mKeys `additionalKeys` mKeysExt