;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311DD\312\313\314\315\316&\210\305\317\307\310\320DD\321\313\314\315\322&\207" [require dash cl-lib lsp-mode lsp-java custom-declare-variable lsp-java-boot-enabled funcall function #[0 "\300\207" [t] 1] "If non-nil start the boot server when opening java files." :group lsp-java-boot :type boolean lsp-java-boot-java-tools-jar #[0 "\300\207" [nil] 1] "Path to tools jar. If it is not specified it will be\ncalculated using `JAVA_HOME'." file] 8) (defvar lsp-java-boot--callback nil) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&boot:Lenses #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:doc :code-lenses) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:doc :code-lenses) gethash 1 nil assoc ((:doc . :doc) (:code-lenses . :codeLenses))] 7 (#$ . 653)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&boot:Lenses\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:doc :code-lenses) error "Unknown key: %s. Available keys: %s" (:doc :code-lenses) when ht\? gethash symbol-name assoc ((:doc . :doc) (:code-lenses . :codeLenses)) 1 nil] 9 (#$ . 1053)]) #@15 (fn OBJECT) (defalias 'lsp-boot-lenses\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("doc" "codeLenses") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:doc :codeLenses)] 6 (#$ . 1393)]) #@59 (fn &rest PLIST &key DOC CODE-LENSES &allow-other-keys) (defalias 'lsp-make-boot-lenses #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :doc :code-lenses make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:doc . :doc) (:code-lenses . :codeLenses))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 1736)]) #@15 (fn OBJECT) (defalias 'lsp:boot-lenses-doc #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "doc"] 4 (#$ . 2208)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-boot-lenses-doc #[514 "\300\301#\210\207" [puthash "doc"] 6 (#$ . 2333)]) #@15 (fn OBJECT) (defalias 'lsp:boot-lenses-code-lenses #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "codeLenses"] 4 (#$ . 2455)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-boot-lenses-code-lenses #[514 "\300\301#\210\207" [puthash "codeLenses"] 6 (#$ . 2595)]) #@34 Calculate the path to tools.jar. (defalias 'lsp-java-boot--find-tools-jar #[0 "\206\n\301\302\303!\304\"\305!\204\306\307!\210\207" [lsp-java-boot-java-tools-jar f-join getenv "JAVA_HOME" "lib/tools.jar" f-exists\? error "Please configure either JAVA_HOME or lsp-java-boot-java-tools-jar"] 3 (#$ . 2732)]) #@69 Handler with PARAMS data for java doc hover. (fn WORKSPACE PARAMS) (defalias 'lsp-java-boot--sts-javadoc-hover-link #[514 "\301\302\303\"\304\305\306\307\310\311\312\"F\313\314$)\207" [lsp--cur-workspace lsp-find-workspace jdtls nil lsp-request "workspace/executeCommand" :command "sts.java.addClasspathListener" :arguments lsp-get :callbackCommandId :no-wait t] 10 (#$ . 3049)]) #@79 Add classpath listener for WORKSPACE with PARAMS data. (fn WORKSPACE PARAMS) (defalias 'lsp-java-boot--sts-add-classpath-listener #[514 "\301\302\303\301\"\304\305\306\307\310\311\312\"F\313\314$\210)\207" [lsp--cur-workspace nil lsp-find-workspace jdtls lsp-request "workspace/executeCommand" :command "sts.java.addClasspathListener" :arguments lsp-get :callbackCommandId :no-wait t] 11 (#$ . 3439)]) #@74 Boot backend. Store CALLBACK to use it `sts/highlight'. (fn _ CALLBACK) (defalias 'lsp-java-boot--lens-backend #[514 "\301\300!\210\211\211\207" [lsp-java-boot--callback make-local-variable] 4 (#$ . 3851)]) #@115 Non-nil if Lsp-Java-Boot-Lens mode is enabled. Use the command `lsp-java-boot-lens-mode' to change this variable. (defvar lsp-java-boot-lens-mode nil (#$ . 4067)) (make-variable-buffer-local 'lsp-java-boot-lens-mode) #@598 Toggle code-lens overlays. This is a minor mode. If called interactively, toggle the `Lsp-Java-Boot-Lens mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `lsp-java-boot-lens-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'lsp-java-boot-lens-mode #[256 "\304 \305=\203 ?\202\247\203\306W\203\307\202\310\311\301!\2031\312\300 \"\2031\300 B\203T\313\314!\210\315\302!\210\316\n>\203G\n\202L\316\nB\211\317\310!\210\202c\315\302!\210\320\316\n\"\315\303!\210\307\321\322\203m\323\202n\324\"\210\325\326!\203\220\304 \203\202\211\304 \232\203\220\327\330\203\214\331\202\215\332\333#\210\210\334 \210\207" [lsp-java-boot-lens-mode local-minor-modes lsp-lens-backends lsp-java-boot--callback current-message toggle 1 nil t boundp delq require lsp-lens make-local-variable lsp-java-boot--lens-backend lsp-lens-refresh delete run-hooks lsp-java-boot-lens-mode-hook lsp-java-boot-lens-mode-on-hook lsp-java-boot-lens-mode-off-hook called-interactively-p any message "Lsp-Java-Boot-Lens mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 6 (#$ . 4291) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar lsp-java-boot-lens-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\314\300!\205#\310\211%\210\315\316\310\317\310\320%\210\315\316\310\321\310\322%\207" [lsp-java-boot-lens-mode-map lsp-java-boot-lens-mode-hook variable-documentation put "Hook run after entering or leaving `lsp-java-boot-lens-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode lsp-java-boot-lens-mode "BLens" boundp cl-generic-define-method lsp-execute-command (_server (_command (eql sts\.open\.url)) params) #[771 "\300\301!!\207" [browse-url lsp-seq-first] 6 "Execute open url command from PARAMS data.\n\n(fn SERVER COMMAND PARAMS)"] (_server (_command (eql sts\.showHoverAtPosition)) params) #[771 "\300\301!!b\210\302 \207" [lsp--position-to-point lsp-seq-first lsp-describe-thing-at-point] 6 "Execute show hover at position command with PARAMS data.\n\n(fn SERVER COMMAND PARAMS)"]] 6) #@42 WORKSPACE PARAMS. (fn WORKSPACE PARAMS) (defalias 'lsp-java-boot--sts-hightlight #[514 "\211\303\304\"\303\305\"\303\306\"\303\307\"\310\311!!\211\205-r\211q\210 \205,\n\205, \")\262\266\204\262)\207" [lsp--cur-workspace lsp-java-boot--callback lsp-java-boot-lens-mode gethash "doc" "uri" "version" "codeLenses" find-buffer-visiting lsp--uri-to-path] 11 (#$ . 6962)]) #@29 Return the spring boot jar. (defalias 'lsp-java-boot--server-jar #[0 "\301\302\303!\304\"!@\206\305\306!\207" [lsp-java-server-install-dir f-files f-join expand-file-name "boot-server" lsp-log "Unable to find spring boot server jar."] 4 (#$ . 7351)]) #@40 Create LS command for PORT. (fn PORT) (defalias 'lsp-java-boot--ls-command #[257 "\301\302\303 ?\205\304\305\306 \"\304\307\"\304\310\"\311\312\313\314\315\316#P\317\313\320\315\316#P\321\322 \257 \"\207" [lsp-java-java-path -filter identity lsp-java--java-9-plus-p format "-Dloader.path=%s" lsp-java-boot--find-tools-jar "-Dspring.lsp.client-port=%s" "-Dserver.port=%s" "-Dsts.lsp.client=vscode" "-Dsts.log.file=" make-temp-file "sts-log-file" nil ".log" "-Dlogging.file=" "logging-file" "-jar" lsp-java-boot--server-jar] 14 (#$ . 7611)]) (byte-code "\300\301\302\303\304!\305\306\307\310\311\312\"\313\314\315#\210\313\316\317#\210\211\262\320\310\311\312\"\313\321\322#\210\313\323\324#\210\211\262\325\326\327\326\330\331\332\326&!\210\333\334!\207" [lsp-register-client make-lsp-client :new-connection lsp-tcp-server lsp-java-boot--ls-command :activation-fn #[514 "\205\f\211\301>\205\f\302 \207" [lsp-java-boot-enabled (java-mode conf-javaprop-mode yaml-mode) lsp-java-boot--server-jar] 4 "\n\n(fn FILENAME MODE)"] :request-handlers make-hash-table :test equal puthash "sts/addClasspathListener" lsp-java-boot--sts-add-classpath-listener "sts/javadocHoverLink" lsp-java-boot--sts-javadoc-hover-link :notification-handlers "sts/highlight" lsp-java-boot--sts-hightlight "sts/progress" ignore :multi-root t :add-on\? :server-id boot-ls :completion-in-comments\? provide lsp-java-boot] 18)