diff options
author | gwern0 <gwern0@gmail.com> | 2007-10-24 02:13:41 +0200 |
---|---|---|
committer | gwern0 <gwern0@gmail.com> | 2007-10-24 02:13:41 +0200 |
commit | ee0a58ea0a471eb423a96e1778832f35b5bff43f (patch) | |
tree | b4953cbc806970aaa54ee3d5d8ac9c12fe683dad /ShellPrompt.hs | |
parent | 585b545ddb27e708ccf4825cddbf98851c71044e (diff) | |
download | XMonadContrib-ee0a58ea0a471eb423a96e1778832f35b5bff43f.tar.gz XMonadContrib-ee0a58ea0a471eb423a96e1778832f35b5bff43f.tar.xz XMonadContrib-ee0a58ea0a471eb423a96e1778832f35b5bff43f.zip |
Run.hs, SshPrompt.hs, ShellPrompt.hs: mv runInXTerm back into Run.hs per suggestions
darcs-hash:20071024001341-f7719-6ea9cf7134f0300c53e85cddfff1e320039c115b.gz
Diffstat (limited to '')
-rw-r--r-- | ShellPrompt.hs | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/ShellPrompt.hs b/ShellPrompt.hs index c24c842..a8222fd 100644 --- a/ShellPrompt.hs +++ b/ShellPrompt.hs @@ -20,7 +20,6 @@ module XMonadContrib.ShellPrompt ( , split , prompt , safePrompt - , runInXTerm ) where import System.Environment (getEnv) @@ -76,12 +75,6 @@ safePrompt c config = mkXPrompt Shell config (getShellCompl [c]) run unsafePrompt c config = mkXPrompt Shell config (getShellCompl [c]) run where run a = unsafeSpawn $ c ++ " " ++ a --- This may be better done as a specialization of 'prompt' -runInXTerm :: String -> X () -runInXTerm com = do - c <- io $ catch (getEnv "XTERMCMD") (const $ return "xterm") - spawn ("exec " ++ c ++ " -e " ++ com) - getShellCompl :: [String] -> String -> IO [String] getShellCompl cmds s | s == "" || last s == ' ' = return [] | otherwise = do |