handle more commands in IDE mode

src/Idris/IDEMode/Commands.idr

@@ -25,7 +25,9 @@ data IDECommand
      | MakeLemma Integer String
      | MakeCase Integer String
      | MakeWith Integer String
+     | Metavariables Integer
      | Version
+     | GetOptions
 
 readHints : List SExp -> Maybe (List String)
 readHints [] = Just []
@@ -75,7 +77,10 @@ getIDECommand (SExpList [SymbolAtom "make-case", IntegerAtom l, StringAtom n])
     = Just $ MakeCase l n
 getIDECommand (SExpList [SymbolAtom "make-with", IntegerAtom l, StringAtom n])
     = Just $ MakeWith l n
+getIDECommand (SExpList [SymbolAtom "metavariables", IntegerAtom n])
+    = Just $ Metavariables n
 getIDECommand (SymbolAtom "version") = Just Version
+getIDECommand (SExpList [SymbolAtom "get-options"]) = Just GetOptions
 getIDECommand _ = Nothing
 
 export
@@ -96,6 +101,8 @@ putIDECommand (GenerateDef line n)            = (SExpList [SymbolAtom "generate-
 putIDECommand (MakeLemma line n)              = (SExpList [SymbolAtom "make-lemma", IntegerAtom line, StringAtom n])
 putIDECommand (MakeCase line n)               = (SExpList [SymbolAtom "make-case", IntegerAtom line, StringAtom n])
 putIDECommand (MakeWith line n)               = (SExpList [SymbolAtom "make-with", IntegerAtom line, StringAtom n])
+putIDECommand (Metavariables n)               = (SExpList [SymbolAtom "metavariables", IntegerAtom n])
+putIDECommand GetOptions                      = (SExpList [SymbolAtom "get-options"])
 putIDECommand Version                         = SymbolAtom "version"
 
 export

src/Idris/IDEMode/REPL.idr

@@ -189,6 +189,12 @@ process (MakeWith l n)
 process Version
     = do Idris.REPL.process ShowVersion
          pure ()
+process (Metavariables _)
+    = do Idris.REPL.process Metavars
+         pure ()
+process GetOptions
+    = do printResult ""
+         pure ()
 
 processCatch : {auto c : Ref Ctxt Defs} ->
                {auto u : Ref UST UState} ->

src/Idris/REPLCommon.idr

@@ -33,9 +33,7 @@ printWithStatus status msg
          case idemode opts of
               REPL _ => coreLift $ putStrLn msg
               IDEMode i _ f =>
-                do let m = SExpList [SymbolAtom status, toSExp msg, 
-                                     -- highlighting; currently blank
-                                     SExpList []]
+                do let m = SExpList [SymbolAtom status, toSExp msg ]
                    send f (SExpList [SymbolAtom "return", m, toSExp i])
 
 export
@@ -104,5 +102,3 @@ resetContext
          put UST initUState
          put Syn initSyntax
          put MD initMetadata
-
-

tests/ideMode/ideMode001/expected

@@ -1,4 +1,4 @@
 000018(:protocol-version 2 0)
 000038(:write-string "1/1: Building LocType (LocType.idr)" 1)
-00002a(:return (:ok "Loaded LocType.idr" ()) 1)
+000027(:return (:ok "Loaded LocType.idr") 1)
 Alas the file is done, aborting