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

the --check flag gives nonzero exit code if it found anything

Browse Source
This commit is contained in:
XeroOl 2024-02-12 21:58:23 -06:00
parent ddbed43a7d
commit 814ebb4dfa
1 changed files with 16 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
src/fennel-ls.fnl
View File

@ -3,21 +3,27 @@
(local state (require :fennel-ls.state))
(local diagnostics (require :fennel-ls.diagnostics))
(λ check [filename]
(λ check [filenames]
(let [server (doto {}
(dispatch.handle* {:id 1
:jsonrpc "2.0"
:method "initialize"
:params {:capabilities {:general {:positionEncodings [:utf-8]}}
:clientInfo {:name "fennel-ls"}
:rootUri "file://"}}))
file (state.get-by-uri server (.. "file://" filename))]
(diagnostics.check server file)
(each [_ {: message :range {: start}} (ipairs file.diagnostics)]
(print (: "%s:%s:%s %s" :format filename
;; 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)))))
:rootUri "file://"}}))]
(var should-err? false)
(each [_ filename (ipairs filenames)]
(let [file (state.get-by-uri server (.. "file://" filename))]
(diagnostics.check server file)
(each [_ {: message :range {: start}} (ipairs file.diagnostics)]
(print (: "%s:%s:%s %s" :format filename
;; 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 (not= 0 (length file.diagnostics))
(set should-err? true))))
(if should-err?
(os.exit 1))))
(λ main-loop [in out]
(local send (partial json-rpc.write out))
@ -28,8 +34,7 @@
(λ main []
(case arg
["--check" & filenames] (each [_ filename (ipairs filenames)]
(check filename))
["--check" & filenames] (check filenames)
(where (or ["--server"] [nil])) (main-loop (io.input)
(io.output))
_args (do (io.stderr:write "USAGE: fennel-ls [--check file] [--server]\n")