[nongnu] elpa/org-present fca3bcdd2c 20/47: add functions to jump to beginning and end of presentation

[ELPA Syncer]

branch: elpa/org-present
commit fca3bcdd2c8c2a498f6efeec11fee91279d4e839
Author: Richard Lister <ric@burton-2.home>
Commit: Richard Lister <ric@burton-2.home>

    add functions to jump to beginning and end of presentation
---
 org-present.el | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/org-present.el b/org-present.el
index 9398ffb34f..0b9217f5bd 100644
--- a/org-present.el
+++ b/org-present.el
@@ -65,6 +65,8 @@
 (define-key org-present-mode-keymap (kbd "C-c C-q") 'org-present-quit)
 (define-key org-present-mode-keymap (kbd "C-c C-r") 'org-present-read-only)
 (define-key org-present-mode-keymap (kbd "C-c C-w") 'org-present-read-write)
+(define-key org-present-mode-keymap (kbd "C-c <")   'org-present-beginning)
+(define-key org-present-mode-keymap (kbd "C-c >")   'org-present-end)
 
 ;; how much to scale up font size
 (defvar org-present-text-scale 5)
@@ -122,6 +124,21 @@
     (narrow-to-region (point-min) (point))
     (goto-char (point-min))))
 
+(defun org-present-beginning ()
+  "Jump to first slide of presentation."
+  (interactive)
+  (widen)
+  (beginning-of-buffer)
+  (org-present-narrow))
+
+(defun org-present-end ()
+  "Jump to last slide of presentation."
+  (interactive)
+  (widen)
+  (end-of-buffer)
+  (org-present-top)
+  (org-present-narrow))
+
 (defun org-present-big ()
   "Make font size larger."
   (interactive)