32 lines
833 B
Text
32 lines
833 B
Text
import Lean
|
|
|
|
open Lean Server Lsp
|
|
|
|
@[codeActionProvider]
|
|
def helloProvider : CodeActionProvider := fun params _snap => do
|
|
let td := params.textDocument
|
|
let edit : TextEdit := {
|
|
range := params.range,
|
|
newText := "hello!!!"
|
|
}
|
|
let ca : CodeAction := {
|
|
title := "hello world",
|
|
kind? := "quickfix",
|
|
edit? := WorkspaceEdit.ofTextEdit td.uri edit
|
|
}
|
|
let longRunner : CodeAction := {
|
|
title := "a long-running action",
|
|
kind? := "refactor",
|
|
}
|
|
let lazyResult : IO CodeAction := do
|
|
let v? ← IO.getEnv "PWD"
|
|
let v := v?.getD "none"
|
|
return { longRunner with
|
|
edit? := WorkspaceEdit.ofTextEdit td.uri { range := params.range, newText := v}
|
|
}
|
|
return #[ca, {eager := longRunner, lazy? := lazyResult}]
|
|
|
|
theorem asdf : (x : Nat) → x = x := by
|
|
intro x
|
|
--^ codeAction
|
|
rfl
|