diff options
| -rw-r--r-- | MetaModule.hs | 1 | ||||
| -rw-r--r-- | RunInXTerm.hs | 31 | ||||
| -rw-r--r-- | SshPrompt.hs | 2 |
3 files changed, 2 insertions, 32 deletions
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 |