From bcaf3771d9503f1b0d01a2c15ca0712ee454342f Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Thu, 29 Oct 2015 01:49:27 +0100
Subject: tv: {2configs/xserver => 5pkgs}/xmonad-tv

---
 tv/2configs/xserver/xmonad/Util/Shutdown.hs | 53 -----------------------------
 1 file changed, 53 deletions(-)
 delete mode 100644 tv/2configs/xserver/xmonad/Util/Shutdown.hs

(limited to 'tv/2configs/xserver/xmonad/Util/Shutdown.hs')

diff --git a/tv/2configs/xserver/xmonad/Util/Shutdown.hs b/tv/2configs/xserver/xmonad/Util/Shutdown.hs
deleted file mode 100644
index 89e22b4e7..000000000
--- a/tv/2configs/xserver/xmonad/Util/Shutdown.hs
+++ /dev/null
@@ -1,53 +0,0 @@
-{-# LANGUAGE LambdaCase #-}
-module Util.Shutdown
-    ( sendShutdownEvent
-    , handleShutdownEvent
-    , shutdown
-    )
-  where
-
-import Control.Monad
-import Data.Monoid
-import Data.Maybe (catMaybes)
-import qualified Data.Map as Map
-import System.Environment (getEnv)
-import System.Exit (exitSuccess)
-import XMonad
-import qualified XMonad.StackSet as W
-
-sendShutdownEvent :: IO ()
-sendShutdownEvent = do
-    dpy <- openDisplay ""
-    rw <- rootWindow dpy $ defaultScreen dpy
-    a <- internAtom dpy "XMONAD_SHUTDOWN" False
-    allocaXEvent $ \e -> do
-        setEventType e clientMessage
-        setClientMessageEvent e rw a 32 0 currentTime
-        sendEvent dpy rw False structureNotifyMask e
-    sync dpy False
-
-handleShutdownEvent :: Event -> X All
-handleShutdownEvent = \case
-  ClientMessageEvent { ev_message_type = mt } -> do
-    c <- (mt ==) <$> getAtom "XMONAD_SHUTDOWN"
-    when c shutdown
-    return (All c)
-  _ ->
-    return (All True)
-
-shutdown :: X ()
-shutdown = do
-  broadcastMessage ReleaseResources
-  io . flush =<< asks display
-  let wsData = show . W.mapLayout show . windowset
-      maybeShow (t, Right (PersistentExtension ext)) = Just (t, show ext)
-      maybeShow (t, Left str) = Just (t, str)
-      maybeShow _ = Nothing
-      extState =
-        return . show . catMaybes . map maybeShow . Map.toList . extensibleState
-  s <- gets (\s -> (wsData s : extState s))
-  _ <- io $ do
-    path <- getEnv "XMONAD_STATE"
-    writeFile path (unlines s)
-    exitSuccess
-  return ()
-- 
cgit v1.2.3