branch: elpa/org-tree-slide
commit 7daa23cc27764f5e9cc05c2adee484e006e9c521
Author: Takaaki ISHIKAWA <tak...@ieee.org>
Commit: Takaaki ISHIKAWA <tak...@ieee.org>
Support TODO pursuit in a slideshow
---
org-tree-slide.el | 45 +++++++++++++++++++++++++++++++++++++++++----
1 file changed, 41 insertions(+), 4 deletions(-)
diff --git a/org-tree-slide.el b/org-tree-slide.el
index e41d29fb77..32af62ce4a 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -28,6 +28,7 @@
;; The latest version of the org-mode at http://orgmode.org/ is recommended.
;;
;;; History:
+;; v2.4.0 (2011-12-08@10:51) # Support TODO pursuit in a slideshow
;; v2.3.2 (2011-12-08@09:22) # Reduce redundant processing
;; v2.3.1 (2011-12-07@20:30) # Add a new profile to control narrowing status
;; v2.3.0 (2011-12-07@16:17) # Support displaying a slide number
@@ -59,7 +60,7 @@
(require 'org)
(require 'org-timer)
-(defconst org-tree-slide "2.3.2"
+(defconst org-tree-slide "2.4.0"
"The version number of the org-tree-slide.el")
(defgroup org-tree-slide nil
@@ -124,6 +125,11 @@
:type 'boolean
:group 'org-tree-slide)
+(defcustom org-tree-slide-skip-done t
+ "Specify to show TODO item only or not."
+ :type'boolean
+ :group 'org-tree-slide)
+
(defface org-tree-slide-heading-level-2-init
'((t (:inherit outline-2)))
"Level 2."
@@ -156,7 +162,29 @@
(defvar org-tree-slide-mode-hook nil)
(defvar display-tree-slide-string nil)
(define-minor-mode org-tree-slide-mode
- "A presentation tool for org-mode."
+ "A presentation tool for org-mode.
+
+Usage:
+ - Install this elisp into your load-path.
+ - Set minimal recommendation settings in .emacs
+ (global-set-key (kbd \"<f8>\") 'org-tree-slide-mode)
+ (global-set-key (kbd \"S-<f8>\") 'org-tree-slide-skip-done-toggle)
+ - Open an org file
+ - Type <f8> to start org-tree-slide-mode
+ - Type <left>/<right> to move between trees
+ - To exit this minor mode, just type <f8> again
+
+Profiles:
+ - Simple
+ M-x org-tree-slide-simple-profile
+
+ - Presentation
+ M-x org-tree-slide-presentation-profile
+
+ - TODO Pursuit
+ M-x org-tree-slide-narrowing-control-profile
+ M-x org-tree-slide-skip-done-toggle
+"
:lighter (:eval (ots-update-modeline))
:keymap org-tree-slide-mode-map
:group 'org-tree-slide
@@ -240,6 +268,13 @@
(setq org-tree-slide-heading-emphasis (not org-tree-slide-heading-emphasis))
(ots-apply-custom-heading-face org-tree-slide-heading-emphasis))
+(defun org-tree-slide-skip-done-toggle ()
+ "Toggle show TODO item only or not"
+ (interactive)
+ (setq org-tree-slide-skip-done (not org-tree-slide-skip-done))
+ (if org-tree-slide-skip-done
+ (message "TODO Pursuit: ON") (message "TODO Pursuit: OFF")))
+
(defun org-tree-slide-move-next-tree ()
"Display the next slide"
(interactive)
@@ -353,10 +388,8 @@
(ots-outline-previous-heading))
((and (equal action 'last) (equal direction 'next))
(ots-outline-previous-heading)) ; Return back.
- ;; (message "End of slide."))
((and (equal action 'first) (equal direction 'previous))
(ots-move-to-the-first-heading)) ; Stay the first heading
- ;; (ots-outline-previous-heading))
(t nil)))
(defun ots-outline-skip-p (has-target-outline current-level)
@@ -366,6 +399,10 @@
'first)
((and (> org-tree-slide-skip-outline-level 0)
(<= org-tree-slide-skip-outline-level current-level)) 'skip)
+ ((and org-tree-slide-skip-done
+ (not
+ (looking-at
+ (concat org-outline-regexp-bol org-not-done-regexp))) 'skip))
(t nil)))
(defun ots-slide-in (brank-lines)
