From f64951bb797fc73d0e96fc6354ffd81b2669edd6 Mon Sep 17 00:00:00 2001
From: "Yann Esposito (Yogsototh)" <yann.esposito@gmail.com>
Date: Fri, 16 Apr 2021 14:19:43 +0200
Subject: [PATCH] keymap update

---
 org-keynote.el | 19 +++++++++++--------
 1 file changed, 11 insertions(+), 8 deletions(-)

diff --git a/org-keynote.el b/org-keynote.el
index 355d2fd..2831f9d 100644
--- a/org-keynote.el
+++ b/org-keynote.el
@@ -33,23 +33,26 @@
 
 (require 'org)
 
-(defvar org-keynote-mode-keymap (make-keymap) "The keymap for org-keynote-mode.")
+(defvar org-keynote-mode-map
+  (let ((mk (make-sparse-keymap)))
+    (define-key mk [right]         'org-keynote-next)
+    (define-key mk [left]          'org-keynote-prev)
+    (define-key mk (kbd "C-c C-q") 'org-keynote-quit)
+    mk)
+  "The keymap for `org-tree-slide'.")
 
-;; left and right page keys
-(define-key org-keynote-mode-keymap [right]         'org-keynote-next)
-(define-key org-keynote-mode-keymap [left]          'org-keynote-prev)
-(define-key org-keynote-mode-keymap (kbd "C-c C-q") 'org-keynote-quit)
 
 (define-minor-mode org-keynote-mode
   "Minimalist presentation minor mode for org-mode."
   :init-value nil
   :lighter " OK"
-  :keymap org-keynote-mode-keymap)
+  :require 'org
+  :keymap org-keynote-mode-map)
 
 (make-variable-buffer-local 'org-keynote-mode)
 
 (defun org-keynote-next ()
-  "Show next subtree."
+  "Jump to next subtree."
   (interactive)
   (when (buffer-narrowed-p)
     (goto-char (point-min))
@@ -58,7 +61,7 @@
     (org-narrow-to-subtree))
 
 (defun org-keynote-prev ()
-  "Show previous subtree."
+  "Jump to previous subtree."
   (interactive)
   (when (buffer-narrowed-p)
     (goto-char (point-min))