From aa9e7ca663bb6a54bbcb2819c91168b3ea06789d Mon Sep 17 00:00:00 2001
From: Braden Shepherdson <Braden.Shepherdson@gmail.com>
Date: Sun, 8 Jun 2008 03:26:19 +0000
Subject: [PATCH] Added scratchpadSpawnActionTerminal to specify the terminal
 program directly as a String.

---
 XMonad/Util/Scratchpad.hs | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/XMonad/Util/Scratchpad.hs b/XMonad/Util/Scratchpad.hs
index df197897..a7b1ef08 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.