From 6f39efdbdfa41841c6770c3d34569b077a5c64e4 Mon Sep 17 00:00:00 2001
From: Braden Shepherdson <Braden.Shepherdson@gmail.com>
Date: Sun, 8 Jun 2008 05:26:19 +0200
Subject: Added scratchpadSpawnActionTerminal to specify the terminal program
 directly as a String.

darcs-hash:20080608032619-d53a8-c0636b8e87746e0aa77713837cfae160e65968fa.gz
---
 XMonad/Util/Scratchpad.hs | 6 ++++++
 1 file changed, 6 insertions(+)

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.
-- 
cgit v1.2.3