From fd1e4a9e61445706d700ee67dd92a8b77911526e Mon Sep 17 00:00:00 2001 From: Yoni Rabkin Date: Mon, 14 Dec 2020 15:04:38 -0500 Subject: * rt-liberation.el: add jump to last section --- rt-liberation.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/rt-liberation.el b/rt-liberation.el index d708f43..1117889 100644 --- a/rt-liberation.el +++ b/rt-liberation.el @@ -1535,6 +1535,17 @@ ASSOC-BROWSER if non-nil should be a ticket browser." (recenter rt-liber-viewer2-recenter))) (goto-char (point-at-bol)))) +(defun rt-liber-viewer2-last-section-in () + (interactive) + (goto-char (point-max)) + (let ((last (re-search-backward rt-liber-viewer2-section-regexp + (point-min) + t))) + (if (not last) + (error "no sections found") + (recenter rt-liber-viewer2-recenter) + (goto-char (point-at-bol))))) + (defun rt-liber-viewer2-previous-section-in () (interactive) (when (looking-at rt-liber-viewer2-section-regexp) @@ -1575,6 +1586,7 @@ ASSOC-BROWSER if non-nil should be a ticket browser." (defconst rt-liber-viewer2-mode-map (let ((map (make-sparse-keymap))) (define-key map (kbd "q") 'rt-liber-viewer2-mode-quit) + (define-key map (kbd "N") 'rt-liber-viewer2-last-section-in) (define-key map (kbd "n") 'rt-liber-viewer2-next-section-in) (define-key map (kbd "p") 'rt-liber-viewer2-previous-section-in) (define-key map (kbd "V") 'rt-liber-viewer-visit-in-browser) -- cgit v1.2.3