summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2007-10-24 12:53:54 +0200
committerSpencer Janssen <sjanssen@cse.unl.edu>2007-10-24 12:53:54 +0200
commit1b9d177ae382f6803bcfa409efd7b853265a2300 (patch)
tree67dade488e52825bd351878ecb71d22e9e9483ad
parent540415e9a0c6e1226ed5b7550bfef8264ffb93c8 (diff)
downloadmetatile-1b9d177ae382f6803bcfa409efd7b853265a2300.tar
metatile-1b9d177ae382f6803bcfa409efd7b853265a2300.zip
Add Config.terminal
darcs-hash:20071024105354-a5988-089d5615bc05c007d6713eaeaa1fe19af02a4e7d
-rw-r--r--Config.hs7
-rw-r--r--Config.hs-boot1
2 files changed, 7 insertions, 1 deletions
diff --git a/Config.hs b/Config.hs
index ffcaf04..d82c53c 100644
--- a/Config.hs
+++ b/Config.hs
@@ -178,6 +178,11 @@ logHook = return ()
------------------------------------------------------------------------
-- Key bindings:
+-- | The preferred terminal program, which is used in a binding below and by
+-- certain contrib modules.
+terminal :: String
+terminal = "xterm"
+
-- | The xmonad key bindings. Add, modify or remove key bindings here.
--
-- (The comment formatting character is used when generating the manpage)
@@ -185,7 +190,7 @@ logHook = return ()
keys :: M.Map (KeyMask, KeySym) (X ())
keys = M.fromList $
-- launching and killing programs
- [ ((modMask .|. shiftMask, xK_Return), spawn "xterm") -- %! Launch an xterm
+ [ ((modMask .|. shiftMask, xK_Return), spawn terminal) -- %! Launch terminal
, ((modMask, xK_p ), spawn "exe=`dmenu_path | dmenu` && eval \"exec $exe\"") -- %! Launch dmenu
, ((modMask .|. shiftMask, xK_p ), spawn "gmrun") -- %! Launch gmrun
, ((modMask .|. shiftMask, xK_c ), kill) -- %! Close the focused window
diff --git a/Config.hs-boot b/Config.hs-boot
index 6d631c5..00d45a7 100644
--- a/Config.hs-boot
+++ b/Config.hs-boot
@@ -8,3 +8,4 @@ workspaces :: [WorkspaceId]
logHook :: X ()
manageHook :: Window -> String -> String -> String -> X (WindowSet -> WindowSet)
serialisedLayouts :: [Layout Window]
+terminal :: String