aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Util
diff options
context:
space:
mode:
authorBraden Shepherdson <Braden.Shepherdson@gmail.com>2008-06-08 20:07:48 +0200
committerBraden Shepherdson <Braden.Shepherdson@gmail.com>2008-06-08 20:07:48 +0200
commit3b53fa461b0fde90e7a79048bc9f4312f18c3aa6 (patch)
treea2c98a26ae1ecf3fc5bfbdbee18d31f6a10f394d /XMonad/Util
parent63655b76589e520fdf226257c8e8c02e3d3da1cf (diff)
downloadXMonadContrib-3b53fa461b0fde90e7a79048bc9f4312f18c3aa6.tar.gz
XMonadContrib-3b53fa461b0fde90e7a79048bc9f4312f18c3aa6.tar.xz
XMonadContrib-3b53fa461b0fde90e7a79048bc9f4312f18c3aa6.zip
Now using -name instead of -title as the term app argument, and correspondingly resource for the ManageHook.
darcs-hash:20080608180748-d53a8-bea50d6f478dc346a5dabbbc5fee0a54d215c9e1.gz
Diffstat (limited to 'XMonad/Util')
-rw-r--r--XMonad/Util/Scratchpad.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/XMonad/Util/Scratchpad.hs b/XMonad/Util/Scratchpad.hs
index 65da63d..2f29dc4 100644
--- a/XMonad/Util/Scratchpad.hs
+++ b/XMonad/Util/Scratchpad.hs
@@ -50,7 +50,7 @@ import qualified XMonad.StackSet as W
-- quarter-screen-tall window.
-- The key, position and size are configurable.
--
--- The terminal application must support the @-title@ argument.
+-- The terminal application must support the @-name@ argument.
-- Known supported terminals: rxvt, rxvt-unicode, xterm.
-- Most others are likely to follow the lead set by xterm.
--
@@ -71,14 +71,14 @@ import qualified XMonad.StackSet as W
scratchpadSpawnAction :: XConfig l -- ^ The configuration, to retrieve the terminal
-> X ()
scratchpadSpawnAction conf =
- scratchpadAction $ spawn $ terminal conf ++ " -title scratchpad"
+ scratchpadAction $ spawn $ terminal conf ++ " -name scratchpad"
-- | Action to pop up the terminal, with a directly specified terminal.
scratchpadSpawnActionTerminal :: String -- ^ Name of the terminal program
-> X ()
scratchpadSpawnActionTerminal term =
- scratchpadAction $ spawn $ term ++ " -title scratchpad"
+ scratchpadAction $ spawn $ term ++ " -name scratchpad"
@@ -114,7 +114,7 @@ scratchpadWorkspaceTag = "SP"
-- factored out since this is common to both the ManageHook and the action
scratchpadQuery :: Query Bool
-scratchpadQuery = title =? "scratchpad"
+scratchpadQuery = resource =? "scratchpad"
-- | The ManageHook, with the default rectangle: