From c8b8684dc73616d341a6f94cedea5adde0de8072 Mon Sep 17 00:00:00 2001 From: Justin Bogner Date: Fri, 23 May 2008 20:59:08 +0200 Subject: add close window functionality to EwmhDesktops darcs-hash:20080523185908-18f27-f75ad5984394063aa1fa03cb7e281f6993b840fd.gz --- XMonad/Hooks/EwmhDesktops.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'XMonad/Hooks/EwmhDesktops.hs') diff --git a/XMonad/Hooks/EwmhDesktops.hs b/XMonad/Hooks/EwmhDesktops.hs index 562ce7b..89599f3 100644 --- a/XMonad/Hooks/EwmhDesktops.hs +++ b/XMonad/Hooks/EwmhDesktops.hs @@ -123,6 +123,7 @@ handle ClientMessageEvent { a_cd <- getAtom "_NET_CURRENT_DESKTOP" a_d <- getAtom "_NET_WM_DESKTOP" a_aw <- getAtom "_NET_ACTIVE_WINDOW" + a_cw <- getAtom "_NET_CLOSE_WINDOW" if mt == a_cd then do let n = fromIntegral (head d) if 0 <= n && n < length ws then @@ -135,6 +136,9 @@ handle ClientMessageEvent { else trace $ "Bad _NET_DESKTOP with data[0]="++show n else if mt == a_aw then do windows $ W.focusWindow w + else if mt == a_cw then do + windows $ W.focusWindow w + kill else trace $ "Unknown ClientMessageEvent " ++ show mt handle _ = undefined -- does not happen, as otherwise ewmhDesktopsHook would not match -- cgit v1.2.3