wrap-form just manipulates the current sexp

frenchy64 · frenchy64 · commit e0f7509d808b · 2014-02-12T23:28:16.000+08:00
diff --git a/typed-clojure.el b/typed-clojure.el
@@ -150,17 +150,16 @@
 
 (defun typed-clojure-wrap-form ()
   (interactive)
-  (beginning-of-defun)
-  (paredit-wrap-round)
-  (beginning-of-defun)
-  (forward-char)
-  (insert (format "%sann-form " (lowest-ns 'ann-form)))
-  (beginning-of-defun)
-  (paredit-forward)
-  (backward-char)
-  (insert " []")
-  (backward-char)
-  (paredit-reindent-defun))
+  (lexical-let ((t (read-string "Annotate with type: ")))
+    (paredit-wrap-round)
+    (insert (format "%sann-form " (lowest-ns 'ann-form)))
+    (forward-sexp)
+    (insert (concat "\n" t))
+    (backward-up-list)
+    (paredit-reindent-defun)
+    (forward-char)
+    (forward-sexp)
+    (forward-char)))
 
 (provide 'typed-clojure)
 
