Browse files

Manage urgency hints; jumps to last urgent app

  • Loading branch information...
1 parent 0d3a213 commit 113c6a3b95a642c7488d983b9e58deff198b581c @vincentg committed May 2, 2011
Showing with 8 additions and 5 deletions.
  1. +1 −0 .Xdefaults
  2. +7 −5 .xmonad/xmonad.hs
View
1 .Xdefaults
@@ -4,4 +4,5 @@ urxvt*background:Black
urxvt*foreground:White
urxvt*scrollBar:false
urxvt*saveLines:32767
+urxvt*urgentOnBell:true
urxvt*termName:xterm-color
View
12 .xmonad/xmonad.hs
@@ -2,6 +2,7 @@
import XMonad
import XMonad.Hooks.DynamicLog
+import XMonad.Hooks.UrgencyHook
import XMonad.Hooks.ManageDocks
import XMonad.Util.Run
import XMonad.Actions.CycleWS
@@ -116,10 +117,10 @@ myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
-- Restart xmonad
, ((modm , xK_q ), spawn "xmonad --recompile; xmonad --restart")
-
- -- Lock the screen
- , ((modm , xK_l ), spawn "xscreensaver-command -lock")
-
+
+ -- Urgency management (goto the most recent urgent windows, or clear urgency)
+ , ((modm , xK_u ), focusUrgent)
+ , ((modm .|. shiftMask, xK_u ), clearUrgents)
]
++
@@ -242,7 +243,8 @@ myStartupHook = return ()
--
main = do
xmproc <- spawnPipe "/usr/bin/xmobar /home/vincent/.xmobarrc"
- xmonad $ defaultConfig {
+ xmonad $ withUrgencyHook NoUrgencyHook
+ $ defaultConfig {
terminal = myTerminal,
focusFollowsMouse = myFocusFollowsMouse,
borderWidth = myBorderWidth,

0 comments on commit 113c6a3

Please sign in to comment.