update xmonad rules

Xresources

@@ -1,17 +1,7 @@
-Emacs.font: DejaVu Sans Mono-9.5
-Emacs.FontBackend: xft
-Emacs.ToolBar: 0
-Emacs.verticalScrollBars: off
 URxvt.background: black
 URxvt.foreground: grey90
-URxvt.font: xft:DejaVu Sans Mono:size=9:medium:roman:antialias=true:autohint=true
+URxvt.font: xft:DejaVu Sans Mono:size=9:antialias=true:autohint=true
 URxvt.scrollBar: False
-URxvt.perl-ext-common: default
 URxvt.fading: 10
-Xft.autohint: false
-Xft.dpi: 96
-Xft.hinting: true
-Xft.hintstyle: hintfull
-Xft.lcdfilter: lcddefault
-Xft.antialias: rgba
-Xft.rgba: rgb
+URxvt.perl-ext-common: default,sponge
+URxvt.perl-lib: /home/jrockway/.dotfiles/rxvt_unicode_perl/

gitconfig

@@ -1,7 +1,6 @@
 [user]
 	name = Jonathan Rockway
-	email = jon@jrock.us
-	signingkey = 5BF3666D
+	email = jrockway@google.com
 [alias]
 	st = status
 	di = diff

xmodmaprc

@@ -1,8 +1,8 @@
-!! swap () and []
-keycode  18 = 9 bracketleft
-keycode  19 = 0 bracketright
-keycode  34 = parenleft braceleft
-keycode  35 = parenright braceright
+!! !! swap () and []
+!! keycode  18 = 9 bracketleft
+!! keycode  19 = 0 bracketright
+!! keycode  34 = parenleft braceleft
+!! keycode  35 = parenright braceright
 
 !! swap backspace and \ on the RealForce
 keycode 51 = BackSpace

xmonad/xmonad.hs

@@ -137,7 +137,7 @@ myKeys conf@(XConfig {XMonad.modMask = modMask}) = M.fromList $
 
     -- xmonad prompt
     , ((modMask .|. shiftMask, xK_p     ), xmonadPrompt promptConfig)
-      
+
     -- window prompt
     , ((modMask, xK_semicolon                   ), windowPromptGoto  promptConfig)
     , ((modMask .|. shiftMask, xK_semicolon     ), windowPromptBring promptConfig)
@@ -298,17 +298,19 @@ myLayout = myCommonManagers
 -- To match on the WM_NAME, you can use 'title' in the same way that
 -- 'className' and 'resource' are used below.
 --
-     
+
 -- Emacs syntax higlights lines with --> on it like comments, which annoys me.
 (=->) = (-->)
-     
+
 myManageHook = composeAll
-    [ className =? "mplayer2"          --> doFloat
+    [ className =? "mplayer2"          =-> doFloat
     , className =? "Gimp"              =-> doFloat
     , className =? "Exe"               =-> doFloat
+    , className =? "empathy"           =-> doFloat
+    , className =? "Empathy"           =-> doFloat
     , resource  =? "desktop_window"    =-> doIgnore
       -- chrome chat
-    , stringProperty "WM_WINDOW_ROLE" =? "crx_eggnbpckecmjlblplehfpjjdhhidfdoj" =-> doFloat
+    , stringProperty "WM_WINDOW_ROLE" =? "pop-up" =-> doFloat
     ]
 
 -- Whether focus follows the mouse pointer.
@@ -349,18 +351,27 @@ isActiveEvent :: Atom -> Query Bool
 isActiveEvent mt = do
   a_aw <- liftX . getAtom $ "_NET_ACTIVE_WINDOW"
   return $ mt == a_aw
-  
+
 doEwmhDesktopEventHook = liftX . ewmhDesktopsEventHook
 
 myHandleEventHook e@ClientMessageEvent { ev_window = w
                                        , ev_message_type = mt
                                        , ev_data = d
+                                       , ev_event_type = event_type
+                                       , ev_serial = serial
+                                       , ev_send_event = send_event
+                                       , ev_event_display = event_display
                                        } = do
-  flip runQuery w 
+  flip runQuery w
     -- run ewmhDesktopsEventHook unless chrome is trying to activate itself
     (notQ (isActiveEvent mt <&&> className =? "Google-chrome")
     --> doEwmhDesktopEventHook e)
 
+myHandleEventHook _ = tryTheNextHook
+
+tryTheNextHook = return $ All True
+
+
 ------------------------------------------------------------------------
 -- Now run xmonad with all the defaults we set up.