diff options
| author | Daniel Schoepe <asgaroth_@gmx.de> | 2009-01-10 23:18:52 +0100 |
|---|---|---|
| committer | Daniel Schoepe <asgaroth_@gmx.de> | 2009-01-10 23:18:52 +0100 |
| commit | 0983b157023be1556f7b34372786e61264cf8a0b (patch) | |
| tree | e648564798a0353aa022269891cc4c750a340b3c /XMonad/Main.hsc | |
| parent | 6dbfcf78c007bb15d2befc76134657dfb7b3520c (diff) | |
| download | metatile-0983b157023be1556f7b34372786e61264cf8a0b.tar metatile-0983b157023be1556f7b34372786e61264cf8a0b.zip | |
More flexible userCode function
darcs-hash:20090110221852-cb1c6-80f042287c9c6b704a37a2704e29841416aeca9b
Diffstat (limited to 'XMonad/Main.hsc')
| -rw-r--r-- | XMonad/Main.hsc | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Main.hsc b/XMonad/Main.hsc index 8e3eea8..531939e 100644 --- a/XMonad/Main.hsc +++ b/XMonad/Main.hsc @@ -176,7 +176,7 @@ handle (KeyEvent {ev_event_type = t, ev_state = m, ev_keycode = code}) s <- io $ keycodeToKeysym dpy code 0 mClean <- cleanMask m ks <- asks keyActions - userCode $ whenJust (M.lookup (mClean, s) ks) id + userCodeDef () $ whenJust (M.lookup (mClean, s) ks) id -- manage a new window handle (MapRequestEvent {ev_window = w}) = withDisplay $ \dpy -> do @@ -279,7 +279,7 @@ handle (ConfigureEvent {ev_window = w}) = whenX (isRoot w) rescreen -- property notify handle PropertyEvent { ev_event_type = t, ev_atom = a } - | t == propertyNotify && a == wM_NAME = userCode =<< asks (logHook . config) + | t == propertyNotify && a == wM_NAME = userCodeDef () =<< asks (logHook . config) handle e = broadcastMessage e -- trace (eventName e) -- ignoring |