jplindstrom · September 6, 2016 16:03
diff --git a/org-simple-slides.el b/org-simple-slides.el

 ;;
 ;; Super simple org-mode slides
 ;;
 ;; Narrow the display to a subtree and navigate between them. Super
 ;; simple stuff.
 ;;
 ;;
 ;;; Usage:
 ;;
 ;; Go to an org file
 ;;
 ;; Probably enlarge things with "C-x C-+" a couple of times ("C-x C-0"
 ;; to reset)
 ;;
 ;; Ensure all levels are the way you want them to look when they're
 ;; displayed (expanded/contracted) during the presentation
 ;;
 ;; (The Super modifier "s" is typically the Win key on a PC)
 ;;
 ;; (To leave the widened presentation view at any time, press s-q to
 ;; quit)
 ;;
 ;; With point at the top of the presentation, start with s-x to dive
 ;; into the first sub-level
 ;;
 ;; Next slide with s-z
 ;; Previous slide with s-a
 ;;
 ;; If the slide has too many things, use a sub heading and dive into
 ;; it with s-x. Continue there with next slide s-z, and continue onto
 ;; the next higher-level slide with s-z
 ;;
 ;; Manually go back up to the parent: s-s
 ;;
 ;; Toggle between narrowed to the current subtree and widened with s-q
 ;;
 ;; That's it!
 ;;


 (defun oss-forward-subtree ()
  (interactive)
  (widen)
  (org-forward-heading-same-level 1)
  (org-narrow-to-subtree)
  )


 (defun oss-backward-subtree ()
  (interactive)
  (widen)
  (org-backward-heading-same-level 1)
  (org-narrow-to-subtree)
  )


 (defun oss-dive-into-subtree ()
  (interactive)
  (widen)
  (forward-line)
  (org-narrow-to-subtree)
  )

 (defun oss-surface-from-subtree ()
  (interactive)
  (widen)
  (outline-up-heading 1)
  (org-narrow-to-subtree)
  )

 (defun oss-surface-from-subtree-forward ()
  (interactive)
  (widen)
  (outline-up-heading 1)
  (org-forward-heading-same-level 1)
  (org-narrow-to-subtree)
  )

 (defun oss-mode ()
  (interactive)
  (if (buffer-narrowed-p)
      (widen)
    (org-narrow-to-subtree)
    )
  )


 (global-set-key [(super ?z)] 'oss-forward-subtree)
 (global-set-key [(super ?a)] 'oss-backward-subtree)
 (global-set-key [(super ?x)] 'oss-dive-into-subtree)
 (global-set-key [(super ?s)] 'oss-surface-from-subtree)
 (global-set-key [(super ?d)] 'oss-surface-from-subtree-forward)
 (global-set-key [(super ?q)] 'oss-mode)

	;;
	;; Super simple org-mode slides
	;;
	;; Narrow the display to a subtree and navigate between them. Super
	;; simple stuff.
	;;
	;;
	;;; Usage:
	;;
	;; Go to an org file
	;;
	;; Probably enlarge things with "C-x C-+" a couple of times ("C-x C-0"
	;; to reset)
	;;
	;; Ensure all levels are the way you want them to look when they're
	;; displayed (expanded/contracted) during the presentation
	;;
	;; (The Super modifier "s" is typically the Win key on a PC)
	;;
	;; (To leave the widened presentation view at any time, press s-q to
	;; quit)
	;;
	;; With point at the top of the presentation, start with s-x to dive
	;; into the first sub-level
	;;
	;; Next slide with s-z
	;; Previous slide with s-a
	;;
	;; If the slide has too many things, use a sub heading and dive into
	;; it with s-x. Continue there with next slide s-z, and continue onto
	;; the next higher-level slide with s-z
	;;
	;; Manually go back up to the parent: s-s
	;;
	;; Toggle between narrowed to the current subtree and widened with s-q
	;;
	;; That's it!
	;;


	(defun oss-forward-subtree ()
	(interactive)
	(widen)
	(org-forward-heading-same-level 1)
	(org-narrow-to-subtree)
	)


	(defun oss-backward-subtree ()
	(interactive)
	(widen)
	(org-backward-heading-same-level 1)
	(org-narrow-to-subtree)
	)


	(defun oss-dive-into-subtree ()
	(interactive)
	(widen)
	(forward-line)
	(org-narrow-to-subtree)
	)

	(defun oss-surface-from-subtree ()
	(interactive)
	(widen)
	(outline-up-heading 1)
	(org-narrow-to-subtree)
	)

	(defun oss-surface-from-subtree-forward ()
	(interactive)
	(widen)
	(outline-up-heading 1)
	(org-forward-heading-same-level 1)
	(org-narrow-to-subtree)
	)

	(defun oss-mode ()
	(interactive)
	(if (buffer-narrowed-p)
	(widen)
	(org-narrow-to-subtree)
	)
	)


	(global-set-key [(super ?z)] 'oss-forward-subtree)
	(global-set-key [(super ?a)] 'oss-backward-subtree)
	(global-set-key [(super ?x)] 'oss-dive-into-subtree)
	(global-set-key [(super ?s)] 'oss-surface-from-subtree)
	(global-set-key [(super ?d)] 'oss-surface-from-subtree-forward)
	(global-set-key [(super ?q)] 'oss-mode)