fix(lsp): error loading capabilities and format

1 files changed, 59 insertions, 57 deletions

diff --git a/fnl/config/lsp/handlers.fnl b/fnl/config/lsp/handlers.fnl
index 1e3785b..a90db76 100644
--- a/fnl/config/lsp/handlers.fnl
+++ b/fnl/config/lsp/handlers.fnl
@@ -1,61 +1,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})))
+(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))
-                        capabilities))
-
-(setup)
+  (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))))