Remove RunInXTerm in favor of Run

This commit is contained in:
Spencer Janssen
2007-10-17 20:22:01 +00:00
parent 830945336f
commit 3b71671751
3 changed files with 2 additions and 32 deletions

View File

@@ -60,6 +60,7 @@ import XMonadContrib.ResizableTile ()
import XMonadContrib.Roledex () import XMonadContrib.Roledex ()
import XMonadContrib.RotSlaves () import XMonadContrib.RotSlaves ()
import XMonadContrib.RotView () import XMonadContrib.RotView ()
import XMonadContrib.Run ()
import XMonadContrib.SetWMName () import XMonadContrib.SetWMName ()
import XMonadContrib.ShellPrompt () import XMonadContrib.ShellPrompt ()
import XMonadContrib.SimpleDate () import XMonadContrib.SimpleDate ()

View File

@@ -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)

View File

@@ -20,7 +20,7 @@ module XMonadContrib.SshPrompt (
import XMonad import XMonad
import XMonadContrib.XPrompt import XMonadContrib.XPrompt
import XMonadContrib.RunInXTerm import XMonadContrib.Run
import Control.Monad import Control.Monad
import System.Directory import System.Directory