;ELC ;;; Compiled by daniel@waffles on Fri Nov 21 07:57:21 2014 ;;; from file /Users/daniel/.emacs.d/elpa/cider-20141120.1746/cider-macroexpansion.el ;;; in Emacs version 24.3.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'cider-mode) (defconst cider-macroexpansion-buffer "*cider-macroexpansion*") (byte-code " B\302\303\304\305\306DD\307\310\311\312\313\314\315& \210\316\317\303\320#\210\321\211\203=\211@\317N\2036\303N\2046\322\303\317N#\210A\266\202\202\210\323\317\303\324#\207" [cider-macroexpansion-buffer cider-ancillary-buffers custom-declare-variable cider-macroexpansion-display-namespaces funcall function #[0 "\300\207" [tidy] 1 "\n\n(fn)"] "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-refered vars from other\n namespaces are refered 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") defvaralias cider-macroexpansion-suppress-namespaces nil (saved-value saved-variable-comment) put make-obsolete-variable "0.8.0"] 10) #@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 (#$ . 1871) nil]) #@109 Specify the last macroexpansion preformed. This variable specifies both what was expanded and the expander. (defvar cider-last-macroexpand-expression nil (#$ . 2094)) #@64 Macroexpand, use EXPANDER, the given EXPR. (fn EXPANDER EXPR) (defalias 'cider-macroexpand-expr #[514 "\301\"\302\303 \"\207" [cider-last-macroexpand-expression cider-sync-request:macroexpand cider-initialize-macroexpansion-buffer cider-current-ns] 6 (#$ . 2267)]) #@92 Substitute the form preceding point with its macroexpansion using EXPANDER. (fn EXPANDER) (defalias 'cider-macroexpand-expr-inplace #[257 "\300\301 \"\212\302 \210`)`B\303p@A$\207" [cider-sync-request:macroexpand cider-last-sexp backward-sexp cider-redraw-macroexpansion-buffer] 8 (#$ . 2544) nil]) #@39 Repeat the last macroexpansion. (fn) (defalias 'cider-macroexpand-again #[0 "\301\302 \"\207" [cider-last-macroexpand-expression cider-initialize-macroexpansion-buffer cider-current-ns] 3 (#$ . 2854) nil]) #@163 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 (#$ . 3069) "P"]) #@172 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 (#$ . 3409) "P"]) #@80 Invoke 'clojure.walk/macroexpand-all' on the expression preceding point. (fn) (defalias 'cider-macroexpand-all #[0 "\300\301\302 \"\207" [cider-macroexpand-expr "macroexpand-all" cider-last-sexp] 3 (#$ . 3751) nil]) #@89 Perform inplace 'clojure.walk/macroexpand-all' on the expression preceding point. (fn) (defalias 'cider-macroexpand-all-inplace #[0 "\300\301!\207" [cider-macroexpand-expr-inplace "macroexpand-all"] 2 (#$ . 3974) 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" [nrepl-buffer-ns buffer-undo-list inhibit-read-only pop-to-buffer cider-create-macroexpansion-buffer nil t erase-buffer format "%s" font-lock-fontify-buffer] 5 (#$ . 4200)]) #@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 (#$ . 4602)]) #@43 Create a new macroexpansion buffer. (fn) (defalias 'cider-create-macroexpansion-buffer #[0 "r\301\302\"q\210\303 \210\304 \210\305\306!\210p)\207" [cider-macroexpansion-buffer cider-popup-buffer t clojure-mode clojure-disable-cider cider-macroexpansion-mode 1] 3 (#$ . 4995)]) (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\314\315!\210\316\317\320\321$\210\315\322\323\324\325\326!\327\"\330\331%\262\211\332\333\"\210\211\334\335\"\210\211\336\337\"\210\211\340\337\"\266\211\207" [make-sparse-keymap define-key "g" cider-macroexpand-again "q" cider-popup-buffer-quit-function "d" cider-doc "j" cider-javadoc "." cider-jump-to-var (lambda (#1=#:def-tmp-var) (defvar cider-macroexpansion-mode-menu #1# #2="Menu for CIDER's doc mode")) nil easy-menu-do-define cider-macroexpansion-mode-menu #2# ("Macroexpansion" ["Restart expansion" cider-macroexpand-again] ["Macroexpand-1" cider-macroexpand-1-inplace] ["Macroexpand-all" cider-macroexpand-all-inplace] ["Go to source" cider-jump-to-var] ["Go to doc" cider-doc] ["Go to Javadoc" cider-docview-javadoc] ["Quit" cider-popup-buffer-quit-function]) make-byte-code 514 "\302 \"\211\205\211@\303\300#\210A\266\202\202\207" vconcat vector [cider-mode-map where-is-internal define-key] 8 "\n\n(fn FROM TO)" cider-macroexpand-1 cider-macroexpand-1-inplace cider-macroexpand-all cider-macroexpand-all-inplace advertised-undo cider-macroexpand-undo undo] 8)) #@119 Non-nil if Cider-Macroexpansion mode is enabled. Use the command `cider-macroexpansion-mode' to change this variable. (defvar cider-macroexpansion-mode nil (#$ . 6516)) (make-variable-buffer-local 'cider-macroexpansion-mode) #@92 Minor mode for CIDER macroexpansion. \{cider-macroexpansion-mode-map} (fn &optional ARG) (defalias 'cider-macroexpansion-mode #[256 "\301 \302=\203 ?\202\303!\304V\305\306\203\307\202\310\"\210\311\312!\203?\301 \2032\211\301 \232\203?\313\314\203<\315\202=\316\"\210\210\317 \210\207" [cider-macroexpansion-mode current-message toggle prefix-numeric-value 0 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" "en" "dis" force-mode-line-update] 5 (#$ . 6747) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)]) (byte-code "\301\302\303\304\211%\210\305\306!\207" [cider-macroexpansion-mode-map add-minor-mode cider-macroexpansion-mode " Macroexpand" nil provide cider-macroexpansion] 6)