-
-
Notifications
You must be signed in to change notification settings - Fork 149
/
main.clj
203 lines (182 loc) · 8.38 KB
/
main.clj
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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
(ns clojure-lsp.main
(:refer-clojure :exclude [run!])
(:require
borkdude.dynaload
[clojure-lsp.internal-api :as internal-api]
[clojure-lsp.kondo :as lsp.kondo]
[clojure-lsp.server :as server]
[clojure-lsp.shared :as shared]
[clojure.edn :as edn]
[clojure.java.io :as io]
[clojure.string :as string]
[clojure.tools.cli :refer [parse-opts]]
[pod.clojure-lsp.api :as pod])
(:gen-class))
(set! *warn-on-reflection* true)
(defn ^:private version []
(->> [(str "clojure-lsp " (shared/clojure-lsp-version))
(str "clj-kondo " (lsp.kondo/clj-kondo-version))]
(string/join \newline)))
(defn ^:private help [options-summary]
(->> ["Clojure development tool implementing LSP"
""
"Usage: clojure-lsp <command> [<options>]"
""
"All options:"
options-summary
""
"Available commands:"
" listen (or empty) Start clojure-lsp as server, listening to stdin."
" clean-ns Organize ns form, removing unused requires/refers/imports and sorting alphabetically."
" diagnostics Analyze the project and find all diagnostics (warnings, errors)."
" format Format code using cljfmt."
" rename Rename a symbol and all references across the project, use --from and --to options."
" dump (experimental) Dump all project known data including classpath, source-paths, dep-graph and clj-kondo analysis data."
""
;; "Run \"clojure-lsp help <command>\" for more information about a command."
"See https://clojure-lsp.io/settings/ for detailed documentation."]
(string/join \newline)))
(def ^:private trace-levels
#{"off" "messages" "verbose"})
(defn ^:private cli-options []
[["-h" "--help" "Print the available commands and its options"]
[nil "--version" "Print clojure-lsp version"]
[nil "--verbose" "Use stdout for clojure-lsp logs instead of default log settings"]
[nil "--trace" "Deprecated: use --trace-level instead."]
[nil "--trace-level LEVEL" "Enable trace logs between client and server, for debugging. Set to 'messages' for basic traces, or 'verbose' for more detailed traces. Defaults to 'off' for no traces."
:default "off"
:validate [trace-levels (str "Must be in " trace-levels)]]
["-s" "--settings SETTINGS" "Optional settings as edn to use for the specified command. For all available settings, check https://clojure-lsp.io/settings"
:id :settings
:validate [#(try (edn/read-string %) true (catch Exception _ false))
"Invalid --settings EDN"]
:assoc-fn #(assoc %1 %2 (edn/read-string %3))]
[nil "--log-path PATH" "Path to use as the log path for clojure-lsp.out, debug purposes only."
:id :log-path]
[nil "--dry" "Make no changes to files, only report diffs"
:id :dry?
:default false]
[nil "--raw" "Print only necessary data"
:id :raw?
:default false]
["-p" "--project-root PATH" "Specify the path to the project root to clojure-lsp consider during analysis startup."
:id :project-root
:parse-fn io/file
:validate [#(-> % io/file .exists) "Specify a valid path after --project-root"]]
["-n" "--namespace NS" "Optional namespace to apply the action, all if not supplied. This flag accepts multiple values"
:id :namespace
:default []
:parse-fn symbol
:multi true
:update-fn conj]
[nil "--filenames FILENAMES" "Optional filenames to apply the action. Filenames can be either absolute/relatetive files or directories. This flag accepts filenames separated by comma or double colon."
:id :filenames
:validate [#(not (string/includes? (str %) " ")) "Filenames should be separated by comma or double colon."]
:assoc-fn #(assoc %1 %2 (->> (if (string/includes? %3 ",")
(string/split %3 #",")
(string/split %3 #":"))
(map io/file)))]
[nil "--ns-exclude-regex REGEX" "Optional regex representing the namespaces to be excluded during a command"
:id :ns-exclude-regex
:parse-fn re-pattern
:validate [#(instance? java.util.regex.Pattern %) "Specify a valid string regex after --ns-exclude-regex"]]
["-o" "--output EDN" "Optional settings as edn on how the result should be printed. Check `clojure-lsp.api/diagnostics`/`clojure-lsp.api/dump` for all available options to this flag."
:id :output
:validate [#(try (edn/read-string %) true (catch Exception _ false))
"Invalid --output EDN"]
:assoc-fn #(assoc %1 %2 (edn/read-string %3))]
[nil "--from FROM" "Full qualified symbol name or ns only, e.g. my-project/my-var. option for rename"
:id :from
:parse-fn symbol
:validate [symbol? "Specify a valid clojure full qualified symbol or the namespace after --from"]]
[nil "--to TO" "Full qualified symbol name or ns only, e.g. my-project/my-var. option for rename"
:id :to
:parse-fn symbol
:validate [symbol? "Specify a valid clojure full qualified symbol or the namespace after --to"]]
[nil "--analysis EDN" "Optional settings as edn on how clojure-lsp should consider the analysis. Check `clojure-lsp.api/dump` for all available options to this flag."
:id :analysis
:validate [#(try (edn/read-string %) true (catch Exception _ false))
"Invalid --analysis EDN"]
:assoc-fn #(assoc %1 %2 (edn/read-string %3))]])
(defn ^:private error-msg [errors]
(str "The following errors occurred while parsing your command:\n\n"
(string/join \newline errors)))
(defn ^:private parse [args]
(let [{:keys [options arguments errors summary]} (parse-opts args (cli-options))
pod? (= "true" (System/getenv "BABASHKA_POD"))]
(cond
pod?
{:action "pod" :options options}
(:help options)
{:exit-message (help summary) :ok? true}
(:version options)
{:exit-message (version) :ok? true}
errors
{:exit-message (error-msg errors)}
(= 0 (count arguments))
{:action "listen" :options options}
(and (= 1 (count arguments))
(#{"clean-ns" "diagnostics" "format" "rename" "dump" "listen"} (first arguments)))
{:action (first arguments) :options options}
:else
{:exit-message (help summary)})))
(defn ^:private exit [status msg]
(when msg
(println msg))
(System/exit (or status 1)))
(defn ^:private with-required-options [options required fn]
(doseq [option required]
(when-not (get options option)
(exit 1 (format "Missing required %s option for this command" option))))
(when (every? options required)
(apply fn [options])))
(defn ^:private handle-action!
[action options]
(if (= "listen" action)
(let [finished @(server/run-lsp-io-server! (:trace-level options))]
{:result-code (if (= :done finished) 0 1)})
(try
(case action
"pod" (pod/run-pod)
"clean-ns" (internal-api/clean-ns! options)
"diagnostics" (internal-api/diagnostics options)
"format" (internal-api/format! options)
"rename" (with-required-options
options
[:from :to]
internal-api/rename!)
"dump" (internal-api/dump options))
(catch clojure.lang.ExceptionInfo e
(ex-data e)))))
(defn run!
"Entrypoint for clojure-lsp CLI, Use `clojure-lsp.api` for a better API usage."
[& args]
(let [{:keys [action options exit-message ok?]} (parse args)]
(if exit-message
{:result-code (if ok? 0 1)
:message-fn (constantly exit-message)}
(handle-action! action options))))
(defn main [& args]
(let [{:keys [result-code message-fn]} (apply run! args)]
(exit result-code (when message-fn (message-fn)))))
(def musl?
"Captured at compile time, to know if we are running inside a
statically compiled executable with musl."
(and (= "true" (System/getenv "CLOJURE_LSP_STATIC"))
(= "true" (System/getenv "CLOJURE_LSP_MUSL"))))
(defmacro run [args]
(if musl?
;; When running in musl-compiled static executable we lift execution of clojure-lsp
;; inside a thread, so we have a larger than default stack size, set by an
;; argument to the linker. See https://github.com/oracle/graal/issues/3398
`(let [v# (volatile! nil)
f# (fn []
(vreset! v# (apply main ~args)))]
(doto (Thread. nil f# "main")
(.start)
(.join))
@v#)
`(apply main ~args)))
(defn -main
[& args]
(run args))