;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\310\311\312\313\314DD\315\316\317\320\321\322\323& \210\310\324\312\313\325DD\326\316\327\320\321\322\330& \207" [require map seq subr-x cider-client cider-eval cider-popup cider-stacktrace custom-declare-variable cider-ns-save-files-on-refresh funcall function #[0 "\300\207" [prompt] 1] "Controls whether to prompt to save files before refreshing.\nIf nil, files are not saved.\nIf 'prompt, the user is prompted to save files if they have been modified.\nIf t, save the files without confirmation." :type (choice (const prompt :tag "Prompt to save files if they have been modified") (const nil :tag "Don't save the files") (const t :tag "Save the files without confirmation")) :group cider :package-version (cider . "0.15.0") cider-ns-save-files-on-refresh-modes #[0 "\300\207" [(clojure-mode)] 1] "Controls which files might be saved before refreshing.\nIf a list of modes, any buffers visiting files on the classpath whose major\nmode is derived from any of the modes might be saved.\nIf t, all buffers visiting files on the classpath might be saved." (choice listp (const t)) (cider . "0.21.0")] 10) (defconst cider-ns-refresh-log-buffer "*cider-ns-refresh-log*") (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\300\321\302\303\322DD\323\306\317\310\311\312\324& \207" [custom-declare-variable cider-ns-refresh-show-log-buffer funcall function #[0 "\300\207" [nil] 1] "Controls when to display the refresh log buffer.\nIf non-nil, the log buffer will be displayed every time `cider-ns-refresh' is\ncalled. If nil, the log buffer will still be written to, but will never be\ndisplayed automatically. Instead, the most relevant information will be\ndisplayed in the echo area." :type (choice (const :tag "always" t) (const :tag "never" nil)) :group cider :package-version (cider . "0.10.0") cider-ns-refresh-before-fn #[0 "\300\207" [nil] 1] "Clojure function for `cider-ns-refresh' to call before reloading.\nIf nil, nothing will be invoked before reloading. Must be a\nnamespace-qualified function of zero arity. Any thrown exception will\nprevent reloading from occurring." string (cider . "0.10.0") cider-ns-refresh-after-fn #[0 "\300\207" [nil] 1] "Clojure function for `cider-ns-refresh' to call after reloading.\nIf nil, nothing will be invoked after reloading. Must be a\nnamespace-qualified function of zero arity." (cider . "0.10.0")] 10) #@61 Refresh LOG-BUFFER with RESPONSE. (fn RESPONSE LOG-BUFFER) (defalias 'cider-ns-refresh--handle-response #[514 "\301\302\"\301\303\"\301\304\"\301\305\"\301\306\"\301\307\"\301\310\"\301 \311\"\312\313\n\"\314 \2038\n!\266\202\363\203G \315\"\266\202\363\316\235\203\\\211\317\320\"\321#\266\202\363\322\235\203q\211\317\323\"\321#\266\202\363\324\235\203\202\211\325\321#\266\202\363\203\225\211\317\326 \"\321#\266\202\363\304\327 !\235\203\250\211\330\321#\266\202\363\331\235\203\271\211\332\321#\266\202\363\203\313\211\317\333\"\315#\266\202\363\334\235\203\340\211\317\320\"\321#\266\202\363\335\235\203\361\211\317\323\"\321#\210\266\336\337!\206\374\340 !r\312\341\"\216\342@\343\"\210rq\210db\210+\210\306\235\205\344!\207" [cider-ns-refresh-log-buffer nrepl-dict-get "out" "err" "reloading" "status" "error" "error-ns" "after" "before" make-closure #[513 "\301\300\302$\207" [V0 cider-emit-into-popup-buffer t] 7 "\n\n(fn MESSAGE &optional FACE)"] #[770 "\"\210?\205\302\303\304\")\207" [cider-ns-refresh-show-log-buffer message-truncate-lines t message "cider-ns-refresh: %s"] 6 "\n\n(fn --CL-LOG-- MESSAGE &optional FACE)"] font-lock-warning-face "invoking-before" format "Calling %s\n" font-lock-string-face "invoked-before" "Successfully called %s\n" "invoked-not-resolved" "Could not resolve refresh function\n" "Reloading %s\n" nrepl-dict-keys "Nothing to reload\n" "ok" "Reloading successful\n" "Error reloading %s\n" "invoking-after" "invoked-after" internal--before-with-selected-window get-buffer-window selected-window #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord cider--render-stacktrace-causes] 17 (#$ . 2625)]) #@174 Ensure any relevant modified buffers are saved before refreshing. Its behavior is controlled by `cider-ns-save-files-on-refresh' and `cider-ns-save-files-on-refresh-modes'. (defalias 'cider-ns-refresh--save-modified-buffers #[0 "\205\301\302\303 \"\304\305=?\306\307\"\"\262\207" [cider-ns-save-files-on-refresh seq-filter file-directory-p cider-classpath-entries save-some-buffers prompt make-closure #[0 "\302\303 \"\205 \302\304\300\"\207" [V0 cider-ns-save-files-on-refresh-modes seq-some derived-mode-p #[257 "\301\"\207" [buffer-file-name file-in-directory-p] 4 "\n\n(fn DIR)"]] 3]] 6 (#$ . 4417)]) #@403 Send a (require 'ns :reload) to the REPL. With an argument PROMPT, it prompts for a namespace name. This is the Clojure out of the box reloading experience and does not rely on org.clojure/tools.namespace. See Commentary of this file for a longer list of differences. From the Clojure doc: ":reload forces loading of all the identified libs even if they are already loaded". (fn &optional PROMPT) (defalias 'cider-ns-reload #[256 "\211\203 \300\301\302\303 \"\304\"\203\211G\305O\266\202\202\"\262\202\"\303 \306\307\310\"!\207" ["'" read-from-minibuffer "Namespace: " clojure-find-ns string-prefix-p nil cider-interactive-eval format "(require '%s :reload)"] 6 (#$ . 5038) "P"]) #@454 Send a (require 'ns :reload-all) to the REPL. With an argument PROMPT, it prompts for a namespace name. This is the Clojure out of the box reloading experience and does not rely on org.clojure/tools.namespace. See Commentary of this file for a longer list of differences. From the Clojure doc: ":reload-all implies :reload and also forces loading of all libs that the identified libs directly or indirectly load via require". (fn &optional PROMPT) (defalias 'cider-ns-reload-all #[256 "\211\203 \300\301\302\303 \"\304\"\203\211G\305O\266\202\202\"\262\202\"\303 \306\307\310\"!\207" ["'" read-from-minibuffer "Namespace: " clojure-find-ns string-prefix-p nil cider-interactive-eval format "(require '%s :reload-all)"] 6 (#$ . 5740) "P"]) #@765 Reload modified and unloaded namespaces on the classpath. With a single prefix argument, or if MODE is `refresh-all', reload all namespaces on the classpath unconditionally. With a double prefix argument, or if MODE is `clear', clear the state of the namespace tracker before reloading. This is useful for recovering from some classes of error (for example, those caused by circular dependencies) that a normal reload would not otherwise recover from. The trade-off of clearing is that stale code from any deleted files may not be completely unloaded. With a negative prefix argument, or if MODE is `inhibit-fns', prevent any refresh functions (defined in `cider-ns-refresh-before-fn' and `cider-ns-refresh-after-fn') from being invoked. (fn &optional MODE) (defalias 'cider-ns-refresh #[256 "\300 \210\301\302!\210\303 \210\211\304>\305>\306>\307\310\311\312$\"\207" [cider-ensure-connected cider-ensure-op-supported "refresh" cider-ns-refresh--save-modified-buffers (clear 16) (refresh-all 4) (inhibit-fns -1) cider-map-repls :clj make-closure #[257 "\306 !\206 \307 !\f\203\310!\210\302\203\311\312\313\314$\210\300\203%\315\316\"\210\317\320\321\322\323\324\301\2033\325\2024\326DC\327 !\302?\205H\205H\330DC\302?\205W\205W\331DC%\"\332\333\"#\207" [V0 V1 V2 cider-ns-refresh-log-buffer cider-ns-refresh-show-log-buffer fill-column get-buffer cider-make-popup-buffer cider-popup-buffer-display cider-emit-into-popup-buffer "inhibiting refresh functions\n" nil t cider-nrepl-send-sync-request ("op" "refresh-clear") cider-nrepl-send-request seq-mapcat identity map-merge list "op" "refresh-all" "refresh" cider--nrepl-print-request-map "before" "after" make-closure #[257 "\301\300\"\207" [V0 cider-ns-refresh--handle-response] 4 "\n\n(fn RESPONSE)"] cider-ns-refresh-before-fn cider-ns-refresh-after-fn] 12 "\n\n(fn CONN)"]] 11 (#$ . 6501) "p"]) (provide 'cider-ns)