fey.naomi/fennel-ls
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Diagnostics aren't guaranteed to have ranges.

Browse Source
This commit is contained in:
Phil Hagelberg 2025-02-16 14:14:14 -08:00
parent 6cddd6a030
commit 071154f92e
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/fennel-ls.fnl
View File

@ -2,6 +2,13 @@
(local dispatch (require :fennel-ls.dispatch)) (local dispatch (require :fennel-ls.dispatch))
(local json-rpc (require :fennel-ls.json-rpc)) (local json-rpc (require :fennel-ls.json-rpc))
(fn print-diagnostic [filename message ?range]
(print (: "%s:%s:%s: %s" :format filename
;; LSP line numbers are zero-indexed, but Emacs and Vim both use
;; 1-indexing for this.
(+ (or (?. ?range :start :line) 0) 1)
(or (?. ?range :start :character) "?") message)))
(λ lint [filenames] (λ lint [filenames]
"non-interactive mode that gets executed from CLI with --lint. "non-interactive mode that gets executed from CLI with --lint.
runs lints on each file, then formats and prints them" runs lints on each file, then formats and prints them"
@ -19,11 +26,8 @@
(each [_ filename (ipairs filenames)] (each [_ filename (ipairs filenames)]
(let [file (files.get-by-uri server (.. "file://" filename))] (let [file (files.get-by-uri server (.. "file://" filename))]
(lint.add-lint-diagnostics server file) (lint.add-lint-diagnostics server file)
(each [_ {: message :range {: start}} (ipairs file.diagnostics)] (each [_ {: message : range} (ipairs file.diagnostics)]
(print (: "%s:%s:%s: %s" :format filename (print-diagnostic filename message range))
;; LSP line numbers are zero-indexed, but Emacs and Vim both use
;; 1-indexing for this.
(+ (or start.line 0) 1) (or start.character "?") message)))
(if (. file.diagnostics 1) (if (. file.diagnostics 1)
(set should-err? true)))) (set should-err? true))))
(if should-err? (if should-err?