;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require cider-mode subr-x cider-compat] 2) (defconst cider-macroexpansion-buffer "*cider-macroexpansion*") (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& \207" [custom-declare-variable cider-macroexpansion-display-namespaces funcall function #[0 "\300\207" [tidy] 1] "Determines if namespaces are displayed in the macroexpansion buffer.\nPossible values are:\n\n 'qualified ;=> Vars are fully-qualified in the expansion\n 'none ;=> Vars are displayed without namespace qualification\n 'tidy ;=> Vars that are :refer-ed or defined in the current namespace are\n displayed with their simple name, non-referred vars from other\n namespaces are referred using the alias for that namespace (if\n defined), other vars are displayed fully qualified." :type (choice (const :tag "Suppress namespaces" none) (const :tag "Show fully-qualified namespaces" qualified) (const :tag "Show namespace aliases" tidy)) :group cider :package-version (cider . "0.7.0") cider-macroexpansion-print-metadata #[0 "\300\207" [nil] 1] "Determines if metadata is included in macroexpansion results." boolean (cider . "0.9.0")] 10) #@187 Macroexpand, using EXPANDER, the given EXPR. The default for DISPLAY-NAMESPACES is taken from `cider-macroexpansion-display-namespaces'. (fn EXPANDER EXPR &optional DISPLAY-NAMESPACES) (defalias 'cider-sync-request:macroexpand #[770 "\302\303!\210\304\305\306\303\307\310\311\312 \313 \206\314!\257\n \205!\315\244!\316\"\207" [cider-macroexpansion-display-namespaces cider-macroexpansion-print-metadata cider-ensure-op-supported "macroexpand" nrepl-dict-get cider-nrepl-send-sync-request "op" "expander" "code" "ns" cider-current-ns "display-namespaces" symbol-name ("print-meta" "true") "expansion"] 16 (#$ . 1378)]) #@106 Undo the last macroexpansion, using `undo-only'. ARG is passed along to `undo-only'. (fn &optional ARG) (defalias 'cider-macroexpand-undo #[256 "\301\302!)\207" [inhibit-read-only t undo-only] 3 (#$ . 2014) nil]) #@109 Specify the last macroexpansion preformed. This variable specifies both what was expanded and the expander. (defvar cider-last-macroexpand-expression nil (#$ . 2237)) #@64 Macroexpand, use EXPANDER, the given EXPR. (fn EXPANDER EXPR) (defalias 'cider-macroexpand-expr #[514 "\301\"\211\205\302\303 \"\207" [cider-last-macroexpand-expression cider-sync-request:macroexpand cider-initialize-macroexpansion-buffer cider-current-ns] 6 (#$ . 2410)]) #@92 Substitute the form preceding point with its macroexpansion using EXPANDER. (fn EXPANDER) (defalias 'cider-macroexpand-expr-inplace #[257 "\300\301 \"\212\302\303!\210`)`B\304p@A$\207" [cider-sync-request:macroexpand cider-last-sexp clojure-backward-logical-sexp 1 cider-redraw-macroexpansion-buffer] 8 (#$ . 2697) nil]) #@33 Repeat the last macroexpansion. (defalias 'cider-macroexpand-again #[0 "\301\302 \"\207" [cider-last-macroexpand-expression cider-initialize-macroexpansion-buffer cider-current-ns] 3 (#$ . 3029) nil]) #@175 Invoke \=`macroexpand-1\=` on the expression preceding point. If invoked with a PREFIX argument, use \=`macroexpand\=` instead of \=`macroexpand-1\=`. (fn &optional PREFIX) (defalias 'cider-macroexpand-1 #[256 "\211\203\300\202 \301\302\303 \"\207" ["macroexpand" "macroexpand-1" cider-macroexpand-expr cider-last-sexp] 5 (#$ . 3238) "P"]) #@184 Perform inplace \=`macroexpand-1\=` on the expression preceding point. If invoked with a PREFIX argument, use \=`macroexpand\=` instead of \=`macroexpand-1\=`. (fn &optional PREFIX) (defalias 'cider-macroexpand-1-inplace #[256 "\211\203\300\202 \301\302!\207" ["macroexpand" "macroexpand-1" cider-macroexpand-expr-inplace] 4 (#$ . 3590) "P"]) #@65 Invoke \=`macroexpand-all\=` on the expression preceding point. (defalias 'cider-macroexpand-all #[0 "\300\301\302 \"\207" [cider-macroexpand-expr "macroexpand-all" cider-last-sexp] 3 (#$ . 3944) nil]) #@74 Perform inplace \=`macroexpand-all\=` on the expression preceding point. (defalias 'cider-macroexpand-all-inplace #[0 "\300\301!\207" [cider-macroexpand-expr-inplace "macroexpand-all"] 2 (#$ . 4152) nil]) #@88 Create a new Macroexpansion buffer with EXPANSION and namespace NS. (fn EXPANSION NS) (defalias 'cider-initialize-macroexpansion-buffer #[514 "\303\304 !\210\211\305\306\211\307 \210\310\311\"c\210db\210\312 *\207" [cider-buffer-ns buffer-undo-list inhibit-read-only pop-to-buffer cider-create-macroexpansion-buffer nil t erase-buffer format "%s" cider--font-lock-ensure] 5 (#$ . 4363)]) #@190 Redraw the macroexpansion with new EXPANSION. Text in BUFFER from START to END is replaced with new expansion, and point is placed after the expanded form. (fn EXPANSION BUFFER START END) (defalias 'cider-redraw-macroexpansion-buffer #[1028 "rq\210\301b\210|\210\302\303\"c\210b\210\304 \210\305 *\207" [buffer-read-only nil format "%s" indent-sexp forward-sexp] 7 (#$ . 4764)]) #@37 Create a new macroexpansion buffer. (defalias 'cider-create-macroexpansion-buffer #[0 "r\301\302\303\304$q\210\305\306!\210\307\310!\210p)\207" [cider-macroexpansion-buffer cider-popup-buffer select clojure-mode ancillary cider-mode -1 cider-macroexpansion-mode 1] 5 (#$ . 5157)]) (defvar cider-macroexpansion-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\317#\210\301\320\321#\210\301\322\321#\210\323\324!\210\325\326\327\330$\210\207" [make-sparse-keymap define-key "g" cider-macroexpand-again "q" cider-popup-buffer-quit-function "d" cider-doc "j" cider-javadoc "." cider-find-var "m" cider-macroexpand-1-inplace "a" cider-macroexpand-all-inplace "u" cider-macroexpand-undo [remap undo] (lambda (def-tmp-var) (defvar cider-macroexpansion-mode-menu def-tmp-var #1="Menu for CIDER's doc mode")) nil easy-menu-do-define cider-macroexpansion-mode-menu #1# ("Macroexpansion" ["Restart expansion" cider-macroexpand-again] ["Macroexpand-1" cider-macroexpand-1-inplace] ["Macroexpand-all" cider-macroexpand-all-inplace] ["Macroexpand-undo" cider-macroexpand-undo] ["Go to source" cider-find-var] ["Go to doc" cider-doc] ["Go to Javadoc" cider-docview-javadoc] ["Quit" cider-popup-buffer-quit-function])] 6)) #@119 Non-nil if Cider-Macroexpansion mode is enabled. Use the command `cider-macroexpansion-mode' to change this variable. (defvar cider-macroexpansion-mode nil (#$ . 6470)) (make-variable-buffer-local 'cider-macroexpansion-mode) #@646 Minor mode for CIDER macroexpansion. This is a minor mode. If called interactively, toggle the `Cider-Macroexpansion mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `cider-macroexpansion-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. \{cider-macroexpansion-mode-map} (fn &optional ARG) (defalias 'cider-macroexpansion-mode #[256 "\302 \303=\203 ?\202\247\203\304W\203\305\202\306\307\301!\2031\310\300 \"\2031\300 B\311\312\203;\313\202<\314\"\210\315\316!\203^\302 \203P\211\302 \232\203^\317\320\203Z\321\202[\322\323#\210\210\324 \210\207" [cider-macroexpansion-mode local-minor-modes current-message toggle 1 nil t boundp delq run-hooks cider-macroexpansion-mode-hook cider-macroexpansion-mode-on-hook cider-macroexpansion-mode-off-hook called-interactively-p any message "Cider-Macroexpansion mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 6 (#$ . 6702) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar cider-macroexpansion-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\310\211%\210\314\315!\207" [cider-macroexpansion-mode-map cider-macroexpansion-mode-hook variable-documentation put "Hook run after entering or leaving `cider-macroexpansion-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode cider-macroexpansion-mode " Macroexpand" provide cider-macroexpansion] 6)