keymap update
This commit is contained in:
parent
1071167602
commit
f64951bb79
1 changed files with 11 additions and 8 deletions
|
@ -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))
|
||||
|
|
Loading…
Reference in a new issue