;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-connection cider-client cider-popup nrepl-dict apropos button] 2) (defconst cider-apropos-buffer "*cider-apropos*") (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\314\315\316\317\320\321\322\323\324\325\326\327\330\331& \207" [custom-declare-variable cider-apropos-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 apropos 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 apropos search as argument." :type (alist :key-type string :value-type function) :group cider :package-version (cider . "0.13.0") define-button-type apropos-special-form apropos-label "Special form" apropos-short-label "s" face font-lock-keyword-face help-echo "mouse-2, RET: Display more help on this special form" follow-link t action #[257 "\300\301\302\"!\207" [describe-function button-get apropos-symbol] 5 "\n\n(fn BUTTON)"]] 14) #@74 Display documentation for the symbol represented at BUTTON. (fn BUTTON) (defalias 'cider-apropos-doc #[257 "\300\301\302\"!\207" [cider-doc-lookup button-get apropos-symbol] 5 (#$ . 1529)]) #@508 Return a short description for the performed apropos search. QUERY can be a regular expression list of space-separated words (e.g take while) which will be converted to a regular expression (like take.+while) automatically behind the scenes. The search may be limited to the namespace NS, and may optionally search doc strings (based on DOCS-P), include private vars (based on INCLUDE-PRIVATE-P), and be case-sensitive (based on CASE-SENSITIVE-P). (fn QUERY NS DOCS-P INCLUDE-PRIVATE-P CASE-SENSITIVE-P) (defalias 'cider-apropos-summary #[1285 "\211\203\300\202 \301\203\302\202\301\303\304\"\203$\303\305\"\202%\301\203-\306\202.\307\260\207" ["Case-sensitive " "" "Documentation " format "Apropos for %S" " in namespace %S" " (public and private symbols)" " (public symbols only)"] 11 (#$ . 1728)]) #@79 Return the DOC string propertized to highlight QUERY matches. (fn DOC QUERY) (defalias 'cider-apropos-highlight #[514 "\301\302#\203\301\225\262\303\301\224\301\225\304%\210\202\210\207" [apropos-match-face 0 string-match put-text-property font-lock-face] 9 (#$ . 2558)]) #@99 Emit a RESULT matching QUERY into current buffer, formatted for DOCS-P. (fn RESULT QUERY DOCS-P) (defalias 'cider-apropos-result #[771 "\301\302\"\301\303\"\301\304\"\305\306\230\203\307\202!\310\227P\311\312\313F\203/\314\315D\"\2020\211`\316\317\311#\210\320c\210\316\317\321\322 P!#\210\323c\210` \203]\324\f\"\325\261\266\202gc\210\326`\"\266\325c\327`#\210\207" [cider-use-tooltips nrepl-dict-get "name" "type" "doc" capitalize "variable" "var" "Display doc for this " apropos-symbol action cider-apropos-doc append help-echo insert-text-button type "\n " intern "apropos-" ": " cider-apropos-highlight "\n" fill-region add-text-properties] 17 (#$ . 2849)]) #@113 Show SUMMARY and RESULTS for QUERY in a pop-up buffer, formatted for DOCS-P. (fn SUMMARY RESULTS QUERY DOCS-P) (defalias 'cider-show-apropos #[1028 "r\303\304\305\306$q\210\307\310\302!\203\311\302!\210\202\312\261\210\211\2033\211@\313#\210A\266\202\202 \210eb*\207" [cider-apropos-buffer inhibit-read-only header-line-format cider-popup-buffer select apropos-mode ancillary t boundp make-local-variable "\n\n" cider-apropos-result] 10 (#$ . 3555)]) #@493 Show all symbols whose names match QUERY, a regular expression. QUERY can also be a list of space-separated words (e.g. take while) which will be converted to a regular expression (like take.+while) automatically behind the scenes. The search may be limited to the namespace NS, and may optionally search doc strings (based on DOCS-P), include private vars (based on PRIVATES-P), and be case-sensitive (based on CASE-SENSITIVE-P). (fn QUERY &optional NS DOCS-P PRIVATES-P CASE-SENSITIVE-P) (defalias 'cider-apropos #[1281 "\300 \210\301\302!\210\303%\211\205\304%\211\203+\305 $\207\306\307\"\207" [cider-ensure-connected cider-ensure-op-supported "apropos" cider-apropos-summary cider-sync-request:apropos cider-show-apropos message "No apropos matches for %S"] 12 (#$ . 4031) (byte-code "\301\302!\205 \303\304\305 \"\211\306\230?\205\211\262\307\310!\307\311!\307\312!FB\207" [current-prefix-arg read-string "Search for Clojure symbol (a regular expression): " completing-read "Namespace (default is all): " cider-sync-request:ns-list "" y-or-n-p "Search doc strings? " "Include private symbols? " "Case-sensitive? "] 6)]) #@45 Shortcut for (cider-apropos nil t). (defalias 'cider-apropos-documentation #[0 "\300 \210\301\302!\210\303\304\305!\306\307#\207" [cider-ensure-connected cider-ensure-op-supported "apropos" cider-apropos read-string "Search for Clojure documentation (a regular expression): " nil t] 4 (#$ . 5195) nil]) #@47 Apply selected action on SYMBOL. (fn SYMBOL) (defalias 'cider-apropos-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-apropos-actions 1 completing-read format "Choose action to apply to `%s` (default %s): " nil assoc user-error "Unknown action `%s`"] 10 (#$ . 5512)]) #@568 Similar to `cider-apropos', but presents the results in a completing read. Show all symbols whose names match QUERY, a regular expression. QUERY can also be a list of space-separated words (e.g. take while) which will be converted to a regular expression (like take.+while) automatically behind the scenes. The search may be limited to the namespace NS, and may optionally search doc strings (based on DOCS-P), include private vars (based on PRIVATES-P), and be case-sensitive (based on CASE-SENSITIVE-P). (fn QUERY &optional NS DOCS-P PRIVATES-P CASE-SENSITIVE-P) (defalias 'cider-apropos-select #[1281 "\300 \210\301\302!\210\303%\211\205!\304\305\306%\"\211\203.\307\310\311P\"!\207\312\313\"\207" [cider-ensure-connected cider-ensure-op-supported "apropos" cider-apropos-summary mapcar #[257 "\300\301\"\207" [nrepl-dict-get "name"] 4 "\n\n(fn R)"] cider-sync-request:apropos cider-apropos-act-on-symbol completing-read ": " message "No apropos matches for %S"] 14 (#$ . 5876) (byte-code "\301\302!\205 \303\304\305 \"\211\306\230?\205\211\262\307\310!\307\311!\307\312!FB\207" [current-prefix-arg read-string "Search for Clojure symbol (a regular expression): " completing-read "Namespace (default is all): " cider-sync-request:ns-list "" y-or-n-p "Search doc strings? " "Include private symbols? " "Case-sensitive? "] 6)]) #@52 Shortcut for (cider-apropos-select nil t). (defalias 'cider-apropos-documentation-select #[0 "\300 \210\301\302!\210\303\304\305!\306\307#\207" [cider-ensure-connected cider-ensure-op-supported "apropos" cider-apropos-select read-string "Search for Clojure documentation (a regular expression): " nil t] 4 (#$ . 7240) nil]) (provide 'cider-apropos)