diff options
Diffstat (limited to '')
| -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. |