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

Updated with sticky windows (all done in emacs :o)

Browse source
This commit is contained in:
Hunter Haugen 2009-11-29 17:03:05 +05:30
parent 7a1b0e4178
commit 43b133e30c
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
.xmonad/xmonad.hs
View file

@ -4,7 +4,6 @@
{-# LANGUAGE NoMonomorphismRestriction #-} {-# LANGUAGE NoMonomorphismRestriction #-}
import XMonad hiding (Tall) import XMonad hiding (Tall)
import System.Exit import System.Exit
import XMonad.Layout.NoBorders (noBorders, smartBorders) import XMonad.Layout.NoBorders (noBorders, smartBorders)
@ -56,6 +55,10 @@ mKeys = [ ("M-S-n", sendMessage MirrorShrink ) -- Expand current window
, ("M-g" , warpToCentre >> promptedWs) -- Gridselect to pick windows , ("M-g" , warpToCentre >> promptedWs) -- Gridselect to pick windows
, ("M-S-b", spawn "ps -U hunner|grep dzen2|awk '{print $1}'|xargs kill -USR1") -- Bring dzen to the front , ("M-S-b", spawn "ps -U hunner|grep dzen2|awk '{print $1}'|xargs kill -USR1") -- Bring dzen to the front
-- Sticky/unsticky windows (does not work on workspaces created after the fact)
, ("M-a" , windows copyToAll) -- Copy focused window to all workspaces
, ("M-S-a", killAllOtherCopies) -- Uncopy focused window from all workspaces
-- Goes to window or bring up window -- Goes to window or bring up window
--, ("M-S-g", gotoMenu) --, ("M-S-g", gotoMenu)
--, ("M-S-b", bringMenu) --, ("M-S-b", bringMenu)
@ -96,7 +99,6 @@ 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))
{- {-
[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:
@ -161,7 +163,6 @@ mManageHook = composeAll
, className =? "googleearth" --> doFloat , className =? "googleearth" --> doFloat
, className =? "Pidgin" --> doFloat , className =? "Pidgin" --> doFloat
, className =? "mangclient" --> doFloat , className =? "mangclient" --> doFloat
, className =? "Emacs" --> doFloat
, className =? "CellWriter" --> doFloat , className =? "CellWriter" --> doFloat
, className =? "Gvba" --> doFloat , className =? "Gvba" --> doFloat
, className =? "Cellwriter" --> doIgnore , className =? "Cellwriter" --> doIgnore