Skip to content

Commit e29f873

Browse files
committed
Stop ann-form from cutting up sexps. Keep ann-form on one line & don't reindent.
Leave cursor at the first paren of ann-form.
1 parent 21eb4df commit e29f873

File tree

1 file changed

+8
-8
lines changed

1 file changed

+8
-8
lines changed

typed-clojure-mode.el

Lines changed: 8 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -186,19 +186,19 @@
186186
(defun typed-clojure-ann-form ()
187187
(interactive)
188188
(lexical-let ((t (read-string "Annotate form with type (default Any): ")))
189+
(ignore-errors
190+
(forward-sexp)
191+
(backward-sexp))
189192
(save-excursion
190193
(insert (format "(%sann-form " (typed-clojure-lowest-ns 'ann-form)))
191194
(forward-sexp)
192-
(insert (format "%s)" (concat "\n" (if (= 0 (length t)) "Any" t))))
193-
(backward-up-list) )
195+
(insert (format "%s)" (concat " " (if (= 0 (length t)) "Any" t))))
196+
(backward-up-list))
194197
(save-excursion
195198
(mark-defun)
196-
(indent-region (region-beginning)
197-
(region-end)))
198-
; navigate to type
199-
(forward-sexp)
200-
(backward-char)
201-
(backward-sexp)))
199+
;; (indent-region (region-beginning)
200+
;; (region-end))
201+
)))
202202

203203
(provide 'typed-clojure-mode)
204204

0 commit comments

Comments
 (0)