mirror of
https://github.com/jimeh/.emacs.d.git
synced 2026-02-19 13:46:41 +00:00
29 lines
902 B
EmacsLisp
29 lines
902 B
EmacsLisp
;;; siren-toggle-comments.el --- jimeh's Emacs Siren: toggle-comments -*- lexical-binding: nil; -*-
|
|
|
|
;;; Commentary:
|
|
|
|
;; Allows to toggle comments for current line or selected region.
|
|
|
|
;;; Code:
|
|
|
|
(use-package newcomment
|
|
:ensure nil
|
|
|
|
:general
|
|
("s-/" 'comment-or-uncomment-region-or-line)
|
|
("C-c /" 'comment-or-uncomment-region-or-line)
|
|
("C-c C-/" 'comment-or-uncomment-region-or-line)
|
|
("C-c C-_" 'comment-or-uncomment-region-or-line)
|
|
|
|
:preface
|
|
(defun comment-or-uncomment-region-or-line (&optional beg end arg)
|
|
"Comments or uncomments the region or current line."
|
|
(interactive "P")
|
|
(if (region-active-p)
|
|
(comment-or-uncomment-region (region-beginning) (region-end) arg)
|
|
(comment-or-uncomment-region (line-beginning-position)
|
|
(line-end-position) arg))))
|
|
|
|
(provide 'siren-toggle-comments)
|
|
;;; siren-toggle-comments.el ends here
|