;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!\210\314\315\316\317\320DD\321\322\323\324\325\326\327& \210\314\330\316\317\331DD\332\322\333\324\325\326\334& \210\314\335\316\317\336DD\337\322\340\324\325\326\341& \210\314\342\316\317\343DD\344\322\333\324\325\326\345& \207" [require map seq subr-x parseedn clojure-mode spinner cider-compat cider-connection cider-common cider-util nrepl-client custom-declare-variable cider-eval-spinner-type funcall function #[0 "\300\207" [progress-bar] 1] "Appearance of the evaluation spinner.\n\nValue is a symbol. The possible values are the symbols in the\n`spinner-types' variable." :type symbol :group cider :package-version (cider . "0.10.0") cider-show-eval-spinner #[0 "\300\207" [t] 1] "When true, show the evaluation spinner in the mode line." boolean (cider . "0.10.0") cider-eval-spinner-delay #[0 "\300\207" [1] 1] "Amount of time, in seconds, after which the evaluation spinner will be shown." integer (cider . "0.10.0") cider-enhanced-cljs-completion-p #[0 "\300\207" [t] 1] "This setting enables dynamic cljs completions.\nThat is, expressions at point are evaluated and the properties of the\nresulting value are used to compute completions." (cider . "0.23.0")] 10) #@102 Start the evaluation spinner in BUFFER. Do nothing if `cider-show-eval-spinner' is nil. (fn BUFFER) (defalias 'cider-spinner-start #[257 "\205r\211q\210\303 \304\n#)\207" [cider-show-eval-spinner cider-eval-spinner-type cider-eval-spinner-delay spinner-start nil] 5 (#$ . 1418)]) #@168 Return a response handler to stop the spinner and call ORIGINAL-CALLBACK. EVAL-BUFFER is the buffer where the spinner was started. (fn EVAL-BUFFER ORIGINAL-CALLBACK) (defalias 'cider-eval-spinner-handler #[514 "\300\301#\207" [make-closure #[257 "\303\300!\203*\304\305\"\306\235\206\307\235\206\310\235\262\203*r\300q\210\n\203)\311 \210)\301!\207" [V0 V1 spinner-current buffer-live-p nrepl-dict-get "status" "done" "eval-error" "error" spinner-stop] 4 "\n\n(fn RESPONSE)"]] 6 (#$ . 1709)]) #@41 Check if FORM is an ns form. (fn FORM) (defalias 'cider-ns-form-p #[257 "\301\302\303\304#)\207" [inhibit-changing-match-data "^[[:space:]]*(ns\\([[:space:]]*$\\|[[:space:]]+\\)" nil t string-match] 8 (#$ . 2224)]) #@46 Get ns substring from NS-FORM. (fn NS-FORM) (defalias 'cider-ns-from-form #[257 "\300\301\"\205 \302\303\"\207" [string-match "^[ \n]*(ns[ \n]+\\([^][ \n(){}]+\\)" match-string-no-properties 1] 4 (#$ . 2451)]) #@251 Current Clojure namespace of some buffer. Useful for special buffers (e.g. REPL, doc buffers) that have to keep track of a namespace. This should never be set in Clojure buffers, as there the namespace should be extracted from the buffer's ns form. (defvar cider-buffer-ns nil (#$ . 2675)) (make-variable-buffer-local 'cider-buffer-ns) #@301 Return the current ns. The ns is extracted from the ns form for Clojure buffers and from `cider-buffer-ns' for all other buffers. If it's missing, use the current REPL's ns, otherwise fall back to "user". When NO-DEFAULT is non-nil, it will return nil instead of "user". (fn &optional NO-DEFAULT) (defalias 'cider-current-ns #[256 "\206\301 \206\302 \211\205\303\300\"\262\206\211?\205\304\207" [cider-buffer-ns clojure-find-ns cider-current-repl buffer-local-value "user"] 5 (#$ . 3019)]) #@115 Transform RELPATH to Clojure namespace. Remove extension and substitute "/" with ".", "_" with "-". (fn RELPATH) (defalias 'cider-path-to-ns #[257 "\300\301\302\300\303\304\305!##\207" [replace-regexp-in-string "_" "-" "/" "." file-name-sans-extension] 9 (#$ . 3532)]) #@250 Return the namespace string matching PATH, or nil if not found. If PATH is nil, use the path to the file backing the current buffer. The command falls back to `clojure-expected-ns' in the absence of an active nREPL connection. (fn &optional PATH) (defalias 'cider-expected-ns #[256 "\301 \203+\302\206 !\303\304\305\306\307\310\311\"\305\312\313 \"\"\"\"@\211\203'\314!\207\315!\207\315!\207" [buffer-file-name cider-connected-p file-truename seq-sort #[514 "GGW\207" [] 4 "\n\n(fn A B)"] seq-filter identity seq-map make-closure #[257 "\301\300\"\205 \302\300\"\207" [V0 file-in-directory-p file-relative-name] 4 "\n\n(fn DIR)"] file-directory-p cider-classpath-entries cider-path-to-ns clojure-expected-ns] 11 (#$ . 3811)]) #@94 Check whether the CONNECTION supports the nREPL middleware OP. (fn OP &optional CONNECTION) (defalias 'cider-nrepl-op-supported-p #[513 "\300\206\n\301\302\303\"\"\207" [nrepl-op-supported-p cider-current-repl nil ensure] 7 (#$ . 4560)]) #@89 Check for support of middleware op OP. Signal an error if it is not supported. (fn OP) (defalias 'cider-ensure-op-supported #[257 "\301!?\205\f\302\303#\207" [this-command cider-nrepl-op-supported-p user-error "`%s' requires the nREPL op \"%s\" (provided by cider-nrepl)"] 5 (#$ . 4808)]) #@338 Send REQUEST and register response handler CALLBACK. REQUEST is a pair list of the form ("op" "operation" "par1-name" "par1" ... ). If CONNECTION is provided dispatch to that connection instead of the current connection. Return the id of the sent message. (fn REQUEST CALLBACK &optional CONNECTION) (defalias 'cider-nrepl-send-request #[770 "\300\206 \301\302\303\"#\207" [nrepl-send-request cider-current-repl any ensure] 9 (#$ . 5109)]) #@385 Send REQUEST to the nREPL server synchronously using CONNECTION. Hold till final "done" message has arrived and join all response messages of the same "op" that came along and return the accumulated response. If ABORT-ON-INPUT is non-nil, the function will return nil at the first sign of user input, so as not to hang the interface. (fn REQUEST &optional CONNECTION ABORT-ON-INPUT) (defalias 'cider-nrepl-send-sync-request #[769 "\300\206\n\301\302\303\"#\207" [nrepl-send-sync-request cider-current-repl any ensure] 8 (#$ . 5597)]) #@173 Send REQUEST to the nREPL CONNECTION and ignore any responses. Immediately mark the REQUEST as done. Return the id of the sent message. (fn REQUEST &optional CONNECTION) (defalias 'cider-nrepl-send-unhandled-request #[513 "\211\206\300\301\302\"\303\304#rq\210\305!\210)\207" [cider-current-repl any ensure nrepl-send-request ignore nrepl--mark-id-completed] 7 (#$ . 6143)]) #@410 Send the request INPUT and register the CALLBACK as the response handler. If NS is non-nil, include it in the request. LINE and COLUMN, if non-nil, define the position of INPUT in its buffer. ADDITIONAL-PARAMS is a plist to be appended to the request message. CONNECTION is the connection buffer, defaults to (cider-current-repl). (fn INPUT CALLBACK &optional NS LINE COLUMN ADDITIONAL-PARAMS CONNECTION) (defalias 'cider-nrepl-request:eval #[1794 "\211\206\301\302\303\"\304\203\305\n\"\202    &\210\306!\207" [cider-show-eval-spinner cider-current-repl nil ensure nrepl-request:eval cider-eval-spinner-handler cider-spinner-start] 16 (#$ . 6533)]) #@141 Send the INPUT to the nREPL CONNECTION synchronously. If NS is non-nil, include it in the eval request. (fn INPUT &optional CONNECTION NS) (defalias 'cider-nrepl-sync-request:eval #[769 "\300\206\n\301\302\303\"#\207" [nrepl-sync-request:eval cider-current-repl nil ensure] 8 (#$ . 7214)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable cider-format-code-options funcall function #[0 "\300\207" [nil] 1] "A map of options that will be passed to `cljfmt' to format code.\nAssuming this is the Clojure map you want to use as `cljfmt' options:\n\n {:indents {org.me/foo [[:inner 0]]}\n :alias-map {\"me\" \"org.me\"}}\n\nyou need to encode it as the following plist:\n\n '((\"indents\" ((\"org.me/foo\" ((\"inner\" 0))))) (\"alias-map\" ((\"me\" \"org.me\"))))" :type list :group cider :package-version (cider . "1.1.0")] 10) #@220 Map to merge into requests that require code formatting. If non-nil, FORMAT-OPTIONS specifies the options cljfmt will use to format the code. See `cider-format-code-options` for details. (fn &optional FORMAT-OPTIONS) (defalias 'cider--nrepl-format-code-request-map #[256 "\211\205Q\300\301\"\205\302\303\304\305\306\300\301\"A@!\"\"\300\307\"\2050\302\303\304\305\306\300\307\"A@!\"\"\302\303\304\305\306\310\311\205A\301 DC\205K\307 DC#!\"\"\266\202\207" [assoc "indents" apply nrepl-dict seq-mapcat identity map-pairs "alias-map" map-merge list] 13 (#$ . 8101)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\317\310\311\312\320& \210\321\322\301\323#\210\321\324\314\323#\210\300\325\302\303\326DD\327\306\330\310\311\312\331& \210\300\332\302\303\333DD\334\306\330\310\311\312\335& \207" [custom-declare-variable cider-print-fn funcall function #[0 "\300\207" [pprint] 1] "Sets the function to use for printing.\n\nnil – to defer to nREPL to choose the printing function. This will use\nthe bound value of \\=`nrepl.middleware.print/*print-fn*\\=`, which\ndefaults to the equivalent of \\=`clojure.core/pr\\=`.\n\n`pr' – to use the equivalent of \\=`clojure.core/pr\\=`.\n\n`pprint' – to use \\=`clojure.pprint/pprint\\=` (this is the default).\n\n`fipp' – to use the Fast Idiomatic Pretty Printer, approximately 5-10x\nfaster than \\=`clojure.core/pprint\\=`.\n\n`puget' – to use Puget, which provides canonical serialization of data on\ntop of fipp, but at a slight performance cost.\n\n`zprint' – to use zprint, a fast and flexible alternative to the libraries\nmentioned above.\n\nAlternatively can be the namespace-qualified name of a Clojure var whose\nfunction takes three arguments: the object to print, the\n\\=`java.io.PrintWriter\\=` to print on, and a (possibly nil) map of\noptions. If the function cannot be resolved, will behave as if set to\nnil." :type (choice (const nil) (const pr) (const pprint) (const fipp) (const puget) (const zprint) string) :group cider :package-version (cider . "0.21.0") cider-print-options #[0 "\300\207" [nil] 1] "A map of options that will be passed to `cider-print-fn'.\nHere's an example for `pprint':\n\n '((\"length\" 50) (\"right-margin\" 70))" list (cider . "0.21.0") make-obsolete-variable cider-pprint-fn "0.21" cider-pprint-options cider-print-quota #[0 "\300\207" [1048576] 1] "A hard limit on the number of bytes to return from any printing operation.\nSet to nil for no limit." integer (cider . "0.21.0") cider-print-buffer-size #[0 "\300\207" [4096] 1] "The size in bytes of each value/output chunk when using print streaming.\nSmaller values mean smaller data chunks and faster feedback, but they also mean\nsmaller results that can be font-locked as Clojure in the REPL buffers, as only\na single chunk result can be font-locked.\n\nThe default value in nREPL is 1024." (cider . "0.25.0")] 10) #@68 Return the value to send in the nrepl.middleware.print/print slot. (defalias 'cider--print-fn #[0 "\301\267\202\302\207\303\207\304\207\305\207\306\207\207" [cider-print-fn #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (pr 6 pprint 8 fipp 10 puget 12 zprint 14)) "cider.nrepl.pprint/pr" "cider.nrepl.pprint/pprint" "cider.nrepl.pprint/fipp-pprint" "cider.nrepl.pprint/puget-pprint" "cider.nrepl.pprint/zprint-pprint"] 2 (#$ . 11055)]) #@68 A mapping of print option for the various supported print engines. (defvar cider--print-options-mapping '((right-margin ((fipp . width) (puget . width) (zprint . width))) (length ((fipp . print-length) (puget . print-length) (zprint . max-length))) (level ((fipp . print-level) (puget . print-level) (zprint . max-depth)))) (#$ . 11539)) #@303 Convert the generic NAME to its PRINTER specific variant. E.g. pprint's right-margin would become width for fipp. The function is useful when you want to generate dynamically print options. NAME can be a string or a symbol. PRINTER has to be a symbol. The result will be a string. (fn NAME PRINTER) (defalias 'cider--print-option #[514 "\301!\302\302\"A@\"A\303\206!\207" [cider--print-options-mapping cider-maybe-intern assoc symbol-name] 8 (#$ . 11884)]) #@201 Map to merge into requests that require pretty-printing. RIGHT-MARGIN specifies the maximum column-width of the printed result, and is included in the request if non-nil. (fn &optional RIGHT-MARGIN) (defalias 'cider--nrepl-print-request-map #[256 "\304\305\"\306\307\310\311\312\313\314 DC #!\"\"\313\315\316\205\"\317\320 DC\n\205*\321\nDC \2052\322 DC\323!?\205?\324DC&\207" [cider-print-fn cider-print-options cider-print-quota cider-print-buffer-size cider--print-option "right-margin" apply nrepl-dict seq-mapcat identity map-pairs map-merge hash-table list (("nrepl.middleware.print/stream?" "1")) "nrepl.middleware.print/print" cider--print-fn "nrepl.middleware.print/quota" "nrepl.middleware.print/buffer-size" nrepl-dict-empty-p "nrepl.middleware.print/options"] 11 (#$ . 12359)]) #@65 Map to merge into requests that do not require pretty printing. (defalias 'cider--nrepl-pr-request-map #[0 "\302\303\304\305\306!\"\"\307\310\311\312!?\205\313DC \205\314 DC$\207" [cider-print-options cider-print-quota apply nrepl-dict seq-mapcat identity map-pairs map-merge list (("nrepl.middleware.print/print" "cider.nrepl.pprint/pr" "nrepl.middleware.print/stream?" nil)) nrepl-dict-empty-p "nrepl.middleware.print/options" "nrepl.middleware.print/quota"] 7 (#$ . 13170)]) #@69 Map to be merged into an eval request to make it use content-types. (defalias 'cider--nrepl-content-type-map #[0 "\300\207" [(("content-type" "true"))] 1 (#$ . 13661)]) #@337 Send the request INPUT to CONNECTION and register the CALLBACK. NS specifies the namespace in which to evaluate the request. Requests evaluated in the tooling nREPL session don't affect the thread-local bindings of the primary eval nREPL session (e.g. this is not going to clobber *1/2/3). (fn INPUT CALLBACK &optional NS CONNECTION) (defalias 'cider-tooling-eval #[1026 "\300\206 \301\302\303\"\302\211\211\304&\207" [nrepl-request:eval cider-current-repl nil ensure tooling] 13 (#$ . 13837)]) #@332 Send the request INPUT to CONNECTION and evaluate in synchronously. NS specifies the namespace in which to evaluate the request. Requests evaluated in the tooling nREPL session don't affect the thread-local bindings of the primary eval nREPL session (e.g. this is not going to clobber *1/2/3). (fn INPUT &optional NS CONNECTION) (defalias 'cider-sync-tooling-eval #[769 "\300\206\n\301\302\303\"\304$\207" [nrepl-sync-request:eval cider-current-repl nil ensure tooling] 8 (#$ . 14347)]) #@140 Check whether LIB-NS is present. If a certain well-known ns in a library is present we assume that library itself is present. (fn LIB-NS) (defalias 'cider-library-present-p #[257 "\300\301\302\303\"!\304\"\207" [nrepl-dict-get cider-sync-tooling-eval format "(require '%s)" "value"] 6 (#$ . 14847)]) #@63 Create an interrupt response handler for BUFFER. (fn BUFFER) (defalias 'cider-interrupt-handler #[257 "\300\301\211\211\211%\207" [nrepl-make-response-handler nil] 7 (#$ . 15155)]) #@36 Interrupt any pending evaluations. (defalias 'cider-interrupt #[0 "r\301\302\303\"q\210\304!\211\211\205!\211@\305\306p!\301 #\210A\266\202\202 \262\262)\207" [nrepl-pending-requests cider-current-repl nil ensure cider-util--hash-keys nrepl-request:interrupt cider-interrupt-handler] 7 (#$ . 15344) nil]) #@61 Return the eval nREPL session id of the current connection. (defalias 'cider-nrepl-eval-session #[0 "r\301 q\210)\207" [nrepl-session cider-current-repl] 1 (#$ . 15662)]) #@64 Return the tooling nREPL session id of the current connection. (defalias 'cider-nrepl-tooling-session #[0 "r\301 q\210)\207" [nrepl-tooling-session cider-current-repl] 1 (#$ . 15840)]) #@288 Prompt to choose from among multiple VAR-INFO candidates, if required. This is needed only when the symbol queried is an unqualified host platform method, and multiple classes have a so-named member. If VAR-INFO does not contain a `candidates' key, it is returned as is. (fn VAR-INFO) (defalias 'cider--var-choice #[257 "\300\301\"\211\203\302!\303\304\305\306$\300\"\207\207" [nrepl-dict-get "candidates" nrepl-dict-keys completing-read "Member in class: " nil t] 8 (#$ . 16033)]) (defconst cider-info-form "\n(do\n (require 'clojure.java.io)\n (require 'clojure.walk)\n\n (if-let [var (resolve '%s)]\n (let [info (meta var)]\n (-> info\n (update :ns str)\n (update :name str)\n (update :file (comp str clojure.java.io/resource))\n (cond-> (:macro info) (update :macro str))\n (cond-> (:special-form info) (update :special-form str))\n (cond-> (:protocol info) (update :protocol str))\n (cond-> (:arglists info) (update :arglists str))\n (assoc :arglists-str (str (:arglists info)))\n (clojure.walk/stringify-keys)))))\n") #@110 Obtain VAR metadata via a regular eval. Used only when the info nREPL middleware is not available. (fn VAR) (defalias 'cider-fallback-eval:info #[257 "\301\302\"!\303\304\305\306\"!!\207" [cider-info-form cider-sync-tooling-eval format nrepl-dict-from-hash parseedn-read-str nrepl-dict-get "value"] 7 (#$ . 17166)]) #@168 Return VAR's info as an alist with list cdrs. When multiple matching vars are returned you'll be prompted to select one, unless ALL is truthy. (fn VAR &optional ALL) (defalias 'cider-var-info #[513 "\2053\300\230?\2053\301\302!\203\303!\202&\301\304!\203#\305!\202&\306!\203.\211\2021\307!\262\207" ["" cider-nrepl-op-supported-p "info" cider-sync-request:info "lookup" cider-sync-request:lookup cider-fallback-eval:info cider--var-choice] 5 (#$ . 17493)]) #@79 Return the CLASS MEMBER's info as an alist with list cdrs. (fn CLASS MEMBER) (defalias 'cider-member-info #[514 "\205 \211\205 \300\301#\207" [cider-sync-request:info nil] 6 (#$ . 17974)]) #@283 Perform the nREPL "load-file" op. FILE-CONTENTS, FILE-PATH and FILE-NAME are details of the file to be loaded. If CONNECTION is nil, use `cider-current-repl'. If CALLBACK is nil, use `cider-load-file-handler'. (fn FILE-CONTENTS FILE-PATH FILE-NAME &optional CONNECTION CALLBACK) (defalias 'cider-request:load-file #[1283 "\300\301\302\303\304 \305\n\257\206\306p!#\207" [cider-nrepl-send-request "op" "load-file" "file" "file-path" "file-name" cider-load-file-handler] 14 (#$ . 18176)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \207" [custom-declare-variable cider-filtered-namespaces-regexps funcall function #[0 "\300\207" [("^cider.nrepl" "^refactor-nrepl" "^nrepl")] 1] "List of regexps used to filter out some vars/symbols/namespaces.\nWhen nil, nothing is filtered out. Otherwise, all namespaces matching any\nregexp from this list are dropped out of the \"ns-list\" op. Also,\n\"apropos\" won't include vars from such namespaces. This list is passed\non to the nREPL middleware without any pre-processing. So the regexps have\nto be in Clojure format (with twice the number of backslashes) and not\nEmacs Lisp." :type (repeat string) :safe listp :group cider :package-version (cider . "0.13.0")] 12) #@186 Send "apropos" request for regexp QUERY. Optional arguments include SEARCH-NS, DOCS-P, PRIVATES-P, CASE-SENSITIVE-P. (fn QUERY &optional SEARCH-NS DOCS-P PRIVATES-P CASE-SENSITIVE-P) (defalias 'cider-sync-request:apropos #[1281 "\301\302\303#\304\305\306\307\310 \311\312\f\205\313 D\f\205\314\f\205%\315\f\205+\316\317D%BBBBBB!\320\321\322\"\235\203G\323\324\321\325\"\"\207\321\326\"\207" [cider-filtered-namespaces-regexps replace-regexp-in-string "[ ]+" ".+" cider-nrepl-send-sync-request "op" "apropos" "ns" cider-current-ns "query" append "search-ns" ("docs?" "t") ("privates?" "t") ("case-sensitive?" "t") "exclude-regexps" "apropos-regexp-error" nrepl-dict-get "status" user-error "Invalid regexp: %s" "error-msg" "apropos-matches"] 20 (#$ . 19437)]) #@37 Return a list of classpath entries. (defalias 'cider-sync-request:classpath #[0 "\300\301!\210\302\303\304!\301\"\207" [cider-ensure-op-supported "classpath" nrepl-dict-get cider-nrepl-send-sync-request ("op" "classpath")] 3 (#$ . 20225)]) #@114 Resolve PATH to an absolute path relative to PROJECT. Do nothing if PATH is already absolute. (fn PATH PROJECT) (defalias 'cider--get-abs-path #[514 "\300!\204 \301\"\207\207" [file-name-absolute-p expand-file-name] 5 (#$ . 20472)]) #@152 Return a list of classpath entries using eval. Sometimes the classpath contains entries like src/main and we need to resolve those to absolute paths. (defalias 'cider-fallback-eval:classpath #[0 "\300\301\302\303!\304\"!\305 \306\307\310\"\"\207" [read nrepl-dict-get cider-sync-tooling-eval "(seq (.split (System/getProperty \"java.class.path\") \":\"))" "value" clojure-project-dir mapcar make-closure #[257 "\301\300\"\207" [V0 cider--get-abs-path] 4 "\n\n(fn PATH)"]] 6 (#$ . 20718)]) #@37 Return a list of classpath entries. (defalias 'cider-classpath-entries #[0 "\300\301!\203 \302 \207\303 \207" [cider-nrepl-op-supported-p "classpath" cider-sync-request:classpath cider-fallback-eval:classpath] 2 (#$ . 21217)]) #@85 Return a list of completions for PREFIX using nREPL's "completion" op. (fn PREFIX) (defalias 'cider-sync-request:completion #[257 "\300\301\302\303\304 \305\257\306 \307#\211\205\310\302\"\207" [cider-nrepl-send-sync-request "op" "completions" "ns" cider-current-ns "prefix" cider-current-repl abort-on-input nrepl-dict-get] 8 (#$ . 21451)]) #@147 Return a list of completions for PREFIX using nREPL's "complete" op. CONTEXT represents a completion context for compliment. (fn PREFIX CONTEXT) (defalias 'cider-sync-request:complete #[514 "\301\302\303\304\305 \306\307\205\310BBBBBBBB\311 \312#\211\205%\313\314\"\207" [cider-enhanced-cljs-completion-p cider-nrepl-send-sync-request "op" "complete" "ns" cider-current-ns "prefix" "context" ("enhanced-cljs-completion?" "t") cider-current-repl abort-on-input nrepl-dict-get "completions"] 12 (#$ . 21807)]) #@63 Send "complete-flush-caches" op to flush Compliment's caches. (defalias 'cider-sync-request:complete-flush-caches #[0 "\300\301\302\303\304 F\305\306#\207" [cider-nrepl-send-sync-request "op" "complete-flush-caches" "session" cider-nrepl-eval-session nil abort-on-input] 5 (#$ . 22331)]) #@96 Send "info" op with parameters SYMBOL or CLASS and MEMBER. (fn SYMBOL &optional CLASS MEMBER) (defalias 'cider-sync-request:info #[769 "\300\301\302\303\304 \305\205\306 D\205\307 D\205\"\310 D#BBBB\311 \"\312\313\314\"\235?\2055\211\207" [cider-nrepl-send-sync-request "op" "info" "ns" cider-current-ns append "sym" "class" "member" cider-current-repl "no-info" nrepl-dict-get "status"] 13 (#$ . 22625)]) #@97 Send "lookup" op request with parameters SYMBOL and LOOKUP-FN. (fn SYMBOL &optional LOOKUP-FN) (defalias 'cider-sync-request:lookup #[513 "\300\301\302\303\304 \305\205\306D\205\307D\"BBBB\310 \"\311\312\313\"\235?\205,\211\207" [cider-nrepl-send-sync-request "op" "lookup" "ns" cider-current-ns append "sym" "lookup-fn" cider-current-repl "lookup-error" nrepl-dict-get "status"] 11 (#$ . 23054)]) #@97 Send "eldoc" op with parameters SYMBOL or CLASS and MEMBER. (fn SYMBOL &optional CLASS MEMBER) (defalias 'cider-sync-request:eldoc #[769 "\300\301\302\303\304 \305\205\306 D\205\307 D\205\"\310 D#BBBB\311 \312#\211\205:\313\314\315\"\235?\205:\211\207" [cider-nrepl-send-sync-request "op" "eldoc" "ns" cider-current-ns append "sym" "class" "member" cider-current-repl abort-on-input "no-eldoc" nrepl-dict-get "status"] 13 (#$ . 23473)]) #@67 Send "eldoc-datomic-query" op with parameter SYMBOL. (fn SYMBOL) (defalias 'cider-sync-request:eldoc-datomic-query #[257 "\300\301\302\303\304 \205\305DBBBB\306\307#\211\205$\310\311\312\"\235?\205$\211\207" [cider-nrepl-send-sync-request "op" "eldoc-datomic-query" "ns" cider-current-ns "sym" nil abort-on-input "no-eldoc" nrepl-dict-get "status"] 8 (#$ . 23934)]) #@164 Get a list of the available specs in the registry. Optional argument FILTER-REGEX filters specs. By default, all specs are returned. (fn &optional FILTER-REGEX) (defalias 'cider-sync-request:spec-list #[256 "\211\206\300\262\301\302\303\304\305\306\307 \257!\304\"\207" ["" nrepl-dict-get cider-nrepl-send-sync-request "op" "spec-list" "filter-regex" "ns" cider-current-ns] 9 (#$ . 24316)]) #@43 Get SPEC's form from registry. (fn SPEC) (defalias 'cider-sync-request:spec-form #[257 "\300\301\302\303\304\305\306 \257!\303\"\207" [nrepl-dict-get cider-nrepl-send-sync-request "op" "spec-form" "spec-name" "ns" cider-current-ns] 9 (#$ . 24720)]) #@37 Get an example for SPEC. (fn SPEC) (defalias 'cider-sync-request:spec-example #[257 "\300\301\302\303\304F!\303\"\207" [nrepl-dict-get cider-nrepl-send-sync-request "op" "spec-example" "spec-name"] 7 (#$ . 24978)]) #@41 Get a list of the available namespaces. (defalias 'cider-sync-request:ns-list #[0 "\301\302\303\304\305F!\304\"\207" [cider-filtered-namespaces-regexps nrepl-dict-get cider-nrepl-send-sync-request "op" "ns-list" "exclude-regexps"] 6 (#$ . 25201)]) #@40 Get a list of the vars in NS. (fn NS) (defalias 'cider-sync-request:ns-vars #[257 "\300\301\302\303\304F!\303\"\207" [nrepl-dict-get cider-nrepl-send-sync-request "op" "ns-vars" "ns"] 7 (#$ . 25456)]) #@50 Get the path to the file containing NS. (fn NS) (defalias 'cider-sync-request:ns-path #[257 "\300\301\302\303\304F!\305\"\207" [nrepl-dict-get cider-nrepl-send-sync-request "op" "ns-path" "ns" "path"] 7 (#$ . 25665)]) #@67 Get a map of the vars in NS to its metadata information. (fn NS) (defalias 'cider-sync-request:ns-vars-with-meta #[257 "\300\301\302\303\304F!\303\"\207" [nrepl-dict-get cider-nrepl-send-sync-request "op" "ns-vars-with-meta" "ns"] 7 (#$ . 25891)]) #@30 Load all project namespaces. (defalias 'cider-sync-request:ns-load-all #[0 "\300\301\302!\303\"\207" [nrepl-dict-get cider-nrepl-send-sync-request ("op" "ns-load-all") "loaded-ns"] 3 (#$ . 26147)]) #@65 Perform nREPL "resource" op with resource name NAME. (fn NAME) (defalias 'cider-sync-request:resource #[257 "\300\301\302\303\304F!\305\"\207" [nrepl-dict-get cider-nrepl-send-sync-request "op" "resource" "name" "resource-path"] 7 (#$ . 26351)]) #@100 Return a list of all resources on the classpath. The result entries are relative to the classpath. (defalias 'cider-sync-request:resources-list #[0 "\300\301\302!\303\"\211\205\304\305\"\207" [nrepl-dict-get cider-nrepl-send-sync-request ("op" "resources-list") "resources-list" seq-map #[257 "\300\301\"\207" [nrepl-dict-get "relpath"] 4 "\n\n(fn RESOURCE)"]] 4 (#$ . 26606)]) #@95 Return a list of functions that reference the function identified by NS and SYM. (fn NS SYM) (defalias 'cider-sync-request:fn-refs #[514 "\300\301!\210\302\303\304\301\305\306\257!\301\"\207" [cider-ensure-op-supported "fn-refs" nrepl-dict-get cider-nrepl-send-sync-request "op" "ns" "sym"] 10 (#$ . 26994)]) #@88 Return a list of function deps for the function identified by NS and SYM. (fn NS SYM) (defalias 'cider-sync-request:fn-deps #[514 "\300\301!\210\302\303\304\301\305\306\257!\301\"\207" [cider-ensure-op-supported "fn-deps" nrepl-dict-get cider-nrepl-send-sync-request "op" "ns" "sym"] 10 (#$ . 27315)]) #@139 Perform nREPL "format-code" op with CODE. FORMAT-OPTIONS is an optional configuration map for cljfmt. (fn CODE &optional FORMAT-OPTIONS) (defalias 'cider-sync-request:format-code #[513 "\300\301\302\303!\304\257\305!\306\307\"\211\203\310\311\312\"@!\210\306\313\"\207" ["op" "format-code" "options" cider--nrepl-format-code-request-map "code" cider-nrepl-send-sync-request nrepl-dict-get "err" error split-string "\n" "formatted-code"] 9 (#$ . 27630)]) #@75 Perform "format-edn" op with EDN and RIGHT-MARGIN. (fn EDN RIGHT-MARGIN) (defalias 'cider-sync-request:format-edn #[514 "\300\301\302\303\304\305DD\306!#\"\307!\310\311\"\211\203#\312\313\314\"@!\210\310\315\"\207" [seq-mapcat identity map-merge list ("op" "format-edn") "edn" cider--nrepl-print-request-map cider-nrepl-send-sync-request nrepl-dict-get "err" error split-string "\n" "formatted-edn"] 9 (#$ . 28101)]) #@67 Make a stdin response handler for _BUFFER. (fn &optional BUFFER) (defalias 'cider-stdin-handler #[256 "\300p\301\302\303\304%\207" [nrepl-make-response-handler #[514 "\300\207" [nil] 3 "\n\n(fn BUFFER VALUE)"] #[514 "\300\207" [nil] 3 "\n\n(fn BUFFER OUT)"] #[514 "\300\207" [nil] 3 "\n\n(fn BUFFER ERR)"] nil] 7 (#$ . 28534)]) #@56 Handle an need-input request from BUFFER. (fn BUFFER) (defalias 'cider-need-input #[257 "r\211q\210\301 \302\"\210\303\304\305#\210\3061 \307\310\311#\312P0\202\"\210\311\313\314!\315 #\262\262)\207" [minibuffer-local-map make-sparse-keymap set-keymap-parent define-key "" abort-recursive-edit (quit) read-from-minibuffer "Stdin: " nil "\n" nrepl-request:stdin cider-stdin-handler cider-current-repl] 7 (#$ . 28869)]) (provide 'cider-client)