Browse Source

Added org-tree-slides transient mapping for easier navigation

pull/2/head
WolfeCub 5 years ago
parent
commit
821f51e383
  1. 31
      emacs/.emacs.d/README.org

31
emacs/.emacs.d/README.org

@ -796,6 +796,24 @@ and all the buffers. @@ -796,6 +796,24 @@ and all the buffers.
(delete-window))
#+END_SRC
** Org Tree Slides Set Transient Map
This function once called will keep a transient map active until =wolfe--enable-transient-map=
is set to nil at which point it will unbind the variable. This is used with [[Org Tree Slide][=org-tree-slide-mode=]]
to add custom bindings regardless of the mode.
#+BEGIN_SRC emacs-lisp :tangle yes
(defun wolfe/org-tree-set-transient-map ()
(interactive)
(if wolfe--enable-transient-map
(let ((map (make-sparse-keymap)))
(define-key map (kbd "<right>") 'org-tree-slide-move-next-tree)
(define-key map (kbd "<left>") 'org-tree-slide-move-previous-tree)
(define-key map (kbd "<up>") 'org-tree-slide-content)
(set-transient-map map nil 'wolfe/org-tree-set-transient-map))
(makeunbound wolfe--enable-transient-map)))
#+END_SRC
* Org Mode
** General
@ -893,8 +911,19 @@ minted package for PDF export. @@ -893,8 +911,19 @@ minted package for PDF export.
** Org Tree Slide
Presentation mode that runs from within an org document. I add a custom hook for [[Org Tree Slides Set Transient Map][a function]] that
repeatedly creates a transient map replacing the controls regardless of my evil mode.
#+BEGIN_SRC emacs-lisp :tangle yes
(use-package org-tree-slide)
(use-package org-tree-slide
:config
(add-hook 'org-tree-slide-mode-hook
(lambda ()
(if org-tree-slide-mode
(progn
(setq wolfe--enable-transient-map t)
(wolfe/org-tree-set-transient-map))
(setq wolfe--enable-transient-map nil)))))
#+END_SRC
* Keymaps

Loading…
Cancel
Save