Add module name for symbol

Main.lean

@@ -125,7 +125,8 @@ unsafe def execute (command: Command): Subroutine Lean.Json := do
     match state.getEnv args.id with
     | .error error => return Lean.toJson <| errorIndex error
     | .ok env =>
-      let info? := env.find? <| str_to_name args.symbol
+      let name := str_to_name args.symbol
+      let info? := env.find? name
       match info? with
       | none => return Lean.toJson <| errorIndex s!"Symbol not found {args.symbol}"
       | some info =>
@@ -133,7 +134,12 @@ unsafe def execute (command: Command): Subroutine Lean.Json := do
           (env := env)
           (coreContext := context.coreContext)
           (expr := info.toConstantVal.type)
-        return Lean.toJson ({ type := format }: InspectResult)
+        let module? := env.getModuleIdxFor? name >>=
+          (λ idx => env.allImportedModuleNames.get? idx.toNat) |>.map toString
+        return Lean.toJson ({
+          type := format,
+          module? := module?
+        }: InspectResult)
   proof_start (args: ProofStart): Subroutine Lean.Json := do
     let context ← read
     let state ← get

Pantograph/Commands.lean

@@ -45,7 +45,8 @@ structure Inspect where
   symbol: String
   deriving Lean.FromJson
 structure InspectResult where
-  type: String  := ""
+  type: String
+  module?: Option String
   deriving Lean.ToJson
 
 structure ProofStart where