diff --git a/boon-arguments.el b/boon-arguments.el index f5e71ac..5c3b0d8 100644 --- a/boon-arguments.el +++ b/boon-arguments.el @@ -81,6 +81,7 @@ (defun boon-select-list () (interactive) (boon-select-thing-at-point 'list)) (defun boon-select-sexp () (interactive) (boon-select-thing-at-point 'sexp)) (defun boon-select-outside-pairs () (interactive) (boon-select-from-region 'er/mark-outside-pairs)) +(defun boon-select-comment () (interactive) (boon-select-from-region 'er/mark-comment)) (defun boon-select-inside-pairs () (interactive) (boon-select-from-region 'er/mark-inside-pairs)) (defun boon-select-outside-quotes () (interactive) (boon-select-from-region 'er/mark-outside-quotes)) (defun boon-select-whitespace () (interactive) (boon-select-thing-at-point 'whitespace)) diff --git a/boon-colemak.el b/boon-colemak.el index 4b98fcd..4e87a42 100644 --- a/boon-colemak.el +++ b/boon-colemak.el @@ -7,6 +7,7 @@ (require 'boon-search) (require 'boon-keys) +(define-key boon-select-map "c" 'boon-select-comment) (define-key boon-select-map "d" 'boon-select-document) (define-key boon-select-map "p" 'boon-select-paragraph) (define-key boon-select-map "w" 'boon-select-word)