;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\301\312\313& \210\314\315\316\317\320DD\321\311\304\322\323\324\325& \207" [require lsp-mode cl-lib custom-declare-group lsp-clojure nil "LSP support for Clojure." :link (url-link "https://github.com/snoe/clojure-lsp") :group :tag "Lsp Clojure" custom-declare-variable lsp-clojure-server-command funcall function #[0 "\300\207" [("bash" "-c" "clojure-lsp")] 1] "The clojure-lisp server command." :risky t :type list] 10) #@186 Send an executeCommand request for REFACTOR-NAME with ADDITIONAL-ARGS. If there are more arguments expected after the line and column numbers. (fn REFACTOR-NAME &rest ADDITIONAL-ARGS) (defalias 'lsp-clojure--refactoring-call #[385 "\300 \210\301\302\303\304 \305 SiBBB\"\"\207" [lsp--cur-workspace-check lsp--send-execute-command apply vector lsp--buffer-uri line-number-at-pos] 10 (#$ . 576)]) #@49 Apply add-missing-libspec refactoring at point. (defalias 'lsp-clojure-add-missing-libspec #[0 "\300\301!\207" [lsp-clojure--refactoring-call "add-missing-libspec"] 2 (#$ . 981) nil]) #@38 Apply clean-ns refactoring at point. (defalias 'lsp-clojure-clean-ns #[0 "\300\301!\207" [lsp-clojure--refactoring-call "clean-ns"] 2 (#$ . 1171) nil]) #@40 Apply cycle-coll refactoring at point. (defalias 'lsp-clojure-cycle-coll #[0 "\300\301!\207" [lsp-clojure--refactoring-call "cycle-coll"] 2 (#$ . 1329) nil]) #@43 Apply cycle-privacy refactoring at point. (defalias 'lsp-clojure-cycle-privacy #[0 "\300\301!\207" [lsp-clojure--refactoring-call "cycle-privacy"] 2 (#$ . 1493) nil]) #@40 Apply expand-let refactoring at point. (defalias 'lsp-clojure-expand-let #[0 "\300\301!\207" [lsp-clojure--refactoring-call "expand-let"] 2 (#$ . 1666) nil]) #@81 Move form at point into a new function named FUNCTION-NAME. (fn FUNCTION-NAME) (defalias 'lsp-clojure-extract-function #[257 "\300\301\"\207" [lsp-clojure--refactoring-call "extract-function"] 4 (#$ . 1830) "MFunction name: "]) #@43 Apply inline-symbol refactoring at point. (defalias 'lsp-clojure-inline-symbol #[0 "\300\301!\207" [lsp-clojure--refactoring-call "inline-symbol"] 2 (#$ . 2066) nil]) #@79 Move form at point into a new let binding as BINDING-NAME. (fn BINDING-NAME) (defalias 'lsp-clojure-introduce-let #[257 "\300\301\"\207" [lsp-clojure--refactoring-call "introduce-let"] 4 (#$ . 2239) "MBinding name: "]) #@90 Move form at point into nearest existing let binding as BINDING-NAME. (fn BINDING-NAME) (defalias 'lsp-clojure-move-to-let #[257 "\300\301\"\207" [lsp-clojure--refactoring-call "move-to-let"] 4 (#$ . 2466) "MBinding name: "]) #@42 Apply thread-first refactoring at point. (defalias 'lsp-clojure-thread-first #[0 "\300\301!\207" [lsp-clojure--refactoring-call "thread-first"] 2 (#$ . 2700) nil]) #@46 Apply thread-first-all refactoring at point. (defalias 'lsp-clojure-thread-first-all #[0 "\300\301!\207" [lsp-clojure--refactoring-call "thread-first-all"] 2 (#$ . 2870) nil]) #@41 Apply thread-last refactoring at point. (defalias 'lsp-clojure-thread-last #[0 "\300\301!\207" [lsp-clojure--refactoring-call "thread-last"] 2 (#$ . 3052) nil]) #@45 Apply thread-last-all refactoring at point. (defalias 'lsp-clojure-thread-last-all #[0 "\300\301!\207" [lsp-clojure--refactoring-call "thread-last-all"] 2 (#$ . 3219) nil]) #@40 Apply unwind-all refactoring at point. (defalias 'lsp-clojure-unwind-all #[0 "\300\301!\207" [lsp-clojure--refactoring-call "unwind-all"] 2 (#$ . 3398) nil]) #@43 Apply unwind-thread refactoring at point. (defalias 'lsp-clojure-unwind-thread #[0 "\300\301!\207" [lsp-clojure--refactoring-call "unwind-thread"] 2 (#$ . 3562) nil]) #@75 Return the library folders path to analyze for WORKSPACE. (fn WORKSPACE) (defalias 'lsp-clojure--library-folders #[257 "\301\302 \303\304\305#)\266\203\205\306\302 !C\207" [inhibit-changing-match-data ".m2/repository" buffer-file-name nil t string-match file-name-directory] 8 (#$ . 3735)]) #@66 Check URI for a valid jar and include it in workspace. (fn URI) (defalias 'lsp-clojure--file-in-jar #[257 "\301\302\"\210\303\304\"\211\205U\305\303\306\"!\211\205S\307\310#\211\205Q\311\312\313\314D\"!\211\205O\315!\204Nr\316!q\210\211c\210\317!\210\320\300!\210\321\322\323!\210\324 \210)\262\262\262\207" [buffer-read-only string-match "^\\(jar\\|zip\\):\\(file:.+\\)!/\\(.+\\)" match-string 3 lsp--uri-to-path 2 format "%s:%s" lsp-send-request lsp-make-request "clojure/dependencyContents" :uri find-buffer-visiting generate-new-buffer set-visited-file-name make-local-variable t set-buffer-modified-p nil set-auto-mode] 9 (#$ . 4039)]) (byte-code "\300\301\302\303\304!\305\306\307\310\311\312\313\314\"\315\316\317#\210\211\262\320\321\322\323&\f!\210\324\325!\207" [lsp-register-client make-lsp-client :new-connection lsp-stdio-connection #[0 "\207" [lsp-clojure-server-command] 1] :major-modes (clojure-mode clojurec-mode clojurescript-mode) :library-folders-fn lsp-clojure--library-folders :uri-handlers make-hash-table :test equal puthash "jar" lsp-clojure--file-in-jar :initialization-options (:dependency-scheme "jar") :server-id clojure-lsp provide lsp-clojure] 14)