File tree Expand file tree Collapse file tree 1 file changed +10
-8
lines changed Expand file tree Collapse file tree 1 file changed +10
-8
lines changed Original file line number Diff line number Diff line change 5
5
; ; Author: John Walker <[email protected] >, Ambrose Bonnaire-Sergeant <[email protected] >
6
6
; ; URL: https://github.com/typedclojure/typed-clojure-mode
7
7
; ; Version: 1.0
8
- ; ; Package-Requires: ((paredit "22") ( clojure-mode "2.1.1") (cider "0.5.0"))
8
+ ; ; Package-Requires: ((clojure-mode "2.1.1") (cider "0.5.0"))
9
9
10
10
; ; This program is free software: you can redistribute it and/or modify
11
11
; ; it under the terms of the GNU General Public License as published by
31
31
(require 'button )
32
32
(require 'cider )
33
33
(require 'clojure-mode )
34
- (require 'paredit )
35
34
36
35
(defvar typed-clojure-mode-map
37
36
(let ((map (make-sparse-keymap )))
187
186
(defun typed-clojure-ann-form ()
188
187
(interactive )
189
188
(lexical-let ((t (read-string " Annotate form with type (default Any): " )))
190
- (paredit-wrap-round)
191
- (insert (format " %s ann-form " (typed-clojure-lowest-ns 'ann-form )))
192
- (forward-sexp )
193
- (insert (concat " \n " (if (= 0 (length t )) " Any" t )))
194
- (backward-up-list )
195
- (paredit-reindent-defun)
189
+ (save-excursion
190
+ (insert (format " (%s ann-form " (typed-clojure-lowest-ns 'ann-form )))
191
+ (forward-sexp )
192
+ (insert (format " %s )" (concat " \n " (if (= 0 (length t )) " Any" t ))))
193
+ (backward-up-list ) )
194
+ (save-excursion
195
+ (mark-defun )
196
+ (indent-region (region-beginning )
197
+ (region-end )))
196
198
; navigate to type
197
199
(forward-sexp )
198
200
(backward-char )
You can’t perform that action at this time.
0 commit comments