mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

Add new commands to go to headings/sections in the NEWS file

Browse source 
* lisp/textmodes/emacs-news-mode.el (emacs-news-find-heading)
(emacs-news-goto-section): New commands.
This commit is contained in:
Lars Ingebrigtsen 2022-04-16 19:14:34 +02:00
parent 0b9631836a
commit 4916c827ec
1 changed files with 52 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

65
lisp/textmodes/emacs-news-mode.el
View file

@ -42,6 +42,8 @@
(defvar-keymap emacs-news-mode-map
"C-c C-s" #'emacs-news-next-untagged-entry
"C-c C-r" #'emacs-news-previous-untagged-entry
"C-c C-g" #'emacs-news-goto-section
"C-c C-f" #'emacs-news-find-heading
"C-c C-n" #'emacs-news-count-untagged-entries)
(defvar emacs-news-mode-font-lock-keywords
@ -99,19 +101,15 @@ untagged NEWS entry."
(funcall (if reverse #'re-search-backward
#'re-search-forward)
"^\\(\\*+\\) " nil t))
(unless (save-excursion
(forward-line -1)
(looking-at "---$\\|\\+\\+\\+$"))
;; We have an entry without a tag before it, but check whether
;; it's a heading (which we can determine if the next entry has
;; more asterisks).
(let ((level (length (match-string 1))))
(when (save-excursion
(goto-char (match-end 0))
(re-search-forward "^\\(\\*+\\) " nil t))
(when (<= (length (match-string 1)) level)
;; It wasn't a sub-heading, so we've found one.
(setq found t))))))
(when (and (not (save-excursion
(forward-line -1)
(looking-at "---$\\|\\+\\+\\+$")))
;; We have an entry without a tag before it, but
;; check whether it's a heading (which we can
;; determine if the next entry has more asterisks).
(not (emacs-news--heading-p)))
;; It wasn't a sub-heading, so we've found one.
(setq found t)))
(if found
(progn
(push-mark start)
@ -122,6 +120,15 @@ untagged NEWS entry."
(goto-char start)
nil)))
(defun emacs-news--heading-p ()
(save-excursion
(beginning-of-line)
(and (looking-at "\\(\\*+\\) ")
(let ((level (length (match-string 1))))
(goto-char (match-end 0))
(when (re-search-forward "^\\(\\*+\\) " nil t)
(> (length (match-string 1)) level))))))
(defun emacs-news-previous-untagged-entry ()
"Go to the previous untagged NEWS entry."
(interactive nil emacs-news-mode)
@ -166,6 +173,38 @@ untagged NEWS entry."
(lambda (node) (info node))
(match-string 1)))))))
(defun emacs-news--sections (regexp)
(let ((sections nil))
(save-excursion
(goto-char (point-min))
(while (re-search-forward (concat "^" regexp "\\(.*\\)") nil t)
(when (save-match-data (emacs-news--heading-p))
(push (buffer-substring-no-properties
(match-beginning 1) (match-end 1))
sections))))
(nreverse sections)))
(defun emacs-news-goto-section (section)
"Go to SECTION in the Emacs NEWS file."
(interactive (list
(completing-read "Goto section: " (emacs-news--sections "\\* ")
nil t))
emacs-news-mode)
(goto-char (point-min))
(when (search-forward (concat "\n* " section) nil t)
(beginning-of-line)))
(defun emacs-news-find-heading (heading)
"Go to HEADING in the Emacs NEWS file."
(interactive (list
(completing-read "Goto heading: "
(emacs-news--sections "\\*\\*\\*? ")
nil t))
emacs-news-mode)
(goto-char (point-min))
(when (re-search-forward (concat "^*+ " (regexp-quote heading)) nil t)
(beginning-of-line)))
(provide 'emacs-news-mode)
;;; emacs-news-mode.el ends here