diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2007-08-07 12:19:11 +0200 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2007-08-07 12:19:11 +0200 |
| commit | 54b236615b914b4fb65de755a09e7bad83696cac (patch) | |
| tree | 8940649125bc7a907481e70d3f24c9ab9a77713a /SshPrompt.hs | |
| parent | cc627f41303a7b2979910a94ee90aa9e96367538 (diff) | |
| download | XMonadContrib-54b236615b914b4fb65de755a09e7bad83696cac.tar.gz XMonadContrib-54b236615b914b4fb65de755a09e7bad83696cac.tar.xz XMonadContrib-54b236615b914b4fb65de755a09e7bad83696cac.zip | |
SshPrompt now uses RunInXTerm to launch the command
darcs-hash:20070807101911-32816-893c37187d6f1df28d755a90ab8cb5cab9584308.gz
Diffstat (limited to 'SshPrompt.hs')
| -rw-r--r-- | SshPrompt.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/SshPrompt.hs b/SshPrompt.hs index c1d69b0..638aedf 100644 --- a/SshPrompt.hs +++ b/SshPrompt.hs @@ -20,6 +20,7 @@ module XMonadContrib.SshPrompt ( import XMonad import XMonadContrib.XPrompt +import XMonadContrib.RunInXTerm import Control.Monad import System.Directory @@ -47,7 +48,7 @@ sshPrompt c = do mkXPrompt Ssh c (mkComplFunFromList sc) ssh ssh :: String -> X () -ssh s = spawn $ "exec xterm -e ssh " ++ s +ssh s = runInXTerm ("ssh " ++ s) sshComplList :: IO [String] sshComplList = do |