;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\300\314!\210\300\315!\210\300\316!\210\300\317!\207" [require ansi-color cl-lib compile map seq subr-x clojure-mode cider-client cider-common cider-compat cider-overlays cider-popup cider-repl cider-stacktrace cider-util] 2) (defconst cider-read-eval-buffer "*cider-read-eval*") (defconst cider-result-buffer "*cider-result*") (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\315\310\311\316\317& \210\300\320\302\303\321DD\322\306\323\310\311&\210\300\324\302\303\325DD\326\306\323\310\311\316\327& \210\300\330\302\303\331DD\332\306\323\310\311\316\333& \210\300\334\302\303\335DD\336\306\337\310\311\316\340& \210\300\341\302\303\342DD\343\306\344\310\311\316\345& \207" [custom-declare-variable cider-show-error-buffer funcall function #[0 "\300\207" [t] 1] "Control the popup behavior of cider stacktraces.\nThe following values are possible t or 'always, 'except-in-repl,\n'only-in-repl. Any other value, including nil, will cause the stacktrace\nnot to be automatically shown.\n\nIrrespective of the value of this variable, the `cider-error-buffer' is\nalways generated in the background. Use `cider-selector' to\nnavigate to this buffer." :type (choice (const :tag "always" t) (const except-in-repl) (const only-in-repl) (const :tag "never" nil)) :group cider cider-auto-jump-to-error #[0 "\300\207" [t] 1] "Control the cursor jump behavior in compilation error buffer.\nWhen non-nil automatically jump to error location during interactive\ncompilation. When set to 'errors-only, don't jump to warnings.\nWhen set to nil, don't jump at all." (choice (const :tag "always" t) (const errors-only) (const :tag "never" nil)) :package-version (cider . "0.7.0") cider-auto-select-error-buffer #[0 "\300\207" [t] 1] "Controls whether to auto-select the error popup buffer." boolean cider-auto-track-ns-form-changes #[0 "\300\207" [t] 1] "Controls whether to auto-evaluate a source buffer's ns form when changed.\nWhen non-nil CIDER will check for ns form changes before each eval command.\nWhen nil the users are expected to take care of the re-evaluating updated\nns forms manually themselves." (cider . "0.15.0") cider-auto-inspect-after-eval #[0 "\300\207" [t] 1] "Controls whether to auto-update the inspector buffer after eval.\nOnly applies when the *cider-inspect* buffer is currently visible." (cider . "0.25.0") cider-save-file-on-load #[0 "\300\207" [prompt] 1] "Controls whether to prompt to save the file when loading a buffer.\nIf nil, files are not saved.\nIf 'prompt, the user is prompted to save the file if it's been modified.\nIf t, save the file without confirmation." (choice (const prompt :tag "Prompt to save the file if it's been modified") (const nil :tag "Don't save the file") (const t :tag "Save the file without confirmation")) (cider . "0.6.0") cider-file-loaded-hook #[0 "\300\207" [nil] 1] "List of functions to call when a load file has completed." hook (cider . "0.1.7")] 10) (defconst cider-output-buffer "*cider-out*") (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\314\315\316\317\310\311%\210\314\320\321\322\310\311%\210\300\323\302\303\324DD\325\306\326\310\311\312\327& \210\300\330\302\303\331DD\332\306\326\310\311\312\333& \210\300\334\302\303\335DD\336\306\326\310\311\312\337& \207" [custom-declare-variable cider-interactive-eval-output-destination funcall function #[0 "\300\207" [repl-buffer] 1] "The destination for stdout and stderr produced from interactive evaluation." :type (choice (const output-buffer) (const repl-buffer)) :group cider :package-version (cider . "0.7.0") custom-declare-face cider-error-highlight-face ((((supports :underline (:style wave))) (:underline (:style wave :color "red") :inherit unspecified)) (t (:inherit font-lock-warning-face :underline t))) "Face used to highlight compilation errors in Clojure buffers." cider-warning-highlight-face ((((supports :underline (:style wave))) (:underline (:style wave :color "yellow") :inherit unspecified)) (t (:inherit font-lock-warning-face :underline (:color "yellow")))) "Face used to highlight compilation warnings in Clojure buffers." cider-comment-prefix #[0 "\300\207" [#1=";; => "] 1 #1#] "The prefix to insert before the first line of commented output." string (cider . "0.16.0") cider-comment-continued-prefix #[0 "\300\207" [#2=";; "] 1 #2#] "The prefix to use on the second and subsequent lines of commented output." (cider . "0.16.0") cider-comment-postfix #[0 "\300\207" [#3=""] 1 #3#] "The postfix to be appended after the final line of commented output." (cider . "0.16.0")] 10) #@32 Remove compilation highlights. (defalias 'cider--clear-compilation-highlights #[0 "\300ed\301\302$\207" [remove-overlays cider-note-p t] 5 (#$ . 4829)]) #@128 Remove compilation highlights. When invoked with a prefix ARG the command doesn't prompt for confirmation. (fn &optional ARG) (defalias 'cider-clear-compilation-highlights #[256 "\211\204\n\300\301!\205\f\302 \207" [y-or-n-p "Are you sure you want to clear the compilation highlights? " cider--clear-compilation-highlights] 3 (#$ . 4989) "P"]) #@66 Buries the `cider-error-buffer' and quits its containing window. (defalias 'cider--quit-error-window #[0 "\301!\211\205 \212\302\303\")\207" [cider-error-buffer get-buffer-window quit-window nil] 4 (#$ . 5342)]) (defvar cider-sideloader-dir (file-name-directory load-file-name)) #@63 Provide FILE in a format suitable for sideloading. (fn FILE) (defalias 'cider-provide-file #[257 "\301\"\302!\203r\303!q\210\304\305\306 !!)\207\304\307!\207" [cider-sideloader-dir expand-file-name file-exists-p find-file-noselect base64-encode-string substring-no-properties buffer-string ""] 5 (#$ . 5630)]) #@35 Make a sideloader-lookup handler. (defalias 'cider-sideloader-lookup-handler #[0 "\300\207" [#[257 "\300\301\"\300\302\"\300\303\"\300\304\"\205\305\235\205\306#\207" [nrepl-dict-get "id" "status" "type" "name" "sideloader-lookup" cider-request:sideloader-provide] 9 "\n\n(fn RESPONSE)"]] 1 (#$ . 5953)]) #@117 Perform the nREPL "sideloader-start" op. If CONNECTION is nil, use `cider-current-repl'. (fn &optional CONNECTION) (defalias 'cider-request:sideloader-start #[256 "\300\301!\210\302\303\304 #\207" [cider-ensure-op-supported "sideloader-start" cider-nrepl-send-request ("op" "sideloader-start") cider-sideloader-lookup-handler] 5 (#$ . 6278)]) #@154 Perform the nREPL "sideloader-provide" op for ID, TYPE and FILE. If CONNECTION is nil, use `cider-current-repl'. (fn ID TYPE FILE &optional CONNECTION) (defalias 'cider-request:sideloader-provide #[1027 "\300\301\302\303\304\305 \306\307\f!\257\n\310 #\207" [cider-nrepl-send-request "id" "op" "sideloader-provide" "type" "name" "content" cider-provide-file cider-sideloader-lookup-handler] 16 (#$ . 6630)]) #@102 Start nREPL's sideloader. If CONNECTION is nil, use `cider-current-repl'. (fn &optional CONNECTION) (defalias 'cider-sideloader-start #[256 "\300\301!\210\302!\207" [message "Starting nREPL's sideloader" cider-request:sideloader-start] 3 (#$ . 7052) nil]) #@206 Find the next text region which has the specified PROPERTY. If BACKWARD is t, then search backward. Returns the position at which PROPERTY was found, or nil if not found. (fn PROPERTY &optional BACKWARD) (defalias 'cider-find-property #[513 "\211\203 \300`\"\202\301`\"\211eU?\205\211dU?\205\211\207" [previous-single-char-property-change next-single-char-property-change] 5 (#$ . 7317)]) #@205 Jump to the line causing the current compilation error. _ARG and _RESET are ignored, as there is only ever one compilation error. They exist for compatibility with `next-error'. (fn &optional ARG RESET) (defalias 'cider-jump-to-compilation-error #[512 "\300\301`\302\"\203 \211 \210\211 \207" [#[0 "\300\301!\206\n\300\301\302\"\211\205\211b\210\303\304\305\306\"\"\207" [cider-find-property cider-note-p t message "%s" get-char-property cider-note] 6] get-char-property cider-note-p] 6 (#$ . 7723) nil]) #@158 Return non-nil if the error buffer must be shown on error. Takes into account both the value of `cider-show-error-buffer' and the currently selected buffer. (defalias 'cider--show-error-buffer-p #[0 "\301\302 !r\211q\210\303\304!)\203\305\202\306>\207" [cider-show-error-buffer window-buffer selected-window derived-mode-p cider-repl-mode (t always only-in-repl) (t always except-in-repl)] 4 (#$ . 8241)]) #@443 Return an empty error buffer using MODE. When deciding whether to display the buffer, takes into account not only the value of `cider-show-error-buffer' and the currently selected buffer but also the ERROR-TYPES of the error, which is checked against the `cider-stacktrace-suppressed-errors' set. When deciding whether to select the buffer, takes into account the value of `cider-auto-select-error-buffer'. (fn &optional MODE ERROR-TYPES) (defalias 'cider-new-error-buffer #[512 "\302 \203\303!\204\304 \305$\207\306\305#\207" [cider-error-buffer cider-auto-select-error-buffer cider--show-error-buffer-p cider-stacktrace-some-suppressed-errors-p cider-popup-buffer ancillary cider-make-popup-buffer] 7 (#$ . 8660)]) #@63 Emit into color BUFFER the provided VALUE. (fn BUFFER VALUE) (defalias 'cider-emit-into-color-buffer #[514 "rq\210\302\211db\210\303\304\"c\210\305ed\"\210*eb)\207" [buffer-undo-list inhibit-read-only t format "%s" ansi-color-apply-on-region] 5 (#$ . 9395)]) #@109 Render eval RESPONSE into a new error buffer. Uses the value of the `out' slot in RESPONSE. (fn RESPONSE) (defalias 'cider--handle-err-eval-response #[257 "\300\301\"\211\205\302 \303\"\210r\211q\210\304\305!)\262\207" [nrepl-dict-get "out" cider-new-error-buffer cider-emit-into-color-buffer compilation-minor-mode 1] 6 (#$ . 9666)]) #@56 Display the last exception without middleware support. (defalias 'cider-default-err-eval-handler #[0 "\300\301\302!!\207" [cider--handle-err-eval-response cider-nrepl-sync-request:eval "(clojure.stacktrace/print-cause-trace *e)"] 3 (#$ . 10015)]) #@217 If CAUSES is non-nil, render its contents into a new error buffer. Optional argument ERROR-TYPES contains a list which should determine the op/situation that originated this error. (fn CAUSES &optional ERROR-TYPES) (defalias 'cider--render-stacktrace-causes #[513 "\205\300\301\"\302\303!#\262\207" [cider-new-error-buffer cider-stacktrace-mode cider-stacktrace-render reverse] 7 (#$ . 10269)]) #@259 Handle stacktrace op RESPONSE, aggregating the result into CAUSES. If RESPONSE contains a cause, cons it onto CAUSES and return that. If RESPONSE is the final message (i.e. it contains a status), render CAUSES into a new error buffer. (fn RESPONSE CAUSES) (defalias 'cider--handle-stacktrace-response #[514 "\300\301\"\300\302\"\203B\207\211\205\303!\207" [nrepl-dict-get "class" "status" cider--render-stacktrace-causes] 6 (#$ . 10680)]) #@54 Display the last exception, with middleware support. (defalias 'cider-default-err-op-handler #[0 "\301C\302\303\304\305\306\307\310!#\"\311\312\"\"\207" [fill-column nil cider-nrepl-send-request seq-mapcat identity map-merge list (("op" "stacktrace")) cider--nrepl-print-request-map make-closure #[257 "\300\301\300\242\"\240\207" [V0 cider--handle-stacktrace-response] 5 "\n\n(fn RESPONSE)"]] 9 (#$ . 11137)]) #@122 This function determines how the error buffer is shown. It delegates the actual error content to the eval or op handler. (defalias 'cider-default-err-handler #[0 "\300\301!\203 \302 \207\303 \207" [cider-nrepl-op-supported-p "stacktrace" cider-default-err-op-handler cider-default-err-eval-handler] 2 (#$ . 11558)]) (defconst cider-clojure-1\.10-error '(sequence "Syntax error " (minimal-match (zero-or-more anything)) "compiling " (minimal-match (zero-or-more anything)) "at (" (group-n 2 (minimal-match (zero-or-more anything))) ":" (group-n 3 (one-or-more digit)) (optional ":" (group-n 4 (one-or-more digit))) ").")) (defconst cider-clojure-1\.9-error '(sequence (zero-or-more anything) ", compiling:(" (group-n 2 (minimal-match (zero-or-more anything))) ":" (group-n 3 (one-or-more digit)) (optional ":" (group-n 4 (one-or-more digit))) ")")) (defconst cider-clojure-warning '(sequence (minimal-match (zero-or-more anything)) (group-n 1 "warning") ", " (group-n 2 (minimal-match (zero-or-more anything))) ":" (group-n 3 (one-or-more digit)) (optional ":" (group-n 4 (one-or-more digit))) " - ")) (defconst cider-clojure-compilation-regexp (byte-code "\303\304\305\306 \nFE!\207" [cider-clojure-1\.9-error cider-clojure-warning cider-clojure-1\.10-error eval rx bol or] 7)) #@136 Specifications for matching errors and warnings in Clojure stacktraces. See `compilation-error-regexp-alist' for help on their format. (defvar cider-compilation-regexp (list cider-clojure-compilation-regexp 2 3 4 '(1)) (#$ . 12845)) (byte-code "\301\302\303B\"\210\301\304\303\"\207" [cider-compilation-regexp add-to-list compilation-error-regexp-alist-alist cider compilation-error-regexp-alist] 4) #@77 Extract error information with REGEXP against MESSAGE. (fn REGEXP MESSAGE) (defalias 'cider-extract-error-info #[514 "A@\3018\3028\3038@\304\"\205\212:\205:@\203*@\225\203*\305\202:A\2039A\225\2039\306\202:\301\262\205O\307\"\211\310\230?\205M\211\262\205[\311\307 \"!\205\307 \"\211\205}\211\312\313\314\304#)\266\204?\205}\311!\262\315\206\205\301H \257\207" [inhibit-changing-match-data 2 3 4 string-match 1 0 match-string-no-properties "NO_SOURCE_PATH" string-to-number "\\`[ \n ]*\\'" nil t [cider-warning-highlight-face cider-warning-highlight-face cider-error-highlight-face]] 18 (#$ . 13252)]) #@195 Go to the beginning a list, vector, map or set outside of a string. We do so by starting and the current position and proceeding backwards until we find a delimiters that's not inside a string. (defalias 'cider--goto-expression-start #[0 "\301\302\303 \"\203\304\305 8\204\306 \207\307\310\311!)\262\203%\304\305 8\205+\312u\210\202\207" [inhibit-changing-match-data looking-back "[])}]" line-beginning-position 3 syntax-ppss backward-sexp "[({[]" t looking-at -1] 3 (#$ . 13915)]) #@130 Return the location (begin end buffer) from the Clojure error MESSAGE. If location could not be found, return nil. (fn MESSAGE) (defalias 'cider--find-last-error-location #[257 "\212\301\"\211\205d\211@A@\3028;?\206\303!?\205b\304!\211\205`r\211q\210\212\214~\210eb\210Sy\210\305\206:\306!\210\203F\307 \210\202I\310 \210`\203T\311 \210\202X\312\313!\210`E\266\202+\262\266\203\262)\207" [cider-compilation-regexp cider-extract-error-info 2 cider--tooling-file-p cider-find-file move-to-column 0 cider--goto-expression-start back-to-indentation forward-list move-end-of-line nil] 11 (#$ . 14415)]) #@215 Highlight and jump to compilation error extracted from MESSAGE. EVAL-BUFFER is the buffer that was current during user's interactive evaluation command. Honor `cider-auto-jump-to-error'. (fn MESSAGE EVAL-BUFFER) (defalias 'cider-handle-compilation-errors #[514 "\303!\211\205\304@A@\3058#\211\205\306\"\211\205\224\3078\3108 \311=\203@\312=\206<\313\314\315\316#)\266\203?\202A \317\320\315#\210\317\321#\210\317\322#\210\317\323#\210\317\324\325C#\210\211\205\222rq\210\326 \210\327!\211\205\217\330!r\331\332\"\216\333@\334\"\210\335\305 8 @\"*\262\262)\266\203\207" [cider-compilation-regexp cider-auto-jump-to-error inhibit-changing-match-data cider--find-last-error-location make-overlay 2 cider-extract-error-info 3 4 errors-only cider-warning-highlight-face "warning" nil t string-match overlay-put cider-note-p font-lock-face cider-note help-echo modification-hooks #[385 "\300!\207" [delete-overlay] 4 "\n\n(fn O &rest ARGS)"] push-mark get-buffer-window internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord cider-jump-to] 14 (#$ . 15047)]) #@128 Make an nREPL evaluation handler for the BUFFER. The handler simply inserts the result value in BUFFER. (fn &optional BUFFER) (defalias 'cider-insert-eval-handler #[256 "p\300\206\301\302\"\303\301\304\"\305%\207" [nrepl-make-response-handler make-closure #[514 "r\300q\210\211c)\207" [V0] 3 "\n\n(fn BUFFER VALUE)"] #[514 "\300!\207" [cider-repl-emit-interactive-stdout] 4 "\n\n(fn BUFFER OUT)"] #[514 "\301\300\"\207" [V0 cider-handle-compilation-errors] 5 "\n\n(fn BUFFER ERR)"] nil] 9 (#$ . 16236)]) #@281 Emit output resulting from interactive code evaluation. The OUTPUT can be sent to either a dedicated output buffer or the current REPL buffer. This is controlled by `cider-interactive-eval-output-destination'. REPL-EMIT-FUNCTION emits the OUTPUT. (fn OUTPUT REPL-EMIT-FUNCTION) (defalias 'cider--emit-interactive-eval-output #[514 "\302\267\202\303 !\206\304 \305\"\306\"\210\307!\207\211!\207\310\311\"\207" [cider-interactive-eval-output-destination cider-output-buffer #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (output-buffer 6 repl-buffer 25)) get-buffer cider-popup-buffer t cider-emit-into-popup-buffer pop-to-buffer error "Unsupported value %s for `cider-interactive-eval-output-destination'"] 6 (#$ . 16757)]) #@226 Emit OUTPUT resulting from interactive code evaluation. The output can be send to either a dedicated output buffer or the current REPL buffer. This is controlled via `cider-interactive-eval-output-destination'. (fn OUTPUT) (defalias 'cider-emit-interactive-eval-output #[257 "\300\301\"\207" [cider--emit-interactive-eval-output cider-repl-emit-interactive-stdout] 4 (#$ . 17537)]) #@230 Emit err OUTPUT resulting from interactive code evaluation. The output can be send to either a dedicated output buffer or the current REPL buffer. This is controlled via `cider-interactive-eval-output-destination'. (fn OUTPUT) (defalias 'cider-emit-interactive-eval-err-output #[257 "\300\301\"\207" [cider--emit-interactive-eval-output cider-repl-emit-interactive-stderr] 4 (#$ . 17929)]) #@71 Place eval indicators on all sexps between BEG and END. (fn BEG END) (defalias 'cider--make-fringe-overlays-for-region #[514 "r\300!\203 \301!\202pq\210\212b\210\302\303\304$\210\30518\306 \210`X\2054m?\2054\307`!\210\2020\202:\210\310*\207" [markerp marker-buffer remove-overlays category cider-fringe-indicator (scan-error) clojure-forward-logical-sexp cider--make-fringe-overlay nil] 7 (#$ . 18328)]) #@361 Make an interactive eval handler for BUFFER. PLACE is used to display the evaluation result. If non-nil, it can be the position where the evaluated sexp ends, or it can be a list with (START END) of the evaluated region. Update the cider-inspector buffer with the evaluation result when `cider-auto-inspect-after-eval' is non-nil. (fn &optional BUFFER PLACE) (defalias 'cider-interactive-eval-handler #[512 "p\242\243\242\206\n\205\302!\205\302!\303C\304\206\"\305\306$\307\305\310 \"\205E\311\301!\205E\312\313 \314\"!\205E\315%\207" [cider-auto-inspect-after-eval cider-inspector-buffer copy-marker nil nrepl-make-response-handler make-closure #[514 "\300\203\302\242\204\303\300\301\"\210\302\304\240\210\202\305\301!\210\306\301\"\207" [V0 V1 V2 cider--make-fringe-overlays-for-region t cider--make-fringe-overlay cider--display-interactive-eval-result] 5 "\n\n(fn BUFFER VALUE)"] #[514 "\300!\207" [cider-emit-interactive-eval-output] 4 "\n\n(fn BUFFER OUT)"] #[514 "\301!\210\302\300\"\207" [V0 cider-emit-interactive-eval-err-output cider-handle-compilation-errors] 5 "\n\n(fn BUFFER ERR)"] boundp windowp get-buffer-window visible #[257 "\300 \210\301\302!!\207" [cider-inspect-last-result select-window get-buffer-window] 4 "\n\n(fn BUFFER)"]] 17 (#$ . 18755)]) #@147 Make a load file handler for BUFFER. Optional argument DONE-HANDLER lambda will be run once load is complete. (fn &optional BUFFER DONE-HANDLER) (defalias 'cider-load-file-handler #[512 "p\300\206\301\302\303\304\"\305&\207" [nrepl-make-response-handler #[514 "\300!\210\301!\205rq\210\302ed\"\210\303\304!)\207" [cider--display-interactive-eval-result buffer-live-p cider--make-fringe-overlays-for-region run-hooks cider-file-loaded-hook] 5 "\n\n(fn BUFFER VALUE)"] #[514 "\300!\207" [cider-emit-interactive-eval-output] 4 "\n\n(fn BUFFER VALUE)"] make-closure #[514 "\301!\210\302\300\"\207" [V0 cider-emit-interactive-eval-err-output cider-handle-compilation-errors] 5 "\n\n(fn BUFFER ERR)"] #[0 " \207" [nrepl-err-handler] 1]] 10 (#$ . 20073)]) #@85 Make a handler for evaluating and printing result in BUFFER. (fn &optional BUFFER) (defalias 'cider-eval-print-handler #[256 "\300\206p\301\302\303\304%\207" [nrepl-make-response-handler #[514 "rq\210\300\301!\203\302\303\"\202\211c)\207" [derived-mode-p cider-clojure-interaction-mode format "\n%s\n"] 5 "\n\n(fn BUFFER VALUE)"] #[514 "\300!\207" [cider-emit-interactive-eval-output] 4 "\n\n(fn BUFFER OUT)"] #[514 "\300!\207" [cider-emit-interactive-eval-err-output] 4 "\n\n(fn BUFFER ERR)"] nil] 7 (#$ . 20847)]) #@208 Make a handler for evaluating and printing commented results in BUFFER. LOCATION is the location marker at which to insert. COMMENT-PREFIX is the comment prefix to use. (fn BUFFER LOCATION COMMENT-PREFIX) (defalias 'cider-eval-print-with-comment-handler #[771 "\300\301\302#\303\304\305%\207" [nrepl-make-response-handler make-closure #[514 "rq\210\212\302\300!b\210\301\303Qc*\207" [V0 V1 marker-position "\n"] 5 "\n\n(fn BUFFER VALUE)"] #[514 "\300!\207" [cider-emit-interactive-eval-output] 4 "\n\n(fn BUFFER OUT)"] #[514 "\300!\207" [cider-emit-interactive-eval-err-output] 4 "\n\n(fn BUFFER ERR)"] nil] 9 (#$ . 21382)]) #@286 Insert eval RESULT at current location if RESULT is not empty. RESULT will be preceded by COMMENT-PREFIX. CONTINUED-PREFIX is inserted for each additional line of output. COMMENT-POSTFIX is inserted after final text output. (fn RESULT COMMENT-PREFIX CONTINUED-PREFIX COMMENT-POSTFIX) (defalias 'cider-maybe-insert-multiline-comment #[1028 "\300\230?\2056\301\302\303#\211A\262\242Pc\210\211\211\203*\211@\304Qc\210A\266\202\202\210\300\230?\2054c\262\207" ["" split-string "[\n]+" t "\n"] 10 (#$ . 22023)]) #@449 Make a handler for evaluating and inserting results in BUFFER. The inserted text is pretty-printed and region will be commented. LOCATION is the location marker at which to insert. COMMENT-PREFIX is the comment prefix for the first line of output. CONTINUED-PREFIX is the comment prefix to use for the remaining lines. COMMENT-POSTFIX is the text to output after the last line. (fn BUFFER LOCATION COMMENT-PREFIX CONTINUED-PREFIX COMMENT-POSTFIX) (defalias 'cider-eval-pprint-with-multiline-comment-handler #[1285 "\300C\301\302\303\"\304\211\302\305     &\304\211\302\306\n\"&\207" ["" nrepl-make-response-handler make-closure #[514 "\300\211\242P\240\207" [V0] 5 "\n\n(fn BUFFER VALUE)"] nil #[257 "r\211q\210\212\305\300!b\210\306\304\242\301\302\303$*\207" [V0 V1 V2 V3 V4 marker-position cider-maybe-insert-multiline-comment] 6 "\n\n(fn BUFFER)"] #[514 "\300\211\242P\240\207" [V0] 5 "\n\n(fn BUFFER WARNING)"]] 18 (#$ . 22554)]) #@130 Make a handler for printing evaluation results in popup BUFFER. This is used by pretty-printing commands. (fn &optional BUFFER) (defalias 'cider-popup-eval-handler #[256 "\300\206p\301\302\303\304\211\211\305&\207" [nrepl-make-response-handler #[514 "\300\301!\302\303$\207" [cider-emit-into-popup-buffer ansi-color-apply nil t] 7 "\n\n(fn BUFFER VALUE)"] #[514 "\300!\207" [cider-emit-interactive-eval-output] 4 "\n\n(fn BUFFER OUT)"] #[514 "\300!\207" [cider-emit-interactive-eval-err-output] 4 "\n\n(fn BUFFER ERR)"] nil #[514 "\300\301\302$\207" [cider-emit-into-popup-buffer font-lock-warning-face t] 7 "\n\n(fn BUFFER WARNING)"]] 10 (#$ . 23510)]) #@61 Function to translate Emacs filenames to nREPL namestrings. (defvar cider-to-nrepl-filename-function #[257 "\301=\203\f\302!\202 \211\303!\206\211\207" [system-type cygwin cygwin-convert-file-name-to-windows cider--translate-path-to-nrepl] 4 "\n\n(fn PATH)"] (#$ . 24181)) #@324 Prepare the environment for an interactive eval of FORM in CONNECTION. Ensure the current ns declaration has been evaluated (so that the ns containing FORM exists). Cache ns-form in the current buffer unless FORM is ns declaration itself. Clear any compilation highlights and kill the error window. (fn FORM CONNECTION) (defalias 'cider--prep-interactive-eval #[514 "\302 \210\303 \210\304 \211\205*\305!?\205*\306\"\205*\203&\307\310\"\210)\311\"\207" [cider-auto-track-ns-form-changes nrepl-sync-request-timeout cider--clear-compilation-highlights cider--quit-error-window cider-ns-form cider-ns-form-p cider-repl--ns-form-changed-p 30 cider-nrepl-sync-request:eval cider-repl--cache-ns-form] 6 (#$ . 24468)]) #@55 Function to call instead of `cider-interactive-eval'. (defvar cider-interactive-eval-override nil (#$ . 25202)) (make-variable-buffer-local 'cider-interactive-eval-override) #@758 Evaluate FORM and dispatch the response to CALLBACK. If the code to be evaluated comes from a buffer, it is preferred to use a nil FORM, and specify the code via the BOUNDS argument instead. This function is the main entry point in CIDER's interactive evaluation API. Most other interactive eval functions should rely on this function. If CALLBACK is nil use `cider-interactive-eval-handler'. BOUNDS, if non-nil, is a list of two numbers marking the start and end positions of FORM in its buffer. ADDITIONAL-PARAMS is a map to be merged into the request message. If `cider-interactive-eval-override' is a function, call it with the same arguments and only proceed with evaluation if it returns nil. (fn FORM &optional CALLBACK BOUNDS ADDITIONAL-PARAMS) (defalias 'cider-interactive-eval #[1025 "\206\301\302\"\242\243\242\203\211\203\303\304\305$\210\205-\306!\205-#?\205B\307\310\311\312     &\"\207" [cider-interactive-eval-override apply buffer-substring-no-properties remove-overlays cider-temporary t functionp cider-map-repls :auto make-closure #[257 "\305\303\"\210\306\303\300\206\307\310\301\"\311\303!\203\312\202\313 \304\205\"\314\304!\304\205)\315\304!\316\317\302\"&\207" [V0 V1 V2 V3 V4 cider--prep-interactive-eval cider-nrepl-request:eval cider-interactive-eval-handler nil cider-ns-form-p "user" cider-current-ns line-number-at-pos cider-column-number-at-pos seq-mapcat identity] 10 "\n\n(fn CONNECTION)"]] 16 (#$ . 25383)]) #@60 Evaluate the region between START and END. (fn START END) (defalias 'cider-eval-region #[514 "\300\301\211D\302 $\207" [cider-interactive-eval nil cider--nrepl-pr-request-map] 7 (#$ . 26878) "r"]) #@165 Evaluate the expression preceding point. If invoked with OUTPUT-TO-CURRENT-BUFFER, print the result in the current buffer. (fn &optional OUTPUT-TO-CURRENT-BUFFER) (defalias 'cider-eval-last-sexp #[256 "\300\301\205\302 \303\304!\305 $\207" [cider-interactive-eval nil cider-eval-print-handler cider-last-sexp bounds cider--nrepl-pr-request-map] 6 (#$ . 27085) "P"]) #@73 Evaluate the expression preceding point and replace it with its result. (defalias 'cider-eval-last-sexp-and-replace #[0 "\300 \301!\210`\302 \210\303`\"\266\304\305 \306\307 $\207" [cider-last-sexp cider-nrepl-sync-request:eval clojure-backward-logical-sexp kill-region cider-interactive-eval cider-eval-print-handler nil cider--nrepl-pr-request-map] 6 (#$ . 27461) nil]) #@197 Evaluate the list (eg. a function call, surrounded by parens) around point. If invoked with OUTPUT-TO-CURRENT-BUFFER, output the result to current buffer. (fn &optional OUTPUT-TO-CURRENT-BUFFER) (defalias 'cider-eval-list-at-point #[256 "\212\300\301!A@b\210\302!)\207" [cider-list-at-point bounds cider-eval-last-sexp] 3 (#$ . 27844) "P"]) #@159 Evaluate the expression around point. If invoked with OUTPUT-TO-CURRENT-BUFFER, output the result to current buffer. (fn &optional OUTPUT-TO-CURRENT-BUFFER) (defalias 'cider-eval-sexp-at-point #[256 "\212\300\301!A@b\210\302!)\207" [cider-sexp-at-point bounds cider-eval-last-sexp] 3 (#$ . 28194) "P"]) #@104 The previous evaluation context if any. That's set by commands like `cider-eval-last-sexp-in-context'. (defvar cider-previous-eval-context nil (#$ . 28506)) (make-variable-buffer-local 'cider-previous-eval-context) #@63 Evaluate CODE in user-provided evaluation context. (fn CODE) (defalias 'cider--eval-in-context #[257 "\301!\302\303\304\"\"\305\306\307\260\310\311\211\312 $\210\313\300!\210\211\207" [cider-previous-eval-context string-trim-right read-string format "Evaluation context (let-style) for `%s': " "(let [" "]\n " ")" cider-interactive-eval nil cider--nrepl-pr-request-map make-local-variable] 9 (#$ . 28727)]) #@175 Evaluate the preceding sexp in user-supplied context. The context is just a let binding vector (without the brackets). The context is remembered between command invocations. (defalias 'cider-eval-last-sexp-in-context #[0 "\300\301 !\207" [cider--eval-in-context cider-last-sexp] 2 (#$ . 29152) nil]) #@176 Evaluate the preceding sexp in user-supplied context. The context is just a let binding vector (without the brackets). The context is remembered between command invocations. (defalias 'cider-eval-sexp-at-point-in-context #[0 "\300\301 !\207" [cider--eval-in-context cider-sexp-at-point] 2 (#$ . 29459) nil]) #@295 Evaluate the "top-level" form and insert result as comment. The formatting of the comment is defined in `cider-comment-prefix' which, by default, is ";; => " and can be customized. With the prefix arg INSERT-BEFORE, insert before the form, otherwise afterwards. (fn &optional INSERT-BEFORE) (defalias 'cider-eval-defun-to-comment #[256 "\301\302!\203 \303\202\f\3048\305\306\307p\310 \306\223#\311 $\207" [cider-comment-prefix cider-defun-at-point bounds 0 1 cider-interactive-eval nil cider-eval-print-with-comment-handler make-marker cider--nrepl-pr-request-map] 10 (#$ . 29775) "P"]) #@585 Evaluate the form selected by FORM-FN and insert result as comment. FORM-FN can be either `cider-last-sexp' or `cider-defun-at-point'. The formatting of the comment is controlled via three options: `cider-comment-prefix' ";; => " `cider-comment-continued-prefix' ";; " `cider-comment-postfix' "" so that with customization you can optionally wrap the output in the reader macro "#_( .. )", or "(comment ... )", or any other desired formatting. If INSERT-BEFORE is non-nil, insert before the form, otherwise afterwards. (fn FORM-FN INSERT-BEFORE) (defalias 'cider-pprint-form-to-comment #[514 "\304!\203 \305\202\f\3068\203\307\202\310P\311\312\313p\314 \312\223 \n%\315 !$\207" [cider-comment-postfix cider-comment-prefix cider-comment-continued-prefix fill-column bounds 0 1 "\n" "" cider-interactive-eval nil cider-eval-pprint-with-multiline-comment-handler make-marker cider--nrepl-print-request-map] 13 (#$ . 30379)]) #@505 Evaluate the last sexp and insert result as comment. The formatting of the comment is controlled via three options: `cider-comment-prefix' ";; => " `cider-comment-continued-prefix' ";; " `cider-comment-postfix' "" so that with customization you can optionally wrap the output in the reader macro "#_( .. )", or "(comment ... )", or any other desired formatting. If INSERT-BEFORE is non-nil, insert before the form, otherwise afterwards. (fn &optional INSERT-BEFORE) (defalias 'cider-pprint-eval-last-sexp-to-comment #[256 "\300\301\"\207" [cider-pprint-form-to-comment cider-last-sexp] 4 (#$ . 31362) "P"]) #@512 Evaluate the "top-level" form and insert result as comment. The formatting of the comment is controlled via three options: `cider-comment-prefix' ";; => " `cider-comment-continued-prefix' ";; " `cider-comment-postfix' "" so that with customization you can optionally wrap the output in the reader macro "#_( .. )", or "(comment ... )", or any other desired formatting. If INSERT-BEFORE is non-nil, insert before the form, otherwise afterwards. (fn &optional INSERT-BEFORE) (defalias 'cider-pprint-eval-defun-to-comment #[256 "\300\301\"\207" [cider-pprint-form-to-comment cider-defun-at-point] 4 (#$ . 32015) "P"]) #@161 Evaluate the expression preceding point and insert its result in the REPL. If invoked with a PREFIX argument, switch to the REPL buffer. (fn &optional PREFIX) (defalias 'cider-eval-last-sexp-to-repl #[256 "\300\301\302\303 !\304\305!\306 $\210\211\205\307 \207" [cider-interactive-eval nil cider-insert-eval-handler cider-current-repl cider-last-sexp bounds cider--nrepl-pr-request-map cider-switch-to-repl-buffer] 6 (#$ . 32676) "P"]) #@163 Evaluate expr before point and insert its pretty-printed result in the REPL. If invoked with a PREFIX argument, switch to the REPL buffer. (fn &optional PREFIX) (defalias 'cider-pprint-eval-last-sexp-to-repl #[256 "\301\302\303\304 !\305\306!\307!$\210\211\205\310 \207" [fill-column cider-interactive-eval nil cider-insert-eval-handler cider-current-repl cider-last-sexp bounds cider--nrepl-print-request-map cider-switch-to-repl-buffer] 7 (#$ . 33122) "P"]) #@178 Evaluate the expression preceding point. Print its value into the current buffer. With an optional PRETTY-PRINT prefix it pretty-prints the result. (fn &optional PRETTY-PRINT) (defalias 'cider-eval-print-last-sexp #[256 "\301\302\303 \304\305!\203\306!\202\307 $\207" [fill-column cider-interactive-eval nil cider-eval-print-handler cider-last-sexp bounds cider--nrepl-print-request-map cider--nrepl-pr-request-map] 7 (#$ . 33593) "P"]) #@47 Pretty print FORM in popup buffer. (fn FORM) (defalias 'cider--pprint-eval-form #[257 "p\302\303\304\305$\306!rq\210\307;\205:\205\310 !$)\207" [cider-result-buffer fill-column cider-popup-buffer nil clojure-mode ancillary cider-popup-eval-handler cider-interactive-eval cider--nrepl-print-request-map] 10 (#$ . 34043)]) #@213 Evaluate the sexp preceding point and pprint its value. If invoked with OUTPUT-TO-CURRENT-BUFFER, insert as comment in the current buffer, else display in a popup buffer. (fn &optional OUTPUT-TO-CURRENT-BUFFER) (defalias 'cider-pprint-eval-last-sexp #[256 "\211\203\300 \207\301\302\303!!\207" [cider-pprint-eval-last-sexp-to-comment cider--pprint-eval-form cider-last-sexp bounds] 4 (#$ . 34386) "P"]) #@43 Insert a #dbg button at the current sexp. (defalias 'cider--prompt-and-insert-inline-dbg #[0 "\212\301\302\301w\210\303\304\305!)\262\204\3061\307 0\210\202\210`\262\310\311!\312\313\314\232?\2051\315\316\"P\317\320#i\321V\203A\322c\210\323 \210\211c\210i\324V\203P\322c\210\323 \210\266\325`\326\327\330\331&\262)\207" [inhibit-changing-match-data nil " \n[:blank:]" "(" t looking-at (error) backward-up-list cider-read-from-minibuffer "Condition for debugging (leave empty for \"always\"): " propertize "#dbg" "" format " ^{:break/when %s}" font-lock-face cider-fragile-button-face 30 "\n" indent-according-to-mode 40 make-button help-echo "Breakpoint. Reevaluate this form to remove it." :type cider-fragile] 8 (#$ . 34798)]) #@206 Evaluate the current toplevel form, and print result in the minibuffer. With DEBUG-IT prefix argument, also debug the entire form as with the command `cider-debug-defun-at-point'. (fn &optional DEBUG-IT) (defalias 'cider-eval-defun-at-point #[256 "\211\242\300=\203#\301\302!\203\303\304!\203\305\306!\210\307\310!\210\211\203#\311 \210\312\2051?\2051\313\314 P\315\314\316!\317 $\207" [16 derived-mode-p clojurescript-mode y-or-n-p "The debugger doesn't support ClojureScript yet, and we need help with that. \nWould you like to read the Feature Request?" browse-url "https://github.com/clojure-emacs/cider/issues/1416" user-error "The debugger does not support ClojureScript" cider--prompt-and-insert-inline-dbg cider-interactive-eval "#dbg\n" cider-defun-at-point nil bounds cider--nrepl-pr-request-map] 7 (#$ . 35553) "P"]) #@221 Walks up the list of expressions to collect all sexp opening delimiters. The result is a list of the delimiters. That function is used in `cider-eval-defun-up-to-point' so it can make an incomplete expression complete. (defalias 'cider--calculate-opening-delimiters #[0 "\300\212\3011\302 \210\300fB\262\202\210)\207" [nil (error) backward-up-list] 3 (#$ . 36401) nil]) #@77 Get the matching (opening/closing) delimiter for DELIMITER. (fn DELIMITER) (defalias 'cider--matching-delimiter #[257 "\211\300\267\202\301\207\302\207\303\207\304\207\305\207\306\207\307\207" [#s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (40 6 91 8 123 10 41 12 93 14 125 16)) 41 93 125 40 91 123 nil] 3 (#$ . 36784)]) #@78 Compute the list of closing delimiters to make the defun before point valid. (defalias 'cider--calculate-closing-delimiters #[0 "\300\301\302 \"\207" [mapcar cider--matching-delimiter cider--calculate-opening-delimiters] 3 (#$ . 37153)]) #@444 Evaluate the current toplevel form up to point. If invoked with OUTPUT-TO-CURRENT-BUFFER, print the result in the current buffer. It constructs an expression to eval in the following manner: - It find the code between the point and the start of the toplevel expression; - It balances this bit of code by closing all open expressions; - It evaluates the resulting code using `cider-interactive-eval'. (fn &optional OUTPUT-TO-CURRENT-BUFFER) (defalias 'cider-eval-defun-up-to-point #[256 "\212\300 \210`)\301`\"\211\302 P\303\205\304 \305\306 $\207" [beginning-of-defun buffer-substring-no-properties cider--calculate-closing-delimiters cider-interactive-eval cider-eval-print-handler nil cider--nrepl-pr-request-map] 9 (#$ . 37398) "P"]) #@431 Evaluate the current sexp form up to point. If invoked with OUTPUT-TO-CURRENT-BUFFER, print the result in the current buffer. It constructs an expression to eval in the following manner: - It finds the code between the point and the start of the sexp expression; - It balances this bit of code by closing the expression; - It evaluates the resulting code using `cider-interactive-eval'. (fn &optional OUTPUT-TO-CURRENT-BUFFER) (defalias 'cider-eval-sexp-up-to-point #[256 "\212\300 \210\301 \210`)\212\300 \210\301 \210\302f)\212\300 \210\301 \210`Sf)\303`\"\304U\203/CP\2020\211\211\305!CP\306\205?\307 \302\310 $\207" [up-list backward-list nil buffer-substring-no-properties 35 cider--matching-delimiter cider-interactive-eval cider-eval-print-handler cider--nrepl-pr-request-map] 12 (#$ . 38150) "P"]) #@218 Evaluate the "top-level" form at point and pprint its value. If invoked with OUTPUT-TO-CURRENT-BUFFER, insert as comment in the current buffer, else display in a popup buffer. (fn &optional OUTPUT-TO-CURRENT-BUFFER) (defalias 'cider-pprint-eval-defun-at-point #[256 "\211\203\300 \207\301\302\303!!\207" [cider-pprint-eval-defun-to-comment cider--pprint-eval-form cider-defun-at-point bounds] 4 (#$ . 38977) "P"]) #@47 Evaluate the current buffer's namespace form. (defalias 'cider-eval-ns-form #[0 "\300 \205 \212\301\224b\210\302 )\207" [clojure-find-ns 0 cider-eval-defun-at-point] 1 (#$ . 39400) nil]) #@169 Read a sexp from the minibuffer and output its result to the echo area. If VALUE is non-nil, it is inserted into the minibuffer as initial input. (fn &optional VALUE) (defalias 'cider-read-and-eval #[256 "\302\303\"\304!\203\305\202\306\307\310 \"r\311 !q\210\312 \210\313 \210\211\305\230\204+\211\314\261\210c\210\315\316\211\317 $*\207" [cider-interactive-eval-override cider-read-eval-buffer cider-read-from-minibuffer "Clojure Eval: " cider-ns-form-p "" format "(ns %s)" cider-current-ns get-buffer-create erase-buffer clojure-mode "\n\n" cider-interactive-eval nil cider--nrepl-pr-request-map] 9 (#$ . 39595) nil]) #@168 Insert the toplevel form at point in the minibuffer and output its result. The point is placed next to the function name in the minibuffer to allow passing arguments. (defalias 'cider-read-and-eval-defun-at-point #[0 "\300\301 !A@\302\303\"\304\211GB!\207" [split-string cider-defun-at-point format "(%s)" cider-read-and-eval] 5 (#$ . 40237) nil]) (defvar cider-eval-pprint-commands-map (byte-code "\300\301!\302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\304#\210\302\314\306#\210\302\315\310#\210\302\316\310#\210\302\317\312#\210\302\320\312#\210\207" [define-prefix-command cider-eval-pprint-commands-map define-key "e" cider-pprint-eval-last-sexp "d" cider-pprint-eval-defun-at-point "ce" cider-pprint-eval-last-sexp-to-comment "cd" cider-pprint-eval-defun-to-comment "" "" "e" "" "d" ""] 5)) (defvar cider-eval-commands-map (byte-code "\300\301!\302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210\302\333\334#\210\302\335\304#\210\302\336\306#\210\302\337\310#\210\302\340\312#\210\302\341\314#\210\302\342\316#\210\302\343\320#\210\302\344\322#\210\302\345\324#\210\302\346\326#\210\302\347\330#\210\302\350\332#\210\302\351\334#\210\207" [define-prefix-command cider-eval-commands-map define-key "w" cider-eval-last-sexp-and-replace "r" cider-eval-region "n" cider-eval-ns-form "d" cider-eval-defun-at-point "e" cider-eval-last-sexp "l" cider-eval-list-at-point "v" cider-eval-sexp-at-point "o" cider-eval-sexp-up-to-point "." cider-read-and-eval-defun-at-point "z" cider-eval-defun-up-to-point "c" cider-eval-last-sexp-in-context "b" cider-eval-sexp-at-point-in-context "f" cider-eval-pprint-commands-map "" "" "" "" "" "\f" "" "" [67108910] "" "" "" ""] 5)) #@64 Read the contents of a FILE and return as a string. (fn FILE) (defalias 'cider--file-string #[257 "r\300!q\210\214~\210\301\302 !*\207" [find-file-noselect substring-no-properties buffer-string] 3 (#$ . 42150)]) #@350 Load (eval) BUFFER's file in nREPL. If no buffer is provided the command acts on the current buffer. If the buffer is for a cljc file, and both a Clojure and ClojureScript REPL exists for the project, it is evaluated in both REPLs. Optional argument CALLBACK will override the default ‘cider-load-file-handler’. (fn &optional BUFFER CALLBACK) (defalias 'cider-load-buffer #[512 "\206p\262rq\210\303 \210\211 \204\304\305p\"\210\n\2035\306 \2035\n\307=\2042\310\311\312 \"!\2035\313 \210\314\315\211\316\307$\210\317 \210\320 \210\301!\321 \322\323\324\325$\"\210\326\327\"\266\202*\207" [default-directory buffer-file-name cider-save-file-on-load check-parens user-error "Buffer `%s' is not associated with a file" buffer-modified-p t y-or-n-p format "Save file %s? " save-buffer remove-overlays nil cider-temporary cider--clear-compilation-highlights cider--quit-error-window cider-ns-form cider-map-repls :auto make-closure #[257 "\302\203 \304\302\"\210\305\306\301! \307\301!!\310\301!\300%\207" [V0 V1 V2 cider-to-nrepl-filename-function cider-repl--cache-ns-form cider-request:load-file cider--file-string cider--server-filename file-name-nondirectory] 7 "\n\n(fn REPL)"] message "Loading %s..."] 12 (#$ . 42371) nil]) #@240 Load (eval) the Clojure file FILENAME in nREPL. If the file is a cljc file, and both a Clojure and ClojureScript REPL exists for the project, it is evaluated in both REPLs. The heavy lifting is done by `cider-load-buffer'. (fn FILENAME) (defalias 'cider-load-file #[257 "\300!\211\203 \301!\207\301\302!!\207" [find-buffer-visiting cider-load-buffer find-file-noselect] 5 (#$ . 43633) (byte-code "\300\301\302\211\211\303 \205\304\303 !%C\207" [read-file-name "Load file: " nil buffer-file-name file-name-nondirectory] 7)]) #@106 Load all files in DIRECTORY (recursively). Useful when the running nREPL on remote host. (fn DIRECTORY) (defalias 'cider-load-all-files #[257 "\300\301\302\303\"\"\207" [mapcar cider-load-file directory-files-recursively "\\.clj[cs]?$"] 6 (#$ . 44172) "DLoad files beneath directory: "]) (byte-code "\300\301\302\303#\210\300\304\305\303#\210\300\306\307\303#\207" [defalias cider-eval-file cider-load-file "A convenience alias as some people are confused by the load-* names." cider-eval-all-files cider-load-all-files cider-eval-buffer cider-load-buffer] 4) #@45 Load all namespaces in the current project. (defalias 'cider-load-all-project-ns #[0 "\300 \210\301\302!\210\303\304!\205\305\306!\210\307 G\305\310\"\262\207" [cider-ensure-connected cider-ensure-op-supported "ns-load-all" y-or-n-p "Are you sure you want to load all namespaces in the project? " message "Loading all project namespaces..." cider-sync-request:ns-load-all "Loaded %d namespaces"] 4 (#$ . 44740) nil]) (provide 'cider-eval)