Add popup terminal when the "explode" happends

1 files changed, 40 insertions, 0 deletions

diff --git a/src/Rahm/Desktop/PopupTerminal.hs b/src/Rahm/Desktop/PopupTerminal.hs
new file mode 100644
index 0000000..fb38563
--- /dev/null
+++ b/src/Rahm/Desktop/PopupTerminal.hs
@@ -0,0 +1,40 @@
+module Rahm.Desktop.PopupTerminal where
+
+import XMonad
+import qualified XMonad.Util.ExtensibleState as XS
+import Data.Monoid
+import Control.Monad.Trans
+import qualified XMonad.StackSet as W
+import Data.Foldable (forM_)
+import XMonad.Util.SpawnOnce (spawnOnce)
+
+newtype PopupTerminalState = PopupTerminalState
+ {
+   popupTerminalWindow :: Maybe Window
+ } deriving (Show, Read)
+
+instance ExtensionClass PopupTerminalState where
+  initialValue = PopupTerminalState Nothing
+  extensionType = PersistentExtension
+
+getPopupTerminalWindow :: X (Maybe Window)
+getPopupTerminalWindow = XS.gets popupTerminalWindow
+
+movePopupToCurrentWorkspace :: X ()
+movePopupToCurrentWorkspace = do
+  mWin <- getPopupTerminalWindow
+  forM_ mWin $ \win -> do
+    windows $ \ws ->
+     W.focusWindow win $
+      W.shiftWin (W.tag (W.workspace (W.current ws))) win ws
+
+movePopupToHiddenWorkspace :: X ()
+movePopupToHiddenWorkspace = do
+  mWin <- getPopupTerminalWindow
+  forM_ mWin $ \win -> windows $ \ws -> W.shiftWin "*" win ws
+
+updatePopupTerminalHook :: ManageHook
+updatePopupTerminalHook = Query $ do
+  win <- ask
+  lift $ XS.put $ PopupTerminalState (Just win)
+  return (Endo id)