[nongnu] elpa/inf-clojure abb5a53 017/313: Add macroexpand command

[ELPA Syncer]

branch: elpa/inf-clojure
commit abb5a53e68ded09353873855d0b1d98568d2c4e6
Author: Bozhidar Batsov <bozhidar@batsov.com>
Commit: Bozhidar Batsov <bozhidar@batsov.com>

    Add macroexpand command
---
 inf-clojure.el | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/inf-clojure.el b/inf-clojure.el
index 78a0d1a..d126f4e 100644
--- a/inf-clojure.el
+++ b/inf-clojure.el
@@ -101,6 +101,7 @@ mode.  Default is whitespace followed by 0 or 1 
single-letter colon-keyword
     (define-key map "\C-c\C-s" 'clojure-show-var-source)
     (define-key map "\C-c\C-i" 'clojure-show-ns-vars)
     (define-key map "\C-c\C-A" 'clojure-apropos)
+    (define-key map "\C-c\C-m" 'clojure-macroexpand)
     map))
 
 ;;;###autoload
@@ -407,6 +408,12 @@ Used by this command to determine defaults."
      (println (str var)))\n"
   "Command to invoke apropos.")
 
+(defvar clojure-macroexpand-command
+  "(clojure.core/macroexpand '%s)\n")
+
+(defvar clojure-macroexpand-1-command
+  "(clojure.core/macroexpand-1 '%s)\n")
+
 ;;; Ancillary functions
 ;;; ===================
 
@@ -478,6 +485,19 @@ See variable `clojure-apropos-command'."
   (interactive (clojure-symprompt "Var apropos" (clojure-var-at-pt)))
   (comint-proc-query (inf-clojure-proc) (format clojure-apropos-command var)))
 
+(defun clojure-macroexpand (&optional macro-1)
+  "Send a command to the inferior Clojure to give apropos for VAR.
+See variable `clojure-macroexpand-command'.
+With a prefix arg MACRO-1 uses `clojure-macroexpand-1-command'."
+  (interactive "P")
+  (let ((last-sexp (buffer-substring-no-properties (save-excursion 
(backward-sexp) (point)) (point))))
+    (comint-send-string
+     (inf-clojure-proc)
+     (format (if macro-1
+                 clojure-macroexpand-1-command
+               clojure-macroexpand-command)
+             last-sexp))))
+
 
 ;;  "Returns the current inferior Clojure process.
 ;; See variable `inf-clojure-buffer'."