diff options
| author | Braden Shepherdson <Braden.Shepherdson@gmail.com> | 2008-06-08 05:26:19 +0200 |
|---|---|---|
| committer | Braden Shepherdson <Braden.Shepherdson@gmail.com> | 2008-06-08 05:26:19 +0200 |
| commit | 6f39efdbdfa41841c6770c3d34569b077a5c64e4 (patch) | |
| tree | 33d4acebc042f495813bce6635d17eeb55a3e6b1 /XMonad | |
| parent | 74b7c11eb22fd48005311883a54b601a0f7db585 (diff) | |
| download | XMonadContrib-6f39efdbdfa41841c6770c3d34569b077a5c64e4.tar.gz XMonadContrib-6f39efdbdfa41841c6770c3d34569b077a5c64e4.tar.xz XMonadContrib-6f39efdbdfa41841c6770c3d34569b077a5c64e4.zip | |
Added scratchpadSpawnActionTerminal to specify the terminal program directly as a String.
darcs-hash:20080608032619-d53a8-c0636b8e87746e0aa77713837cfae160e65968fa.gz
Diffstat (limited to 'XMonad')
| -rw-r--r-- | XMonad/Util/Scratchpad.hs | 6 |
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. |