fnl/config/lsp/handlers.fnl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

(module config.lsp.handlers)

(def- signs
  [{ :name "DiagnosticSignError" :text "" }
   { :name "DiagnosticSignWarn" :text "" }
   { :name "DiagnosticSignHint" :text "" }
   { :name "DiagnosticSignInfo" :text "" }])

(defn- apply-signs []
  (each [_ sign (ipairs signs)]
    (vim.fn.sign_define sign.name { :texthl sign.name :text sign.text :numhl "" })))

(def- config 
  {:virtual_text false
    :signs {
      :active signs
    }
    :update_in_insert true
    :underline true
    :severity_sort true
    :float {
      :focusable false
      :style "minimal"
      :border "rounded"
      :source "always"
      :header ""
      :prefix ""}})

(defn setup []
  (do
    (apply-signs)
    (vim.diagnostic.config config)
    (set vim.lsp.handlers.textDocument/hover (vim.lsp.with { :border "rounded"} ))
    (set vim.lsp.handlers.textDocument/signatureHelp (vim.lsp.with vim.lsp.handlers.signature_help { :border "rounded"} ))))