aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Util/Scratchpad.hs
diff options
context:
space:
mode:
Diffstat (limited to 'XMonad/Util/Scratchpad.hs')
-rw-r--r--XMonad/Util/Scratchpad.hs6
1 files changed, 6 insertions, 0 deletions
diff --git a/XMonad/Util/Scratchpad.hs b/XMonad/Util/Scratchpad.hs
index df19789..a7b1ef0 100644
--- a/XMonad/Util/Scratchpad.hs
+++ b/XMonad/Util/Scratchpad.hs
@@ -36,6 +36,7 @@
module XMonad.Util.Scratchpad (
scratchpadSpawnAction
+ ,scratchpadSpawnActionTerminal
,scratchpadManageHookDefault
,scratchpadManageHook
) where
@@ -53,6 +54,11 @@ scratchpadSpawnAction :: XConfig l -- ^ The configuration, to retrieve the termi
scratchpadSpawnAction conf = spawn $ terminal conf ++ " -title scratchpad"
+-- | Action to pop up the terminal, with a directly specified terminal.
+scratchpadSpawnActionTerminal :: String -- ^ Name of the terminal program
+ -> X ()
+scratchpadSpawnActionTerminal term = spawn $ term ++ " -title scratchpad"
+
-- | The ManageHook, with the default rectangle:
-- Half the screen wide, a quarter of the screen tall, centered.