Skip to content

Commit cccddea

Browse files
yuhan0bbatsov
authored andcommitted
Add menus and keybindings for toggle-ignore cmds
1 parent 5d14284 commit cccddea

File tree

1 file changed

+6
-0
lines changed

1 file changed

+6
-0
lines changed

clojure-mode.el

+6
Original file line numberDiff line numberDiff line change
@@ -246,6 +246,10 @@ Out-of-the box `clojure-mode' understands lein, boot, gradle,
246246
(define-key map (kbd "s b") #'clojure-let-backward-slurp-sexp)
247247
(define-key map (kbd "C-a") #'clojure-add-arity)
248248
(define-key map (kbd "a") #'clojure-add-arity)
249+
(define-key map (kbd "-") #'clojure-toggle-ignore)
250+
(define-key map (kbd "C--") #'clojure-toggle-ignore)
251+
(define-key map (kbd "_") #'clojure-toggle-ignore-surrounding-form)
252+
(define-key map (kbd "C-_") #'clojure-toggle-ignore-surrounding-form)
249253
map)
250254
"Keymap for Clojure refactoring commands.")
251255
(fset 'clojure-refactor-map clojure-refactor-map)
@@ -264,6 +268,8 @@ Out-of-the box `clojure-mode' understands lein, boot, gradle,
264268
["Cycle if, if-not" clojure-cycle-if]
265269
["Cycle when, when-not" clojure-cycle-when]
266270
["Cycle not" clojure-cycle-not]
271+
["Toggle #_ ignore form" clojure-toggle-ignore]
272+
["Toggle #_ ignore of surrounding form" clojure-toggle-ignore-surrounding-form]
267273
["Add function arity" clojure-add-arity]
268274
("ns forms"
269275
["Insert ns form at the top" clojure-insert-ns-form]

0 commit comments

Comments
 (0)