Browse files

namespace-qualify code sent to nrepl

  • Loading branch information...
1 parent ceb9d98 commit feb032efbf47ddf18d63e1391eba0b524510f968 @jkk jkk committed Aug 23, 2012
Showing with 10 additions and 7 deletions.
  1. +10 −7 nrepl.el
@@ -317,9 +317,10 @@ joined together.")
(defun nrepl-jump-to-def (var)
"Jump to the definition of the var at point."
- (let ((form (format "((juxt (comp str :file)
- (comp str :file) :line)
- (meta (resolve '%s)))"
+ (let ((form (format "((clojure.core/juxt
+ (comp clojure.core/str :file)
+ (comp clojure.core/str :file) :line)
+ (clojure.core/meta (clojure.core/resolve '%s)))"
(nrepl-send-string form nrepl-buffer-ns
(nrepl-jump-to-def-handler (current-buffer)))))
@@ -339,7 +340,7 @@ joined together.")
(list (car bounds) (cdr bounds)
(lambda (str)
- (nrepl-send-string "(require 'complete.core)"
+ (nrepl-send-string "(clojure.core/require 'complete.core)"
"user" 'identity)
(let ((strlst (plist-get
@@ -374,7 +375,9 @@ joined together.")
(let* ((thing (nrepl-operator-before-point))
(form (format "(try
- (meta (resolve (read-string \"%s\"))))
+ (clojure.core/meta
+ (clojure.core/resolve
+ (clojure.core/read-string \"%s\"))))
(catch Throwable t nil))" thing)))
(when thing
(nrepl-send-string form nrepl-buffer-ns
@@ -495,7 +498,7 @@ joined together.")
(cdr (assq 'major-mode
(buffer-local-variables buffer))))))
(with-current-buffer buffer
- (nrepl-send-string "(if-let [pst+ (resolve 'clj-stacktrace.repl/pst+)]
+ (nrepl-send-string "(if-let [pst+ (clojure.core/resolve 'clj-stacktrace.repl/pst+)]
(pst+ *e) (clojure.stacktrace/print-stack-trace *e))"
@@ -628,7 +631,7 @@ into the special buffer. Prefix argument forces pretty-printed output."
(let* ((ns nrepl-buffer-ns)
(form (format
(if pprint-p
- "(pprint (%s '%s))"
+ "(clojure.pprint/pprint (%s '%s))"
"(%s '%s)") macroexpand expr))
(macroexpansion-buffer (or buffer (nrepl-initialize-macroexpansion-buffer)))
(handler (if pprint-p

0 comments on commit feb032e

Please sign in to comment.