From 08eacc1d437b08863ebe521446e040bc4fa219a2 Mon Sep 17 00:00:00 2001
From: Josh Rahm <rahm@google.com>
Date: Fri, 23 Aug 2024 15:27:57 -0600
Subject: Add popup terminal when the "explode" happends

---
 src/Main.hs | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index 936163e..a9aa419 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -11,6 +11,8 @@ import Rahm.Desktop.Common
   ( Location (Location),
     getCurrentWorkspace,
   )
+
+import Rahm.Desktop.PopupTerminal
 import Rahm.Desktop.DMenu (menuCommandString)
 import Rahm.Desktop.History (historyHook)
 import Rahm.Desktop.Hooks.WindowChange (withStackChangeHook)
@@ -66,7 +68,7 @@ import XMonad
     title,
     withWindowSet,
     (-->),
-    (=?),
+    (=?), doShift,
   )
 import qualified XMonad as X (xmonad)
 import XMonad.Hooks.DynamicProperty (dynamicTitle)
@@ -74,6 +76,7 @@ import XMonad.Hooks.EwmhDesktops (ewmh)
 import XMonad.Hooks.ManageDocks (docks)
 import XMonad.Hooks.ManageHelpers (doFullFloat, isFullscreen)
 import XMonad.Layout.Fullscreen (fullscreenEventHook)
+import XMonad.Util.SpawnOnce (spawnOnce)
 
 main = do
   logHook <- xMobarLogHook
@@ -106,7 +109,9 @@ main = do
                 focusedBorderColor = "#ff6c00",
                 normalBorderColor = "#404040",
                 layoutHook = myLayout,
-                startupHook = spawn fp,
+                startupHook = do
+                  spawn fp
+                  spawnOnce "alacritty --class popup-terminal",
                 manageHook =
                   composeAll
                     [ isFullscreen --> doFullFloat,
@@ -115,8 +120,9 @@ main = do
                       className =? "yakuake" --> doFloat,
                       className =? "MPlayer" --> doFloat,
                       className =? "Xfce4-notifyd" --> doIgnore,
+                      className =? "popup-terminal" --> doShift "*" <> updatePopupTerminalHook,
+                      className =? "floating-terminal" --> doCenterFloat,
                       title =? "Event Tester" --> doFloat,
-                      title =? "Floating Term" --> doCenterFloat,
                       title =? "Notes" --> doCenterFloat,
                       title =? "xmessage" --> doCenterFloat,
                       title =? "gxmessage" --> doCenterFloat,
-- 
cgit