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)
|
(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
|
(define-minor-mode org-keynote-mode
|
||||||
"Minimalist presentation minor mode for org-mode."
|
"Minimalist presentation minor mode for org-mode."
|
||||||
:init-value nil
|
:init-value nil
|
||||||
:lighter " OK"
|
:lighter " OK"
|
||||||
:keymap org-keynote-mode-keymap)
|
:require 'org
|
||||||
|
:keymap org-keynote-mode-map)
|
||||||
|
|
||||||
(make-variable-buffer-local 'org-keynote-mode)
|
(make-variable-buffer-local 'org-keynote-mode)
|
||||||
|
|
||||||
(defun org-keynote-next ()
|
(defun org-keynote-next ()
|
||||||
"Show next subtree."
|
"Jump to next subtree."
|
||||||
(interactive)
|
(interactive)
|
||||||
(when (buffer-narrowed-p)
|
(when (buffer-narrowed-p)
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
|
@ -58,7 +61,7 @@
|
||||||
(org-narrow-to-subtree))
|
(org-narrow-to-subtree))
|
||||||
|
|
||||||
(defun org-keynote-prev ()
|
(defun org-keynote-prev ()
|
||||||
"Show previous subtree."
|
"Jump to previous subtree."
|
||||||
(interactive)
|
(interactive)
|
||||||
(when (buffer-narrowed-p)
|
(when (buffer-narrowed-p)
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
|
|
Loading…
Reference in a new issue