Add Config.terminal

darcs-hash:20071024105354-a5988-089d5615bc05c007d6713eaeaa1fe19af02a4e7d.gz

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