From f713020b6f70b510596b264ce367ae2079d94ea1 Mon Sep 17 00:00:00 2001 From: Michael Griffiths Date: Wed, 29 Apr 2015 21:46:42 +0100 Subject: Add cider-macroexpansion-print-metadata option Fixes #1090. --- cider-macroexpansion.el | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'cider-macroexpansion.el') 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"))) -- cgit v1.2.3