automatically open control window

1 files changed, 13 insertions, 2 deletions

diff --git a/ControlWindow.hs b/ControlWindow.hs
index c22092f..cc63cef 100644
--- a/ControlWindow.hs
+++ b/ControlWindow.hs
@@ -7,8 +7,11 @@ module ControlWindow where
 import Types
 import CmdLine
 import ControlSocket
+import VirtualTerminal
 
 import System.IO
+import System.Environment
+import System.Process
 import System.Posix
 import Control.Concurrent.Async
 import Control.Concurrent.STM
@@ -16,12 +19,16 @@ import Control.Concurrent.STM.TMChan
 import qualified Data.ByteString as B
 import qualified Data.ByteString.Lazy as L
 import Data.ByteString.UTF8 (fromString)
+import Control.Monad
 import Data.Monoid
 import Prelude
 
+winDesc :: String
+winDesc = "debug-me session control and chat window"
+
 controlWindow :: ControlOpts -> IO ()
 controlWindow _ = do
-	putStrLn "** debug-me session control and chat window"
+	putStrLn $ "** " ++ winDesc
 	socketfile <- defaultSocketFile
 	ichan <- newTMChanIO
 	ochan <- newTMChanIO
@@ -46,8 +53,12 @@ openControlWindow = do
 	ichan <- newTMChanIO
 	ochan <- newTMChanIO
 	_ <- async $ serveControlSocket soc ichan ochan
+	myexe <- getExecutablePath
+	mproc <- runInVirtualTerminal winDesc myexe ["--control"]
+	case mproc of
+		Nothing -> putStrLn "You need to open another shell prompt, and run: debug-me --control"
+		Just p -> void $ createProcess p
 	-- Wait for message from control process.
-	putStrLn "You need to open another shell prompt, and run: debug-me --control"
 	v <- atomically $ readTMChan ochan
 	case v of
 		Just ControlWindowOpened -> return ()