Merge pull request #327 from clojure-emacs/pf-and-varargs

[Fix #313] `pf` doesn't understand %&

Author: expez

CHANGELOG.md

@@ -16,6 +16,7 @@
 
 - [#299](https://github.com/clojure-emacs/clj-refactor.el/issues/299) `ml` moves cursor
 - [#309](https://github.com/clojure-emacs/clj-refactor.el/issues/309)  `am` creates alias for fully-qualified symbols.
+- [#313](https://github.com/clojure-emacs/clj-refactor.el/issues/313)  teach `pf` about function literals using `%&`.
 - [#320](https://github.com/clojure-emacs/clj-refactor.el/issues/320) `*data-readers*` ignored when searching for macros.
 
 ## 2.2.0

clj-refactor.el

@@ -2617,10 +2617,12 @@ See: https://github.com/clojure-emacs/clj-refactor.el/wiki/cljr-update-project-d
   (cljr--goto-fn-definition)
   (let ((fn-start (point))
         var replacement)
-    (while (re-search-forward "%[1-9]?" (cljr--point-after 'paredit-forward) t)
+    (while (re-search-forward "%[1-9&]?" (cljr--point-after 'paredit-forward) t)
       (setq var (buffer-substring (point) (cljr--point-after 'paredit-backward)))
       (setq replacement (read-string (format "%s => " var)))
-      (cljr--append-fn-parameter replacement)
+      (cljr--append-fn-parameter (if (string= "%&" var)
+                                     (format "& %s" replacement)
+                                   replacement))
       (goto-char (1+ fn-start))
       (let ((end (cljr--point-after '(paredit-forward-up 2))))
         (while (re-search-forward (format "\\s-%s\\(\\s-\\|\\|\n)\\)" var)