twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 03:20:21 -07:00
Code Issues Packages Projects Releases Wiki Activity

SshPrompt now uses RunInXTerm to launch the command

Browse Source
This commit is contained in:
Andrea Rossato 2007-08-07 10:19:11 +00:00
parent 71d75dcd7d
commit 850462ad43
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
SshPrompt.hs
View File

@ -20,6 +20,7 @@ module XMonadContrib.SshPrompt (
import XMonad import XMonad
import XMonadContrib.XPrompt import XMonadContrib.XPrompt
import XMonadContrib.RunInXTerm
import Control.Monad import Control.Monad
import System.Directory import System.Directory
@ -47,7 +48,7 @@ sshPrompt c = do
mkXPrompt Ssh c (mkComplFunFromList sc) ssh mkXPrompt Ssh c (mkComplFunFromList sc) ssh
ssh :: String -> X () ssh :: String -> X ()
ssh s = spawn $ "exec xterm -e ssh " ++ s ssh s = runInXTerm ("ssh " ++ s)
sshComplList :: IO [String] sshComplList :: IO [String]
sshComplList = do sshComplList = do