branch: elpa/org-present
commit 4ec04e1b77dea76d7c30066ccf3200d2e0b7bee9
Merge: dfcb71c199 98b7d94a0f
Author: Ric Lister <rlis...@gmail.com>
Commit: GitHub <nore...@github.com>
Merge pull request #36 from rhdxmr/master
Add org-presentation-toggle-one-big-page
---
README.md | 5 +++--
org-present.el | 16 ++++++++++++++--
2 files changed, 17 insertions(+), 4 deletions(-)
diff --git a/README.md b/README.md
index 3090d78f9c..e911cb7b10 100644
--- a/README.md
+++ b/README.md
@@ -54,8 +54,9 @@ Keys are:
- C-c C-- for small text
- C-c C-q for quit (which will return you back to vanilla org-mode)
- C-c < and C-c > to jump to first/last slide
-- C-c C-r set slides read only
-- C-c C-w allow writing on slides
+- C-c C-r for buffer read-only
+- C-c C-w for buffer read/write
+- C-c C-1 for one big page showing all slides
## Beautification
diff --git a/org-present.el b/org-present.el
index c0f69b7810..ae42bcbd37 100644
--- a/org-present.el
+++ b/org-present.el
@@ -66,12 +66,14 @@
(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)
+(define-key org-present-mode-keymap (kbd "C-c C-1")
'org-present-toggle-one-big-page)
;; how much to scale up font size
(defvar org-present-text-scale 5)
(defvar org-present-cursor-cache (or cursor-type nil)
"Holds the user set value of cursor for `org-present-read-only'")
(defvar org-present-overlays-list nil)
+(defvar org-present-one-big-page nil)
(define-minor-mode org-present-mode
"Minimalist presentation minor mode for org-mode."
@@ -218,7 +220,7 @@ makes tabs work in presentation mode as in the rest of Org
mode.")
(define-key org-present-mode-keymap (kbd "SPC") #'org-present-next))
(defun org-present-read-write ()
- "Make buffer read-only."
+ "Make buffer read/write."
(interactive)
(setq buffer-read-only nil)
(define-key org-present-mode-keymap (kbd "SPC") 'self-insert-command))
@@ -240,7 +242,7 @@ makes tabs work in presentation mode as in the rest of Org
mode.")
;;;###autoload
(defun org-present ()
- "init."
+ "Start org presentation."
(interactive)
(setq org-present-mode t)
(org-present-add-overlays)
@@ -248,6 +250,16 @@ makes tabs work in presentation mode as in the rest of Org
mode.")
(org-present-narrow)
(org-present-run-after-navigate-functions))
+(defun org-present-toggle-one-big-page ()
+ "Toggle showing all pages in a buffer."
+ (interactive)
+ (if org-present-one-big-page
+ (progn
+ (org-present-narrow)
+ (setq-local org-present-one-big-page nil))
+ (widen)
+ (setq-local org-present-one-big-page t)))
+
(defun org-present-quit ()
"Quit the minor-mode."
(interactive)
