diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs index 6ad029b..41cfe6f 100644 --- a/.xmonad/xmonad.hs +++ b/.xmonad/xmonad.hs @@ -52,6 +52,7 @@ mFocusedBorderColor = "#dd0000" -- mKeys = [ ("M-S-n", sendMessage MirrorShrink ) -- Expand current window , ("M-S-t", sendMessage MirrorExpand ) -- Shrink current window + , ("M-r" , warpToCorner ) -- Kill the rodent , ("M-b" , withFocused toggleBorder ) -- Toggle the border of the currently focused window , ("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 @@ -98,6 +99,7 @@ mKeys = [ ("M-S-n", sendMessage MirrorShrink ) -- Expand current window -- zip (map (("M-S-" ++) . show) [1..9]) (map (withNthWorkspace W.shift) [0..]) where -- Make the mouse jump to the middle of the screen for gridselect warpToCentre = gets (W.screen . W.current . windowset) >>= \x -> warpToScreen x 0.5 0.5 + warpToCorner = gets (W.screen . W.current . windowset) >>= \x -> warpToScreen x 1.0 1.0 promptedWs = wsgrid >>= \x -> whenJust x $ \y -> windows $ W.greedyView y 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)) diff --git a/.zshrc b/.zshrc index 6bc5006..ddd4a2b 100644 --- a/.zshrc +++ b/.zshrc @@ -178,7 +178,7 @@ if [ x$DISPLAY != x ] ; then precmd() { [ -z "$WINTITLE" ] && print -Pn "\e]0;%m [%~]\a" || : } preexec() { [ -z "$WINTITLE" ] && print -Pn "\e]0;%m [$1]\a" || : } fi -alias resize="printf '\33]50;%s%d\007' 'xft:Terminus:pixelsize=' $1 ':antialias=true'" +alias resize="printf '\33]50;%s%d\007' 'xft:Terminus:pixelsize=' $1" # ':antialias=true'" alias asdf="xkbcomp -w0 ~/keymaps/xkb/hunner.xkb $DISPLAY" alias auie="xkbcomp -w0 ~/keymaps/xkb/hunner.xkb $DISPLAY" alias aoeu='setxkbmap us'