File tree Expand file tree Collapse file tree 1 file changed +8
-8
lines changed Expand file tree Collapse file tree 1 file changed +8
-8
lines changed Original file line number Diff line number Diff line change 186
186
(defun typed-clojure-ann-form ()
187
187
(interactive )
188
188
(lexical-let ((t (read-string " Annotate form with type (default Any): " )))
189
+ (ignore-errors
190
+ (forward-sexp )
191
+ (backward-sexp ))
189
192
(save-excursion
190
193
(insert (format " (%s ann-form " (typed-clojure-lowest-ns 'ann-form )))
191
194
(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 ))
194
197
(save-excursion
195
198
(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
+ )))
202
202
203
203
(provide 'typed-clojure-mode )
204
204
You can’t perform that action at this time.
0 commit comments