Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

update xmonad rules

  • Loading branch information...
commit a921384b3d3572724f24da6184bc952843519477 1 parent ba20830
@jrockway authored
Showing with 27 additions and 27 deletions.
  1. +3 −13 Xresources
  2. +1 −2  gitconfig
  3. +5 −5 xmodmaprc
  4. +18 −7 xmonad/xmonad.hs
View
16 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/
View
3  gitconfig
@@ -1,7 +1,6 @@
[user]
name = Jonathan Rockway
- email = jon@jrock.us
- signingkey = 5BF3666D
+ email = jrockway@google.com
[alias]
st = status
di = diff
View
10 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
View
25 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.
Please sign in to comment.
Something went wrong with that request. Please try again.