diff options
| author | Spencer Janssen <spencerjanssen@gmail.com> | 2009-01-17 04:49:59 +0100 |
|---|---|---|
| committer | Spencer Janssen <spencerjanssen@gmail.com> | 2009-01-17 04:49:59 +0100 |
| commit | 68e608ccff6a880650421e1fa99b60239ba42b59 (patch) | |
| tree | 173e1553bbe2a875c1e90fa50d6c9fe32f1c5554 /XMonad/Main.hs | |
| parent | ba7c1d66d1e68aa75cd33426ed2078e050d762cd (diff) | |
| download | xmonad-68e608ccff6a880650421e1fa99b60239ba42b59.tar.gz xmonad-68e608ccff6a880650421e1fa99b60239ba42b59.tar.xz xmonad-68e608ccff6a880650421e1fa99b60239ba42b59.zip | |
Add --restart, a command line flag to cause a running xmonad process to restart
Ignore-this: 45c8c8aba7cc7391b95c7e3fb01e5bf9
darcs-hash:20090117034959-25a6b-794fb65d26a59f6ca34b16538c35dc3c266ced7d.gz
Diffstat (limited to '')
| -rw-r--r-- | XMonad/Main.hsc | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/XMonad/Main.hsc b/XMonad/Main.hsc index 99bc77f..27295ba 100644 --- a/XMonad/Main.hsc +++ b/XMonad/Main.hsc @@ -280,6 +280,12 @@ handle (ConfigureEvent {ev_window = w}) = whenX (isRoot w) rescreen handle PropertyEvent { ev_event_type = t, ev_atom = a } | t == propertyNotify && a == wM_NAME = userCodeDef () =<< asks (logHook . config) +handle e@ClientMessageEvent { ev_message_type = mt } = do + a <- getAtom "XMONAD_RESTART" + if (mt == a) + then restart "xmonad" True + else broadcastMessage e + handle e = broadcastMessage e -- trace (eventName e) -- ignoring |