From ca61dc383dfdb1e92c0fdc33730992e9a5589439 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Wed, 17 Oct 2007 22:22:01 +0200
Subject: Remove RunInXTerm in favor of Run

darcs-hash:20071017202201-a5988-8130b054c29244d0fb2f5887eeb5285865c1a478.gz
---
 MetaModule.hs |  1 +
 RunInXTerm.hs | 31 -------------------------------
 SshPrompt.hs  |  2 +-
 3 files changed, 2 insertions(+), 32 deletions(-)
 delete mode 100644 RunInXTerm.hs

diff --git a/MetaModule.hs b/MetaModule.hs
index 465e5e0..f90dada 100644
--- a/MetaModule.hs
+++ b/MetaModule.hs
@@ -60,6 +60,7 @@ import XMonadContrib.ResizableTile ()
 import XMonadContrib.Roledex ()
 import XMonadContrib.RotSlaves ()
 import XMonadContrib.RotView ()
+import XMonadContrib.Run ()
 import XMonadContrib.SetWMName ()
 import XMonadContrib.ShellPrompt ()
 import XMonadContrib.SimpleDate ()
diff --git a/RunInXTerm.hs b/RunInXTerm.hs
deleted file mode 100644
index b0eb607..0000000
--- a/RunInXTerm.hs
+++ /dev/null
@@ -1,31 +0,0 @@
------------------------------------------------------------------------------
--- |
--- Module      :  XMonadContrib.RunInXTerm
--- Copyright   :  (C) 2007 Andrea Rossato
--- License     :  BSD3
--- 
--- Maintainer  :  andrea.rossato@unibz.it
--- Stability   :  unstable
--- Portability :  unportable
---
--- A simple module to launch commands in an X terminal 
--- from XMonad
---
------------------------------------------------------------------------------
-
-module XMonadContrib.RunInXTerm (
-                             -- * Usage
-                             -- $usage
-                             runInXTerm
-                              ) where
-
-import XMonad
-import System.Environment
-
--- $usage
--- For an example usage see "XMonadContrib.SshPrompt"
-
-runInXTerm :: String -> X ()
-runInXTerm com = do
-  c <- io $ catch (getEnv "XTERMCMD") (const $ return "xterm")
-  spawn ("exec " ++ c ++ " -e " ++ com)
diff --git a/SshPrompt.hs b/SshPrompt.hs
index 94d8f93..5ff966b 100644
--- a/SshPrompt.hs
+++ b/SshPrompt.hs
@@ -20,7 +20,7 @@ module XMonadContrib.SshPrompt (
 
 import XMonad
 import XMonadContrib.XPrompt
-import XMonadContrib.RunInXTerm
+import XMonadContrib.Run
 
 import Control.Monad
 import System.Directory
-- 
cgit v1.2.3