diff options
author | Michael Griffiths <mikey@cich.li> | 2015-04-29 21:46:42 +0100 |
---|---|---|
committer | Michael Griffiths <mikey@cich.li> | 2015-04-29 21:46:42 +0100 |
commit | f713020b6f70b510596b264ce367ae2079d94ea1 (patch) | |
tree | 67e423baadbdd7f0f68ce739bfe9b25ab4a298a2 /cider-macroexpansion.el | |
parent | d0571da3cfb202825a96fb790026d5c402364cca (diff) |
Add cider-macroexpansion-print-metadata option
Fixes #1090.
Diffstat (limited to 'cider-macroexpansion.el')
-rw-r--r-- | cider-macroexpansion.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/cider-macroexpansion.el b/cider-macroexpansion.el index 8655ff9a..cc2c46fc 100644 --- a/cider-macroexpansion.el +++ b/cider-macroexpansion.el @@ -57,6 +57,12 @@ Possible values are: 'cider-macroexpansion-display-namespaces "0.8.0") +(defcustom cider-macroexpansion-print-metadata nil + "Determines if metadata is included in macroexpansion results." + :type 'boolean + :group 'cider + :package-version '(cider . "0.9.0")) + (defun cider-sync-request:macroexpand (expander expr &optional display-namespaces) "Macroexpand, using EXPANDER, the given EXPR. The default for DISPLAY-NAMESPACES is taken from @@ -69,6 +75,8 @@ The default for DISPLAY-NAMESPACES is taken from "display-namespaces" (or display-namespaces (symbol-name cider-macroexpansion-display-namespaces))) + (append (when cider-macroexpansion-print-metadata + (list "print-meta" "true"))) (nrepl-send-sync-request) (nrepl-dict-get "expansion"))) |