From 5e678c0c4cad37ecbf91c43cbd829087d8340b2f Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Sun, 1 Mar 2026 14:43:53 -0700
Subject: [cleanup] clean up some unused functions.

---
 src/Rahm/Desktop/PopupTerminal.hs | 26 ++++++++++++++++----------
 1 file changed, 16 insertions(+), 10 deletions(-)

(limited to 'src/Rahm/Desktop/PopupTerminal.hs')

diff --git a/src/Rahm/Desktop/PopupTerminal.hs b/src/Rahm/Desktop/PopupTerminal.hs
index fb38563..bf0b8c3 100644
--- a/src/Rahm/Desktop/PopupTerminal.hs
+++ b/src/Rahm/Desktop/PopupTerminal.hs
@@ -1,17 +1,23 @@
-module Rahm.Desktop.PopupTerminal where
+module Rahm.Desktop.PopupTerminal
+  ( getPopupTerminalWindow,
+    movePopupToCurrentWorkspace,
+    movePopupToHiddenWorkspace,
+    updatePopupTerminalHook,
+  )
+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 Data.Monoid
+import XMonad
+import qualified XMonad.StackSet as W
+import qualified XMonad.Util.ExtensibleState as XS
 import XMonad.Util.SpawnOnce (spawnOnce)
 
 newtype PopupTerminalState = PopupTerminalState
- {
-   popupTerminalWindow :: Maybe Window
- } deriving (Show, Read)
+  { popupTerminalWindow :: Maybe Window
+  }
+  deriving (Show, Read)
 
 instance ExtensionClass PopupTerminalState where
   initialValue = PopupTerminalState Nothing
@@ -25,8 +31,8 @@ movePopupToCurrentWorkspace = do
   mWin <- getPopupTerminalWindow
   forM_ mWin $ \win -> do
     windows $ \ws ->
-     W.focusWindow win $
-      W.shiftWin (W.tag (W.workspace (W.current ws))) win ws
+      W.focusWindow win $
+        W.shiftWin (W.tag (W.workspace (W.current ws))) win ws
 
 movePopupToHiddenWorkspace :: X ()
 movePopupToHiddenWorkspace = do
-- 
cgit