;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!\207" [require cider-client cider-common subr-x cider-compat cider-popup nrepl-dict url-vars] 2) (defconst cider-clojuredocs-url "https://clojuredocs.org/") (defconst cider-clojuredocs-buffer "*cider-clojuredocs*") #@59 Perform nREPL "resource" op with NS and SYM. (fn NS SYM) (defalias 'cider-sync-request:clojuredocs-lookup #[514 "\300\301\302\303\304\305\257!\306\"\207" [nrepl-dict-get cider-nrepl-send-sync-request "op" "clojuredocs-lookup" "ns" "sym" "clojuredocs"] 10 (#$ . 401)]) #@32 Refresh the ClojureDocs cache. (defalias 'cider-sync-request:clojuredocs-refresh #[0 "\300\301\302!\303\"\207" [nrepl-dict-get cider-nrepl-send-sync-request ("op" "clojuredocs-refresh-cache") "status"] 3 (#$ . 681)]) #@115 Convert the dashes in NAME to a ClojureDocs friendly format. We need to handle "?", ".", ".." and "/". (fn NAME) (defalias 'cider-clojuredocs-replace-special #[257 "\300\301\302\300\303\304\300\305\306 ###\207" [replace-regexp-in-string "/" "fs" "\\(\\.+\\)" "_\\1" "\\?" "_q"] 11 (#$ . 905)]) #@60 Generate a ClojureDocs url from NAME and NS. (fn NAME NS) (defalias 'cider-clojuredocs-url #[514 "\205\205\211\301\302!R\207" [cider-clojuredocs-url "/" cider-clojuredocs-replace-special] 8 (#$ . 1207)]) #@72 Open the ClojureDocs documentation for SYM in a web browser. (fn SYM) (defalias 'cider-clojuredocs-web-lookup #[257 "\300!\211\203\301\302\"\301\303\"\304\305\"!\207\306\307\"\207" [cider-var-info nrepl-dict-get "name" "ns" browse-url cider-clojuredocs-url error "Symbol %s not resolved"] 8 (#$ . 1428)]) #@264 Open ClojureDocs documentation in the default web browser. Prompts for the symbol to use, or uses the symbol at point, depending on the value of `cider-prompt-for-symbol'. With prefix arg ARG, does the opposite of what that option dictates. (fn &optional ARG) (defalias 'cider-clojuredocs-web #[256 "\300!\301\302\"\207" [cider-prompt-for-symbol-function "ClojureDocs doc for" cider-clojuredocs-web-lookup] 4 (#$ . 1749) "P"]) #@32 Refresh the ClojureDocs cache. (defalias 'cider-clojuredocs-refresh-cache #[0 "\300 \301\235\203\f\302\303!\207\302\304!\207" [cider-sync-request:clojuredocs-refresh "ok" message "ClojureDocs cache refreshed successfully" "An error occurred while trying to refresh the ClojureDocs cache"] 3 (#$ . 2186) nil]) #@61 Create a new ClojureDocs buffer with CONTENT. (fn CONTENT) (defalias 'cider-create-clojuredocs-buffer #[257 "r\301\302\"q\210\303\304!\210\211c\210\305\306!\210\307\306!\210eb\210p)\207" [cider-clojuredocs-buffer cider-popup-buffer t read-only-mode -1 cider-popup-buffer-mode 1 view-mode] 4 (#$ . 2503)]) #@46 Generate a nice string from DICT. (fn DICT) (defalias 'cider-clojuredocs--content #[257 "\300\301\302\"r\211q\210\303\304\"\216\305\306\307\"\310\306\311\"\312\261\210\306\313\"\211\211\2033\211@\314\315\"c\210A\266\202\202 \210\316c\210\306\317\"c\210\316c\266\320c\210\306\321\"\211\203e\211\211\203`\211@\314\322\"c\210A\266\202\202M\266\202i\323c\266\324c\210\306\325\"\211\203\217\211\211\203\212\211@\326!c\210\327c\210A\266\202\202u\266\202\223\323c\266\330c\210\306\331\"\211\203\267\211\211\203\262\211@\211c\210\327c\210A\266\202\202\237\266\202\273\323c\266\332 *\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] "= " nrepl-dict-get "ns" "/" "name" "\n\n" "arglists" format " [%s]\n" "\n" "doc" "\n== See Also\n\n" "see-alsos" "* %s\n" "Not available\n" "\n== Examples\n\n" "examples" cider-font-lock-as-clojure "\n-------------------------------------------------\n" "\n== Notes\n\n" "notes" buffer-string] 8 (#$ . 2816)]) #@58 Look up the ClojureDocs documentation for SYM. (fn SYM) (defalias 'cider-clojuredocs-lookup #[257 "\300\301 \"\302\303\304!!!\207" [cider-sync-request:clojuredocs-lookup cider-current-ns pop-to-buffer cider-create-clojuredocs-buffer cider-clojuredocs--content] 6 (#$ . 3864)]) #@255 Open ClojureDocs documentation in a popup buffer. Prompts for the symbol to use, or uses the symbol at point, depending on the value of `cider-prompt-for-symbol'. With prefix arg ARG, does the opposite of what that option dictates. (fn &optional ARG) (defalias 'cider-clojuredocs #[256 "\300\301!\203\n\302\303!\210\304!\305\306\"\207" [derived-mode-p clojurescript-mode user-error "`cider-clojuredocs' doesn't support ClojureScript" cider-prompt-for-symbol-function "ClojureDocs doc for" cider-clojuredocs-lookup] 4 (#$ . 4151) "P"]) (provide 'cider-clojuredocs)