;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\300\305!\210\300\306!\210\300\307!\210\300\310!\210\300\311!\210\300\312!\210\300\313!\207" [require cider-doc cider-find cider-util subr-x cider-compat cider-client cider-popup nrepl-dict clojure-mode apropos button] 2) (defconst cider-xref-buffer "*cider-xref*") (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable cider-xref-actions funcall function #[0 "\300\207" [(("display-doc" . cider-doc-lookup) ("find-def" . cider--find-var) ("lookup-on-clojuredocs" . cider-clojuredocs-lookup))] 1] "Controls the actions to be applied on the symbol found by an xref search.\nThe first action key in the list will be selected as default. If the list\ncontains only one action key, the associated action function will be\napplied automatically. An action function can be any function that receives\nthe symbol found by the xref search as argument." :type (alist :key-type string :value-type function) :group cider :package-version (cider . "0.22.0")] 10) #@74 Display documentation for the symbol represented at BUTTON. (fn BUTTON) (defalias 'cider-xref-doc #[257 "\300\301\302\"!\207" [cider-doc-lookup button-get apropos-symbol] 5 (#$ . 1145)]) #@49 Emit a RESULT into current buffer. (fn RESULT) (defalias 'cider-xref-result #[257 "\300\301\"`\302\303\304#\210\305`\304\306\307\310\311\257#\266\312c\210\302\313\303\314#\210\315c\210`\300\316\"c\210\317`\"\266\320c\210\300\321\"\211\205A\300\322\"\211\203g\323\324\325#\326\261\210\302\327!\330\331\306\332\333   $%\210\334c\266\202k\335c\266\320c\207" [nrepl-dict-get "name" insert-text-button type apropos-symbol add-text-properties action cider-xref-doc help-echo "Display doc" "\n " "Function" apropos-function ": " "doc" fill-region "\n" "file" "line" propertize font-lock-face font-lock-function-name-face " is defined in " cider--abbreviate-file-protocol follow-link t make-closure #[257 "\303\301\302\300#\207" [V0 V1 V2 cider-xref-source] 5 "\n\n(fn X)"] "." "Definition location unavailable."] 14 (#$ . 1340)]) #@59 Find source for FILE, LINE and NAME. (fn FILE LINE NAME) (defalias 'cider-xref-source #[771 "\203'\300!?\205\301!\211\203!\302\203C\202\303#\207\304\305\306!!\207\307\310\"\207" [cider--tooling-file-p cider-find-file cider-jump-to nil user-error substitute-command-keys "Can't find the source because it wasn't defined with `cider-eval-buffer'" error "No source location for %s"] 8 (#$ . 2193) nil]) #@68 Show SUMMARY and RESULTS in a pop-up buffer. (fn SUMMARY RESULTS) (defalias 'cider-show-xref #[514 "r\303\304\305\306$q\210\307\310\302!\203\311\302!\210\202\312\261\210\211\211\2031\211@\313!\210A\266\202\202 \210eb*\207" [cider-xref-buffer inhibit-read-only header-line-format cider-popup-buffer select apropos-mode ancillary t boundp make-local-variable "\n\n" cider-xref-result] 7 (#$ . 2616)]) #@93 Show all functions that reference the var matching NS and SYMBOL. (fn &optional NS SYMBOL) (defalias 'cider-xref-fn-refs #[512 "\300 \210\301\302!\210\206 \303 \211\205\206\304 \211\205\305\"\211\203-\306\307\310G#\"\207\311\312\"\207" [cider-ensure-connected cider-ensure-op-supported "fn-refs" cider-current-ns cider-symbol-at-point cider-sync-request:fn-refs cider-show-xref format "Showing %d functions that reference %s in currently loaded namespaces" message "No references found for %S in currently loaded namespaces"] 10 (#$ . 3036) nil]) #@92 Show all functions referenced by the var matching NS and SYMBOL. (fn &optional NS SYMBOL) (defalias 'cider-xref-fn-deps #[512 "\300 \210\301\302!\210\206 \303 \211\205\206\304 \211\205\305\"\211\203-\306\307\310G#\"\207\311\312\"\207" [cider-ensure-connected cider-ensure-op-supported "fn-deps" cider-current-ns cider-symbol-at-point cider-sync-request:fn-deps cider-show-xref format "Showing %d function dependencies for %s" message "No dependencies found for %S"] 10 (#$ . 3606) nil]) #@47 Apply selected action on SYMBOL. (fn SYMBOL) (defalias 'cider-xref-act-on-symbol #[257 "@@G\301U\203\211\202\302\303\304#\305\211\211\211&\306\"A\211\203*\211!\207\307\310\"\207" [cider-xref-actions 1 completing-read format "Choose action to apply to `%s` (default %s): " nil assoc user-error "Unknown action `%s`"] 10 (#$ . 4116)]) #@92 Displays the references for NS and SYMBOL using completing read. (fn &optional NS SYMBOL) (defalias 'cider-xref-fn-refs-select #[512 "\300 \210\301\302!\210\206 \303 \211\205\206\304 \211\205\"\305\306\307\"\"\211\205*\310\311\"\211\2037\312\313\314P\"!\207\315\316\"\207" [cider-ensure-connected cider-ensure-op-supported "fn-refs" cider-current-ns cider-symbol-at-point mapcar #[257 "\300\301\"\207" [nrepl-dict-get "name"] 4 "\n\n(fn D)"] cider-sync-request:fn-refs format "References for %s" cider-xref-act-on-symbol completing-read ": " message "No references for %S found"] 10 (#$ . 4473) nil]) #@104 Displays the function dependencies for NS and SYMBOL using completing read. (fn &optional NS SYMBOL) (defalias 'cider-xref-fn-deps-select #[512 "\300 \210\301\302!\210\206 \303 \211\205\206\304 \211\205\"\305\306\307\"\"\211\205*\310\311\"\211\2037\312\313\314P\"!\207\315\316\"\207" [cider-ensure-connected cider-ensure-op-supported "fn-deps" cider-current-ns cider-symbol-at-point mapcar #[257 "\300\301\"\207" [nrepl-dict-get "name"] 4 "\n\n(fn D)"] cider-sync-request:fn-deps format "Dependencies for %s" cider-xref-act-on-symbol completing-read ": " message "No dependencies for %S found"] 10 (#$ . 5099) nil]) (provide 'cider-xref)