From 3c3588be82cb47ab56ca27dfd02184bbc086f2d1 Mon Sep 17 00:00:00 2001
From: Junyeong Jeong <rhdxmr@gmail.com>
Date: Sat, 16 Jan 2021 02:47:57 +0900
Subject: [PATCH 1/2] Add and fix description of key bindings

---
 README.md      | 2 ++
 org-present.el | 4 ++--
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/README.md b/README.md
index 22bb68d..adf9d3e 100644
--- a/README.md
+++ b/README.md
@@ -53,6 +53,8 @@ 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 for buffer read-only
+- C-c C-w for buffer read/write
 
 ## Beautification
 
diff --git a/org-present.el b/org-present.el
index 74d1260..367a745 100644
--- a/org-present.el
+++ b/org-present.el
@@ -211,7 +211,7 @@
   (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)
   (setq cursor-type org-present-cursor-cache)
@@ -229,7 +229,7 @@
 
 ;;;###autoload
 (defun org-present ()
-  "init."
+  "Start org presentation."
   (interactive)
   (setq org-present-mode t)
   (org-present-add-overlays)

From 60d063f20afcca087bbbd67999e61827ebb2eac7 Mon Sep 17 00:00:00 2001
From: Junyeong Jeong <rhdxmr@gmail.com>
Date: Sat, 16 Jan 2021 02:48:28 +0900
Subject: [PATCH 2/2] Add org-present-toggle-one-big-page

This function shows all slides in a buffer. It may be useful
when users want to capture all presentation material by calling
`htmlize-buffer`.
---
 README.md      |  1 +
 org-present.el | 12 ++++++++++++
 2 files changed, 13 insertions(+)

diff --git a/README.md b/README.md
index adf9d3e..d9fd800 100644
--- a/README.md
+++ b/README.md
@@ -55,6 +55,7 @@ Keys are:
 - C-c < and C-c > to jump to first/last slide
 - 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 367a745..7a9b283 100644
--- a/org-present.el
+++ b/org-present.el
@@ -67,12 +67,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."
@@ -237,6 +239,16 @@
   (run-hooks 'org-present-mode-hook)
   (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)