inductive Lean.Widget.StrictOrLazy (α : Type) (β : Type) : Type

• strict: {α β : Type} → α → Lean.Widget.StrictOrLazy α β
• lazy: {α β : Type} → β → Lean.Widget.StrictOrLazy α β

instance Lean.Widget.instInhabitedStrictOrLazy : {a : Type} → [inst : Inhabited a] → {a_1 : Type} → Inhabited (Lean.Widget.StrictOrLazy a a_1)

instance Lean.Widget.instFromJsonRpcEncodablePacket_5 : Lean.FromJson Lean.Widget.RpcEncodablePacket✝

instance Lean.Widget.instToJsonRpcEncodablePacket_5 : Lean.ToJson Lean.Widget.RpcEncodablePacket✝

instance Lean.Widget.instRpcEncodableStrictOrLazy {α : Type} {β : Type} [Lean.Server.RpcEncodable α] [Lean.Server.RpcEncodable β] : Lean.Server.RpcEncodable (Lean.Widget.StrictOrLazy α β)

structure Lean.Widget.LazyTraceChildren : Type

• indent : Nat
• children : Array (Lean.Server.WithRpcRef Lean.MessageData)

instance Lean.Widget.instTypeNameLazyTraceChildren : TypeName Lean.Widget.LazyTraceChildren

inductive Lean.Widget.MsgEmbed : Type

• expr: Lean.Widget.CodeWithInfos → Lean.Widget.MsgEmbed

  A piece of Lean code with elaboration/typing data. Note: does not necessarily correspond to an Expr, the name is for RPC API compatibility.

• goal: Lean.Widget.InteractiveGoal → Lean.Widget.MsgEmbed

  An interactive goal display.

• trace: Nat → Lake.Name → Lean.Widget.TaggedText Lean.Widget.MsgEmbed → Bool → Lean.Widget.StrictOrLazy (Array (Lean.Widget.TaggedText Lean.Widget.MsgEmbed)) (Lean.Server.WithRpcRef Lean.Widget.LazyTraceChildren) → Lean.Widget.MsgEmbed

  Some messages (in particular, traces) are too costly to print eagerly. Instead, we allow the user to expand sub-traces interactively.

instance Lean.Widget.instInhabitedMsgEmbed : Inhabited Lean.Widget.MsgEmbed

instance Lean.Widget.instToJsonRpcEncodablePacket_6 : Lean.ToJson Lean.Widget.RpcEncodablePacket✝

instance Lean.Widget.instFromJsonRpcEncodablePacket_6 : Lean.FromJson Lean.Widget.RpcEncodablePacket✝

instance Lean.Widget.instRpcEncodableMsgEmbed : Lean.Server.RpcEncodable Lean.Widget.MsgEmbed

@[inline, reducible]

abbrev Lean.Widget.InteractiveDiagnostic : Type

The message field is the text of a message possibly containing interactive embeds of type MsgEmbed. We maintain the invariant that embeds are stored in .tags with empty .text subtrees, i.e. .tag embed (.text ""), because a MsgEmbed display involve more than just text.

instance Lean.Widget.instRpcEncodableDiagnosticWith {α : Type} [Lean.Server.RpcEncodable α] : Lean.Server.RpcEncodable (Lean.Lsp.DiagnosticWith α)

instance Lean.Widget.instFromJsonRpcEncodablePacket_7 : Lean.FromJson Lean.Widget.RpcEncodablePacket✝

instance Lean.Widget.instToJsonRpcEncodablePacket_7 : Lean.ToJson Lean.Widget.RpcEncodablePacket✝

def Lean.Widget.InteractiveDiagnostic.toDiagnostic (diag : Lean.Widget.InteractiveDiagnostic) : Lean.Lsp.Diagnostic

def Lean.Widget.InteractiveDiagnostic.toDiagnostic.prettyTt (tt : Lean.Widget.TaggedText Lean.Widget.MsgEmbed) : String

The msgToInteractive algorithm turns a MessageData into TaggedText MsgEmbed in two stages.

First, in msgToInteractiveAux we produce a Format object whose .tag nodes refer to EmbedFmt objects stored in an auxiliary array. Only the most shallow .tag in every branch through the Format corresponds to an EmbedFmt. The kind of this tag determines how the nested Format object (possibly including further .tags), is processed. For example, if the output is .tag (.expr ctx infos) fmt then tags in the nested fmt object refer to elements of infos.

In the second stage, we recursively transform such a Format into TaggedText MsgEmbed according to the rule above by first pretty-printing it and then grabbing data referenced by the tags from all the nested arrays (such as the infos array in the example above).

We cannot easily do the translation in a single MessageData → TaggedText MsgEmbed step because that would effectively require reimplementing the (stateful, to keep track of indentation) Format.prettyM algorithm.

instance Lean.Widget.instInhabitedEmbedFmt : Inhabited Lean.Widget.EmbedFmt

def Lean.Widget.msgToInteractive (msgData : Lean.MessageData) (hasWidgets : Bool) (indent : optParam Nat 0) : IO (Lean.Widget.TaggedText Lean.Widget.MsgEmbed)

partial def Lean.Widget.msgToInteractive.fmtToTT (embeds : Array Lean.Widget.EmbedFmt) (fmt : Lean.Format) (indent : Nat) : IO (Lean.Widget.TaggedText Lean.Widget.MsgEmbed)

def Lean.Widget.msgToInteractiveDiagnostic (text : Lean.FileMap) (m : Lean.Message) (hasWidgets : Bool) : IO Lean.Widget.InteractiveDiagnostic

Transform a Lean Message concerning the given text into an LSP Diagnostic.