From b1b88b0feda71b8092386963d36da11a8d0472be Mon Sep 17 00:00:00 2001
From: gwern0 <gwern0@gmail.com>
Date: Fri, 19 Oct 2007 20:09:00 +0200
Subject: Run.hs, ShellPrompt.sh: mv runInXTerm to ShellPrompt.hs

darcs-hash:20071019180900-f7719-6d6ef4a67f2ccae639e9e79c49fd80dd32d746c5.gz
---
 Run.hs | 13 ++++---------
 1 file changed, 4 insertions(+), 9 deletions(-)

(limited to 'Run.hs')

diff --git a/Run.hs b/Run.hs
index 98da796..7fd9ff7 100644
--- a/Run.hs
+++ b/Run.hs
@@ -18,7 +18,6 @@
 module XMonadContrib.Run (
                           -- * Usage
                           -- $usage
-                          runInXTerm,
                           runProcessWithInput,
                           runProcessWithInputAndWait,
                           seconds
@@ -78,13 +77,9 @@ runProcessWithInputAndWait cmd args input timeout = do
     getProcessStatus True False pid
     return ()
 
-runInXTerm :: String -> X ()
-runInXTerm com = do
-  c <- io $ catch (getEnv "XTERMCMD") (const $ return "xterm")
-  spawn ("exec " ++ c ++ " -e " ++ com)
-
--- | Multiplies by ONE MILLION, for use with runProcessWithInputAndWait.
--- Use like:
--- > (5.5 `seconds`)
+{- | Multiplies by ONE MILLION, for use with runProcessWithInputAndWait.
+     Use like:
+     > (5.5 `seconds`)
+-}
 seconds :: Rational -> Int
 seconds = fromEnum . (* 1000000)
-- 
cgit v1.2.3