branch: elpa/org-tree-slide
commit 06e1a2855a7ff870b10624354b9407a0ff649499
Author: Takaaki ISHIKAWA <tak...@ieee.org>
Commit: Takaaki ISHIKAWA <tak...@ieee.org>
Added some features (issue #2, #5, and #7)
---
ChangeLog | 8 ++++++++
README.org | 3 ++-
org-tree-slide.el | 32 ++++++++++++++++++++++++++------
3 files changed, 36 insertions(+), 7 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index a614c237e6..902d3a94a1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2013-02-12 Takaaki ISHIKAWA <ta...@ieee.org>
+
+ * org-tree-slide.el: Issues #2, #5, #7
+ - Added org-tree-slide-skip-comments to skip a tree with COMMENT (#5)
+ - Remove brackets from title (#7)
+ - Added org-tree-slide-activate-message and
+ org-tree-slide-deactivate-message to specify messages in mini-buffer
(#2)
+
2013-01-27 Takaaki ISHIKAWA <ta...@ieee.org>
* org-tree-slide.el: Added hooks for start and stop presentation
diff --git a/README.org b/README.org
index d74c27cca3..a1704844d9 100644
--- a/README.org
+++ b/README.org
@@ -2,7 +2,7 @@
#+AUTHOR: Takaaki Ishikawa
#+EMAIL: tak...@ieee.org
#+STARTUP: content
-#+Last Update: 2013-01-27@22:39
+#+Last Update: 2013-02-12@01:44
* 1. What's this?
@@ -214,6 +214,7 @@ see also ChangeLog
|---------+------------------+-------------------------------------------------|
| Version | Date | Description
|
|---------+------------------+-------------------------------------------------|
+| v2.6.4 | 2013-02-12@01:43 | Added some features (issue #2, #5, and #7)
|
| v2.6.2 | 2013-01-27@21:21 | Added hooks for start and stop the presentation
|
| v2.6.0 | 2012-11-21@02:14 | Support dark color theme (by @uk-ar)
|
| v2.5.4 | 2012-01-11@23:02 | Add autoload magic comments
|
diff --git a/org-tree-slide.el b/org-tree-slide.el
index fee7d20026..41c27578c1 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -67,7 +67,7 @@
(require 'org-timer)
(require 'org-clock) ; org-clock-in, -out, -clocking-p
-(defconst org-tree-slide "2.6.3"
+(defconst org-tree-slide "2.6.4"
"The version number of the org-tree-slide.el")
(defgroup org-tree-slide nil
@@ -124,6 +124,23 @@
:type 'boolean
:group 'org-tree-slide)
+(defcustom org-tree-slide-skip-comments t
+ "Specify to skip COMMENT item or not."
+ :type 'boolean
+ :group 'org-tree-slide)
+
+(defcustom org-tree-slide-activate-message
+ "Hello! This is org-tree-slide :-)"
+ "Message in mini buffer when org-tree-slide is activated."
+ :type 'string
+ :group 'org-tree-slide)
+
+(defcustom org-tree-slide-deactivate-message
+ "Quit, Bye!"
+ "Message in mini buffer when org-tree-slide is deactivated."
+ :type 'string
+ :group 'org-tree-slide)
+
(defcustom org-tree-slide-modeline-display 'outside
"Specify how to display the slide number in mode line.
'outside: shown in the mode line outside of lighter
@@ -416,7 +433,8 @@ Profiles:
(when (or org-tree-slide-cursor-init (ots-before-first-heading-p))
(ots-move-to-the-first-heading))
(ots-display-tree-with-narrow)
- (message "Hello! This is org-tree-slide :-)"))
+ (when org-tree-slide-activate-message
+ (message "%s" org-tree-slide-activate-message)))
(defun ots-stop ()
"Stop the slide view, and redraw the org-mode buffer with #+STARTUP:."
@@ -441,7 +459,8 @@ Profiles:
;; (org-clock-out)
))
(run-hooks 'org-tree-slide-mode-stop-hook)
- (message "Quit, Bye!"))
+ (when org-tree-slide-deactivate-message
+ (message "%s" org-tree-slide-deactivate-message)))
(defun ots-display-tree-with-narrow ()
"Show a tree with narrowing and also set a header at the head of slide."
@@ -497,6 +516,8 @@ Profiles:
(looking-at
;; 6.33x does NOT suport org-outline-regexp-bol
(concat "^\\*+ " org-not-done-regexp))) 'skip))
+ ((and org-tree-slide-skip-comments
+ (looking-at (concat "^\\*+ " org-comment-string))) 'skip)
(t nil)))
(defun ots-slide-in (brank-lines)
@@ -597,13 +618,12 @@ Profiles:
(cond (status
(custom-set-faces
'(org-level-2 ((t (:inherit org-tree-slide-heading-level-2))))
- '(org-level-3 ((t (:inherit org-tree-slide-heading-level-3)))))
- (message "Face: ON"))
+ '(org-level-3 ((t (:inherit org-tree-slide-heading-level-3))))))
(t
(custom-set-faces
'(org-level-2 ((t (:inherit org-tree-slide-heading-level-2-init))))
'(org-level-3 ((t (:inherit org-tree-slide-heading-level-3-init)))))
- (message "Face: OFF"))))
+ )))
(defun ots-count-slide (target-point)
(save-excursion
