Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

update xmonad rules

  • Loading branch information...
commit a921384b3d3572724f24da6184bc952843519477 1 parent ba20830
Jonathan Rockway authored

Showing 4 changed files with 27 additions and 27 deletions. Show diff stats Hide diff stats

  1. +3 13 Xresources
  2. +1 2  gitconfig
  3. +5 5 xmodmaprc
  4. +18 7 xmonad/xmonad.hs
16 Xresources
... ... @@ -1,17 +1,7 @@
1   -Emacs.font: DejaVu Sans Mono-9.5
2   -Emacs.FontBackend: xft
3   -Emacs.ToolBar: 0
4   -Emacs.verticalScrollBars: off
5 1 URxvt.background: black
6 2 URxvt.foreground: grey90
7   -URxvt.font: xft:DejaVu Sans Mono:size=9:medium:roman:antialias=true:autohint=true
  3 +URxvt.font: xft:DejaVu Sans Mono:size=9:antialias=true:autohint=true
8 4 URxvt.scrollBar: False
9   -URxvt.perl-ext-common: default
10 5 URxvt.fading: 10
11   -Xft.autohint: false
12   -Xft.dpi: 96
13   -Xft.hinting: true
14   -Xft.hintstyle: hintfull
15   -Xft.lcdfilter: lcddefault
16   -Xft.antialias: rgba
17   -Xft.rgba: rgb
  6 +URxvt.perl-ext-common: default,sponge
  7 +URxvt.perl-lib: /home/jrockway/.dotfiles/rxvt_unicode_perl/
3  gitconfig
... ... @@ -1,7 +1,6 @@
1 1 [user]
2 2 name = Jonathan Rockway
3   - email = jon@jrock.us
4   - signingkey = 5BF3666D
  3 + email = jrockway@google.com
5 4 [alias]
6 5 st = status
7 6 di = diff
10 xmodmaprc
... ... @@ -1,8 +1,8 @@
1   -!! swap () and []
2   -keycode 18 = 9 bracketleft
3   -keycode 19 = 0 bracketright
4   -keycode 34 = parenleft braceleft
5   -keycode 35 = parenright braceright
  1 +!! !! swap () and []
  2 +!! keycode 18 = 9 bracketleft
  3 +!! keycode 19 = 0 bracketright
  4 +!! keycode 34 = parenleft braceleft
  5 +!! keycode 35 = parenright braceright
6 6
7 7 !! swap backspace and \ on the RealForce
8 8 keycode 51 = BackSpace
25 xmonad/xmonad.hs
@@ -137,7 +137,7 @@ myKeys conf@(XConfig {XMonad.modMask = modMask}) = M.fromList $
137 137
138 138 -- xmonad prompt
139 139 , ((modMask .|. shiftMask, xK_p ), xmonadPrompt promptConfig)
140   -
  140 +
141 141 -- window prompt
142 142 , ((modMask, xK_semicolon ), windowPromptGoto promptConfig)
143 143 , ((modMask .|. shiftMask, xK_semicolon ), windowPromptBring promptConfig)
@@ -298,17 +298,19 @@ myLayout = myCommonManagers
298 298 -- To match on the WM_NAME, you can use 'title' in the same way that
299 299 -- 'className' and 'resource' are used below.
300 300 --
301   -
  301 +
302 302 -- Emacs syntax higlights lines with --> on it like comments, which annoys me.
303 303 (=->) = (-->)
304   -
  304 +
305 305 myManageHook = composeAll
306   - [ className =? "mplayer2" --> doFloat
  306 + [ className =? "mplayer2" =-> doFloat
307 307 , className =? "Gimp" =-> doFloat
308 308 , className =? "Exe" =-> doFloat
  309 + , className =? "empathy" =-> doFloat
  310 + , className =? "Empathy" =-> doFloat
309 311 , resource =? "desktop_window" =-> doIgnore
310 312 -- chrome chat
311   - , stringProperty "WM_WINDOW_ROLE" =? "crx_eggnbpckecmjlblplehfpjjdhhidfdoj" =-> doFloat
  313 + , stringProperty "WM_WINDOW_ROLE" =? "pop-up" =-> doFloat
312 314 ]
313 315
314 316 -- Whether focus follows the mouse pointer.
@@ -349,18 +351,27 @@ isActiveEvent :: Atom -> Query Bool
349 351 isActiveEvent mt = do
350 352 a_aw <- liftX . getAtom $ "_NET_ACTIVE_WINDOW"
351 353 return $ mt == a_aw
352   -
  354 +
353 355 doEwmhDesktopEventHook = liftX . ewmhDesktopsEventHook
354 356
355 357 myHandleEventHook e@ClientMessageEvent { ev_window = w
356 358 , ev_message_type = mt
357 359 , ev_data = d
  360 + , ev_event_type = event_type
  361 + , ev_serial = serial
  362 + , ev_send_event = send_event
  363 + , ev_event_display = event_display
358 364 } = do
359   - flip runQuery w
  365 + flip runQuery w
360 366 -- run ewmhDesktopsEventHook unless chrome is trying to activate itself
361 367 (notQ (isActiveEvent mt <&&> className =? "Google-chrome")
362 368 --> doEwmhDesktopEventHook e)
363 369
  370 +myHandleEventHook _ = tryTheNextHook
  371 +
  372 +tryTheNextHook = return $ All True
  373 +
  374 +
364 375 ------------------------------------------------------------------------
365 376 -- Now run xmonad with all the defaults we set up.
366 377

0 comments on commit a921384

Please sign in to comment.
Something went wrong with that request. Please try again.