[nongnu] elpa/org-tree-slide 06e1a2855a 061/144: Added some features (issue #2, #5, and #7)

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 06e1a2855a7ff870b10624354b9407a0ff649499
Author: Takaaki ISHIKAWA <takaxp@ieee.org>
Commit: Takaaki ISHIKAWA <takaxp@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  <takax@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  <takax@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:       takaxp@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