summaryrefslogtreecommitdiff
path: root/fnl/config/lsp/handlers.fnl
blob: a90db7626a09b1448821eaa913ab39f8bfae6e51 (plain)
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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
(module config.lsp.handlers {autoload {util util nvim aniseed.nvim}})

(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 []
  (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})))

(defn- lsp-keymaps [bufnr]
  (let [opts {:noremap true :silent true}]
    (nvim.buf_set_keymap bufnr :n :gD
                         "<cmd>lua vim.lsp.buf.declaration()<CR>" opts)
    (nvim.buf_set_keymap bufnr :n :gd
                         "<cmd>lua vim.lsp.buf.definition()<CR>" opts)
    (nvim.buf_set_keymap bufnr :n :K "<cmd>lua vim.lsp.buf.hover()<CR>"
                         opts)
    (nvim.buf_set_keymap bufnr :n :gI
                         "<cmd>lua vim.lsp.buf.implementation()<CR>" opts)
    (nvim.buf_set_keymap bufnr :n :gr
                         "<cmd>lua vim.lsp.buf.references()<CR>" opts)
    (nvim.buf_set_keymap bufnr :n :gl
                         "<cmd>lua vim.diagnostic.open_float()<CR>" opts)
    (nvim.buf_set_keymap bufnr :n :<leader>q
                         "<cmd>lua vim.diagnostic.setloclist()<CR>" opts)))

(defn on-attach [client bufnr]
  (if (= client.name :html)
    (set client.resolved_capabilities.document_formatting false))
  (lsp-keymaps bufnr))

(defn capabilities []
  (let [capabilities (vim.lsp.protocol.make_client_capabilities)]
    (set capabilities.textDocument.completion.completionItem.snippetSupport true)
      (let [cmp-nvim-lsp (util.load-plugin :cmp_nvim_lsp)]
        (cmp-nvim-lsp.update_capabilities capabilities))))