yogsototh/org-keynote
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

keymap update

Browse source
This commit is contained in:
Yann Esposito (Yogsototh) 2021-04-16 14:19:43 +02:00
parent 1071167602
commit f64951bb79
Signed by untrusted user who does not match committer: yogsototh
GPG key ID: 7B19A4C650D59646
1 changed files with 11 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
org-keynote.el
View file

@ -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))