From f318452070d42e51231f7880a5d0eaa93d978a1e Mon Sep 17 00:00:00 2001
From: Gustaf Rydholm <gustaf.rydholm@gmail.com>
Date: Wed, 11 Jan 2023 00:41:17 +0100
Subject: Rip aniseed, hail hotpot

---
 fnl/plugins/lsp/diagnostics.fnl | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100644 fnl/plugins/lsp/diagnostics.fnl

(limited to 'fnl/plugins/lsp/diagnostics.fnl')

diff --git a/fnl/plugins/lsp/diagnostics.fnl b/fnl/plugins/lsp/diagnostics.fnl
new file mode 100644
index 0000000..1ac2e42
--- /dev/null
+++ b/fnl/plugins/lsp/diagnostics.fnl
@@ -0,0 +1,33 @@
+;; Handlers for the requests and responses from and to the lsp server.
+
+(local signs [{:name :DiagnosticSignError :text ""}
+              {:name :DiagnosticSignWarn :text ""}
+              {:name :DiagnosticSignHint :text ""}
+              {:name :DiagnosticSignInfo :text ""}])
+
+(fn apply-signs []
+  (each [_ sign (ipairs signs)]
+    (vim.fn.sign_define sign.name {:texthl sign.name :text sign.text :numhl ""})))
+
+(local config {:virtual_text false
+               :signs {:active signs}
+               :update_in_insert false
+               :underline true
+               :severity_sort true
+               :float {:focusable false
+                       :style :minimal
+                       :border :rounded
+                       :source :always
+                       :header ""
+                       :prefix ""}})
+
+(fn setup []
+  (apply-signs)
+  (vim.diagnostic.config config)
+  (set vim.lsp.handlers.textDocument/hover
+       (vim.lsp.with {:border :rounded :width 60}))
+  (set vim.lsp.handlers.textDocument/signatureHelp
+       (vim.lsp.with vim.lsp.handlers.signature_help
+                     {:border :rounded :width 60})))
+
+{: setup}
-- 
cgit v1.2.3-70-g09d2