[nongnu] elpa/dracula-theme 725b25a107 1/3: Follow dracula color specs for Markdown and Org mode

[ELPA Syncer]

branch: elpa/dracula-theme
commit 725b25a107cdaee040837e2b743795fd8e4749cf
Author: Étienne Deparis 
Commit: Étienne Deparis 

Follow dracula color specs for Markdown and Org mode

Fixes: https://github.com/dracula/emacs/issues/90
Co-authored-by: saccarosium
---
 dracula-theme.el | 11 ---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/dracula-theme.el b/dracula-theme.el
index 81df910104..d321e5b4ad 100644
--- a/dracula-theme.el
+++ b/dracula-theme.el
@@ -497,7 +497,8 @@ read it before opening a new issue about your will.")
(magit-process-ng :foreground ,dracula-orange :weight bold)
(magit-process-ok :foreground ,dracula-green :weight bold)
;; markdown
-   (markdown-blockquote-face :foreground ,dracula-purple)
+   (markdown-blockquote-face :foreground ,dracula-yellow
+ :slant italic)
(markdown-code-face :foreground ,dracula-orange)
(markdown-footnote-face :foreground ,other-blue)
(markdown-header-face :weight normal)
@@ -518,10 +519,12 @@ read it before opening a new issue about your will.")
(markdown-header-face-6 :foreground ,dracula-orange)
(markdown-header-face-7 :foreground ,other-blue)
(markdown-header-face-8 :foreground ,dracula-fg)
-   (markdown-inline-code-face :foreground ,dracula-yellow)
+   (markdown-inline-code-face :foreground ,dracula-green)
(markdown-plain-url-face :inherit link)
(markdown-pre-face :foreground ,dracula-orange)
(markdown-table-face :foreground ,dracula-purple)
+   (markdown-list-face :foreground ,dracula-cyan)
+   (markdown-language-keyword-face :foreground ,dracula-comment)
;; message
(message-header-to :foreground ,dracula-fg :weight bold)
(message-header-cc :foreground ,dracula-fg :bold bold)
@@ -596,7 +599,7 @@ read it before opening a new issue about your will.")
(org-agenda-done :foreground ,dracula-green)
(org-agenda-structure :foreground ,dracula-purple)
(org-block :foreground ,dracula-orange)
-   (org-code :foreground ,dracula-yellow)
+   (org-code :foreground ,dracula-green)
(org-column :background ,bg4)
(org-column-title :inherit org-column :weight bold :underline t)
(org-date :foreground ,dracula-cyan :underline t)
@@ -628,6 +631,7 @@ read it before opening a new issue about your will.")
(org-level-8 :weight normal :foreground ,dracula-fg)
(org-link :foreground ,dracula-cyan :underline t)
(org-priority :foreground ,dracula-cyan)
+   (org-quote :foreground ,dracula-yellow :slant italic)
(org-scheduled :foreground ,dracula-green)
(org-scheduled-previously :foreground ,dracula-yellow)
(org-scheduled-today :foreground ,dracula-green)
@@ -637,6 +641,7 @@ read it before opening a new issue about your will.")
(org-tag :foreground ,dracula-pink :weight bold :background 
,bg2)
(org-todo :foreground ,dracula-orange :weight bold :background 
,bg2)
(org-upcoming-deadline :foreground ,dracula-yellow)
+   (org-verbatim :inherit org-quote)
(org-warning :weight bold :foreground ,dracula-pink)
;; outline
(outline-1 :foreground ,dracula-pink)

[nongnu] elpa/dracula-theme updated (9571f3cac4 -> a7a3becaf1)

[ELPA Syncer]

elpasync pushed a change to branch elpa/dracula-theme.

  from  9571f3cac4 Support web-mode-css-property-name-face
   new  725b25a107 Follow dracula color specs for Markdown and Org mode
   new  266781a4e4 Support tree-sitter mode and fix font-lock to follow 
upstream spec
   new  a7a3becaf1 Remove test profile from melpa package content


Summary of changes:
 dracula-theme.el   | 49 +++---
 test-profile.el => profile-test.el |  0
 start_emacs_test.sh|  2 +-
 3 files changed, 42 insertions(+), 9 deletions(-)
 rename test-profile.el => profile-test.el (100%)

[elpa] externals/org 0725237eed: org: Small simplification

[ELPA Syncer]

branch: externals/org
commit 0725237eedb451aa767588bd47c487306dda5f16
Author: Marco Wahl 
Commit: Marco Wahl 

org: Small simplification

* lisp/org.el (org-metaup, org-metadown): Remove unnecessary min/max 
computation.
---
 lisp/org.el | 8 
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lisp/org.el b/lisp/org.el
index df8a5e6098..a11a1e3d17 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -17468,10 +17468,10 @@ for more information."
((run-hook-with-args-until-success 'org-metaup-hook))
((org-region-active-p)
 (let* ((a (save-excursion
-   (goto-char (min (region-beginning) (region-end)))
+   (goto-char (region-beginning))
(line-beginning-position)))
   (b (save-excursion
-   (goto-char (max (region-beginning) (region-end)))
+   (goto-char (region-end))
(if (bolp) (1- (point)) (line-end-position
   (c (save-excursion
(goto-char a)
@@ -17501,10 +17501,10 @@ commands for more information."
((run-hook-with-args-until-success 'org-metadown-hook))
((org-region-active-p)
 (let* ((a (save-excursion
-   (goto-char (min (region-beginning) (region-end)))
+   (goto-char (region-beginning))
(line-beginning-position)))
   (b (save-excursion
-   (goto-char (max (region-beginning) (region-end)))
+   (goto-char (region-end))
(if (bolp) (1- (point)) (line-end-position
   (c (save-excursion
(goto-char b)

[nongnu] elpa/org-tree-slide 6dfa0df7f9 002/144: Add start and stop function, display header, and change mode-line

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 6dfa0df7f9231ae9a8b77dc200c333f81e0d2c31
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Add start and stop function, display header, and change mode-line
---
 ChangeLog |  12 
 org-tree-slide.el | 163 +++---
 2 files changed, 142 insertions(+), 33 deletions(-)

diff --git a/ChangeLog b/ChangeLog
new file mode 100644
index 00..50c0f9c006
--- /dev/null
+++ b/ChangeLog
@@ -0,0 +1,12 @@
+2011-10-28  Takaaki ISHIKAWA  
+
+   * org-tree-slide.el (tree-slide-play): Add timer to count down 
presentation
+
+   * org-tree-slide.el: Add play and stop function, and show slide header
+
+   * org-tree-slide.el: Add a function to change mode-line during 
presentation
+
+2011-09-28  Takaaki ISHIKAWA  
+
+   * org-tree-slide.el: Initial release
+
diff --git a/org-tree-slide.el b/org-tree-slide.el
index d7a88a8ac7..5e452be360 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -24,63 +24,114 @@
 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
 ;; Boston, MA 02110-1301, USA.
 ;;; History:
+;;v1.1.1 (2011-10-28@16:16) # Add functions to start and stop slide view
 ;;v1.0.0 (2011-09-28@20:59) # Release an init version
 ;;
 ;;; Usage:
 ;;1. Put this elisp into your load-path
 ;;2. Add (requre 'org-tree-slide) in your .emacs
-;;3. Open an org-mode file, just type /, now you in slide view
+;;3. Open an org-mode file 
+;;4. M-x tree-slide-play, now you in slide view
+;;5. / will move slides, mode line will be changed
+;;6. M-x tree-slide-stop, return to normal view
 ;;
 ;;; Note:
 ;;- Make sure key maps below when you introduce this elisp.
 
-(defconst org-tree-slide "1.0.0"
+(require 'org-timer)
+
+(defconst org-tree-slide "1.1.1"
   "The version number of the org-tree-slide.el")
 
-(define-key org-mode-map (kbd "") 'tree-slide-move-next-tree)
-(define-key org-mode-map (kbd "")  'tree-slide-move-previous-tree)
-(define-key org-mode-map (kbd "C-c s p") 'tree-slide-play)
-(define-key org-mode-map (kbd "C-c s s") 'tree-slide-stop)
+(defcustom tree-slide-title nil
+  "Specify the title of presentation. The title is shown in a header area. If 
this variable is nil, the name of current buffer will be displayed as a slide 
title."
+  :type 'string
+  :group 'org-tree-slide)
+
+;(defcustom tree-slide-header-background-color "#FF"
+;  "Specify the color of header background."
+;  :type 'string
+;  :group 'org-tree-slide)
+
+;(defcustom tree-slide-header-foreground-color "#99"
+;  "Specify the color of header background."
+;  :type 'string
+;  :group 'org-tree-slide)
+
+(define-key org-mode-map (kbd "C-x s p") 'tree-slide-play)
+(define-key org-mode-map (kbd "C-x s s") 'tree-slide-stop)
 ;(define-key org-mode-map (kbd "") 'org-narrow-to-subtree)
 ;(define-key org-mode-map (kbd "") 'widen)
 
-(defun tree-slide-move-next-tree ()
-  "Show the next slide"
-  (interactive)
-  (if (org-before-first-heading-p) (outline-next-heading)
-(hide-subtree)
-(widen)
-(outline-next-heading))
-  (tree-slide-display-tree-with-narrow))
+(defun tree-slide-play (&optional arg)
+  "Start slide view with the first tree of the org-mode buffer. If you all 
this function with a prefix (C-u), you can set a countdown timer to control 
your presentation."
+  (interactive "P")
+  (unless tree-slide-active
+(when arg
+  (org-timer-set-timer))
+(setq tree-slide-active t)
+(apply-control-keybindings)
+(move-to-the-first-heading)
+(tree-slide-display-tree-with-narrow)
+(message "Hello! Org-tree slideshow is starting now.")))
 
-(defun tree-slide-move-previous-tree ()
-  "Show the previous slide"
+(defun tree-slide-stop ()
+  "Stop the slide view, and redraw the org-mode buffer with OVERVIEW."
   (interactive)
-  (unless (org-before-first-heading-p)
-(hide-subtree)
+  (when tree-slide-active
+(setq tree-slide-active nil)
 (widen)
-(outline-previous-heading)
-(tree-slide-display-tree-with-narrow)))
+(org-overview)
+(move-to-the-first-heading)
+(hide-slide-header)
+(remove-control-keybindings)
+(org-timer-pause-or-continue 'stop)
+(message "Quit, Bye!")))
 
-(defun tree-slide-play ()
-  "Start slide view with the first tree of the org-mode buffer"
-  (interactive)
-  (move-to-the-first-heading)
-  (tree-slide-display-tree-with-narrow))
-
-(defun tree-slide-stop ()
-  "Stop slide view, show the org-mode buffer with OVERVIEW"
-  (interactive)
-  (widen)
-  (org-overview)
-  (move-to-the-first-heading))
+(defvar tree-slide-active nil
+  "Flag to check if the mode is ON or OFF.")
+(defvar tree-slide-right-key-assigned nil
+  "Store the previous command assigned to .")
+(defvar tree-slide-left-key-assigned nil
+  "Store the previous command assigned to .")
+(defvar tree-slide-mode-line-format-assigned nil
+  "Store the previous mode-line-format.")
+(defvar tree-slide-footer-overlay nil
+  "Flag to che

[nongnu] elpa/org-tree-slide 52d67fc2a0 003/144: Add slide-in visual effect

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 52d67fc2a0ff390ce06b26df9f01950906ed237e
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Add slide-in visual effect
---
 ChangeLog | 12 
 1 file changed, 12 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 50c0f9c006..4c2485babe 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,8 +1,20 @@
+2011-10-30  Takaaki ISHIKAWA  
+
+   * org-tree-slide.el (tree-slide-slide-in): Add slide-in visual effect
+   If you don't like this effect, use (setq tree-slide-slide-in-effect 
nil).
+   You can also control the distance of moving slide-in trees, use
+   `tree-slide-slide-in-brank-lines'.
+
 2011-10-28  Takaaki ISHIKAWA  
 
* org-tree-slide.el (tree-slide-play): Add timer to count down 
presentation
+   By default, timer will NOT be activated. If you use a count down timer,
+   please use prefix (C-u) when starting up slide view. Which means
+   `C-u C-x sp ' is the right command.
 
* org-tree-slide.el: Add play and stop function, and show slide header
+   To play the slide, type `C-x s p'.
+   To stop the slide, type `C-x s s'.
 
* org-tree-slide.el: Add a function to change mode-line during 
presentation
 

[nongnu] elpa/org-tree-slide bfbd4ddb5d 008/144: Add CONTENT view to see all the subtrees

[ELPA Syncer]

branch: elpa/org-tree-slide
commit bfbd4ddb5da246028567b303d39b894faa7ba056
Merge: 373c80edf8 79aec5bbab
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Add CONTENT view to see all the subtrees

[nongnu] elpa/org-tree-slide 26269ebd8e 016/144: Support TITLE/AUTHOR/EMAIL in a header

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 26269ebd8ebe7ff273f724adc4c578c2e14586f8
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Support TITLE/AUTHOR/EMAIL in a header
---
 ChangeLog |  6 ++
 org-tree-slide.el | 42 +-
 2 files changed, 43 insertions(+), 5 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index e77c1f2ff0..bda480196c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2011-12-06  Takaaki ISHIKAWA  
+
+   * org-tree-slide.el: Support TITLE/AUTHOR/EMAIL in a header
+   If #+TITLE:, #+AUTHOR:, or #+EMAIL: has a description in your org 
buffer,
+   it will be used in the slide header.
+
 2011-12-05  Takaaki ISHIKAWA  
 
* org-tree-slide.el: Fix an issue of title display
diff --git a/org-tree-slide.el b/org-tree-slide.el
index 9ebb22c6db..ef24f65bf7 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.1.7 (2011-12-06@00:26) # Support TITLE/AUTHOR/EMAIL in a header
 ;;v2.1.5 (2011-12-05@17:08) # Fix an issue of title display
 ;;v2.1.3 (2011-12-05@15:08) # Fix the end of slide for skip ccontrol
 ;;v2.1.1 (2011-12-05@11:08) # Add skip control by heading level
@@ -54,7 +55,7 @@
 (require 'org)
 (require 'org-timer)
 
-(defconst org-tree-slide "2.1.5"
+(defconst org-tree-slide "2.1.7"
   "The version number of the org-tree-slide.el")
 
 (defgroup org-tree-slide nil
@@ -76,8 +77,9 @@
 
 (defcustom org-tree-slide-title nil
   "Specify the title of presentation. The title is shown in a header area. 
-   If this variable is nil, the name of current buffer will be displayed
-   as a slide title."
+   If you have `#+TITLE:' line in your org buffer, it wil be used as a title
+   of the slide. If this variable is nil and no `#+TITLE:' line, the name of
+   current buffer will be displayed."
   :type 'string
   :group 'org-tree-slide)
 
@@ -160,6 +162,7 @@
   (interactive "P")
   (if (ots-active-p) (message "org-tree-slide is ACTIVE.")
 (setq ots-active t)
+(ots-apply-local-header-to-slide-header)
 (when arg
   (org-timer-set-timer))
 (when org-tree-slide-heading-emphasis
@@ -176,7 +179,7 @@
 (setq ots-active nil)
 (widen)
 (org-overview)
-(ots-move-to-the-first-heading)
+(goto-char (point-min))
 (ots-hide-slide-header)
 (ots-remove-control-keybindings)
 (org-timer-pause-or-continue 'stop)
@@ -330,6 +333,30 @@
 (ots-hide-slide-header)
 (setq brank-lines (1- brank-lines
 
+(defvar org-tree-slide-email nil
+  "If you have `#+EMAIL:' line in your org buffer, it will be used as
+   an address of the slide.")
+
+(defvar org-tree-slide-author nil
+  "If you have `#+AUTHOR:' line in your org buffer, it will be used as
+   a name of the slide author.")
+
+(defun ots-apply-local-header-to-slide-header ()
+  (save-excursion
+(ots-move-to-the-first-heading)
+(let ((limit (point)))
+  (ots-set-header-variable-by-rexep
+   'org-tree-slide-title "#\\+TITLE:[ \t]*\\(.*\\)$" limit)
+  (ots-set-header-variable-by-rexep
+   'org-tree-slide-author "#\\+AUTHOR:[ \t]*\\(.*\\)$" limit)
+  (ots-set-header-variable-by-rexep
+   'org-tree-slide-email "#\\+EMAIL:[ \t]*\\(.*\\)$" limit
+
+(defun ots-set-header-variable-by-rexep (header-variable regexp limit)
+  (goto-char 1)
+  (set header-variable
+   (if (re-search-forward regexp limit t) (match-string 1) nil)))
+
 (defun ots-set-slide-header (brank-lines)
   (ots-hide-slide-header)
   (setq ots-header-overlay
@@ -344,7 +371,12 @@
   (concat "  [ " 
   (if org-tree-slide-title org-tree-slide-title
 (buffer-name))
-  " ] (" (format-time-string "%Y-%m-%d") ")"
+  " ]\n"
+  (format-time-string "%Y-%m-%d") "  "
+  (when org-tree-slide-author
+(concat org-tree-slide-author "  "))
+  (when org-tree-slide-email
+(concat "<" org-tree-slide-email ">"))
   (ots-get-brank-lines brank-lines)))
 (overlay-put ots-header-overlay 'display
 (ots-get-brank-lines brank-lines

[nongnu] elpa/org-tree-slide 7340f16266 012/144: Fix the end of slide for skip ccontrol

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 7340f162663b5c492576e11e1fb97d930198b580
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Fix the end of slide for skip ccontrol
---
 org-tree-slide.el | 45 -
 1 file changed, 32 insertions(+), 13 deletions(-)

diff --git a/org-tree-slide.el b/org-tree-slide.el
index dcdeada112..7920f34ee7 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.1.3 (2011-12-05@15:08) # Fix the end of slide for skip ccontrol
 ;;v2.1.1 (2011-12-05@11:08) # Add skip control by heading level
 ;;v2.0.1 (2011-12-02@18:29) # Change function names, ots- is introduced.
 ;;v2.0.0 (2011-12-01@17:41) # Add profiles and support org 6.33x
@@ -52,7 +53,7 @@
 (require 'org)
 (require 'org-timer)
 
-(defconst org-tree-slide "2.1.1"
+(defconst org-tree-slide "2.1.3"
   "The version number of the org-tree-slide.el")
 
 (defgroup org-tree-slide nil
@@ -274,6 +275,7 @@
 (defun ots-display-tree-with-narrow ()
   "Show a tree with narrowing and also set a header at the head of slide."
   (goto-char (point-at-bol))
+  (hide-subtree)   ; support CONTENT (subtrees are shown)
   (org-show-entry)
   (show-children)
   (org-cycle-hide-drawers 'all)
@@ -284,23 +286,40 @@
 (ots-show-slide-header)))
 
 (defun ots-outline-next-heading ()
-  (let ((has-next (outline-next-heading)))
-(when (ots-outline-skip-p has-next (org-outline-level))
-  (ots-outline-next-heading)
-  (message "Skip!"
+  (ots-outline-select-method
+   (ots-outline-skip-p
+(if (outline-next-heading) t 'last)
+(org-outline-level))
+   'next))
 
 (defun ots-outline-previous-heading ()
-  (let ((has-previous (outline-previous-heading)))
-(when (ots-outline-skip-p has-previous (org-outline-level))
-  (ots-outline-previous-heading)
-  (message "Skip!"
+  (ots-outline-select-method
+   (ots-outline-skip-p
+(if (outline-previous-heading) t 'first)
+(org-outline-level))
+   'previous))
+
+(defun ots-outline-select-method (action direction)
+  (cond ((and (equal action 'skip) (equal direction 'next))
+(ots-outline-next-heading))
+   ((and (equal action 'skip) (equal direction 'previous))
+(ots-outline-previous-heading))
+   ((and (equal action 'last) (equal direction 'next))
+(ots-outline-previous-heading)
+(message "End of slide.")) ; Return back.
+   ((and (equal action 'first) (equal direction 'previous))
+(ots-move-to-the-first-heading)
+(message "Begining of slide.")) ; Stay the first heading
+;; (ots-outline-previous-heading))
+   (t nil)))
 
 (defun ots-outline-skip-p (has-target-outline current-level)
-  (cond ((not has-target-outline)
-(message "End of slide")
-nil)
+  (cond ((equal has-target-outline 'last)
+'last)
+   ((equal has-target-outline 'first)
+'first)
((and (> org-tree-slide-skip-outline-level 0)
- (<= org-tree-slide-skip-outline-level current-level)) t)
+ (<= org-tree-slide-skip-outline-level current-level)) 'skip)
(t nil)))
 
 (defun ots-slide-in (brank-lines)

[nongnu] elpa/org-tree-slide b0c36eb532 010/144: Add skip controll by heading level

[ELPA Syncer]

branch: elpa/org-tree-slide
commit b0c36eb532c7a7b8cd02ffa42ea422eaa4b4ca57
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Add skip controll by heading level
---
 ChangeLog |  6 ++
 org-tree-slide.el | 51 +--
 2 files changed, 47 insertions(+), 10 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index c801ed8161..3870fdd9c0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2011-12-05  Takaaki ISHIKAWA  
+
+   * org-tree-slide.el (org-tree-slide-skip-outline-level):
+   Add skip control by heading level. Skip the current slide if the level
+   is higher than or equal to this variable.
+
 2011-12-02  Takaaki ISHIKAWA  
 
* org-tree-slide.el: Change function names, ots- is introduced.
diff --git a/org-tree-slide.el b/org-tree-slide.el
index ec818aac5e..dcdeada112 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.1.1 (2011-12-05@11:08) # Add skip control by heading level
 ;;v2.0.1 (2011-12-02@18:29) # Change function names, ots- is introduced.
 ;;v2.0.0 (2011-12-01@17:41) # Add profiles and support org 6.33x
 ;;v1.2.5 (2011-10-31@18:34) # Add CONTENT view to see all the subtrees.
@@ -40,7 +41,7 @@
 ;;1. Put this elisp into your load-path
 ;;2. Add (requre 'org-tree-slide) in your .emacs
 ;;3. Open an org-mode file 
-;;4. M-x org-tree-slide-play, now you in slide view
+;;4. M-x org-tree-slide-play, now you are in slide view
 ;;5. / will move slides, mode line will be changed
 ;;6. M-x org-tree-slide-stop, return to normal view
 ;;
@@ -51,13 +52,26 @@
 (require 'org)
 (require 'org-timer)
 
-(defconst org-tree-slide "2.0.1"
+(defconst org-tree-slide "2.1.1"
   "The version number of the org-tree-slide.el")
 
 (defgroup org-tree-slide nil
   "User variables for org-tree-slide."
   :group 'org-structure)
 
+(defcustom org-tree-slide-skip-outline-level 0
+  "Skip the current slide if the level is higher than or equal to this 
variable.
+   `0': never skip at any heading
+   e.g. set `4', 
+   *** heading A  ; display as a slide
+   entry
+    heading B ; skip! do not display as the next slide
+    heading C ; skip! 
+   *** heading D  ; display as the next slide
+"
+  :type 'integer
+  :group 'org-tree-slide)
+
 (defcustom org-tree-slide-title nil
   "Specify the title of presentation. The title is shown in a header area. 
If this variable is nil, the name of current buffer will be displayed
@@ -220,14 +234,11 @@
 (message "   Next >>")
 (cond ((or (and (ots-before-first-heading-p) (not (org-on-heading-p)))
  (= (point-at-bol) 1)) ; support single top level tree
-  (outline-next-heading))
+  (ots-outline-next-heading))
  ((or (ots-first-heading-with-narrow-p) (not (org-on-heading-p)))
   (hide-subtree)
   (widen)
-  ;; (if (> 7.3 (string-to-number org-version)) ; for 6.33x
-  ;; (ots-hide-slide-header)  
-  ;; (org-content))
-  (outline-next-heading))
+  (ots-outline-next-heading))
  (t nil))
 (ots-display-tree-with-narrow)))
 
@@ -242,9 +253,9 @@
 (cond ((ots-before-first-heading-p)
   (message "The first slide!"))
  ((not (org-on-heading-p))
-  (outline-previous-heading)
-  (outline-previous-heading))
- (t (outline-previous-heading)))
+  (ots-outline-previous-heading)
+  (ots-outline-previous-heading))
+ (t (ots-outline-previous-heading)))
 (ots-display-tree-with-narrow)
 ;; To avoid error of missing header in Emacs24
 (if (= emacs-major-version 24)
@@ -272,6 +283,26 @@
   (when org-tree-slide-header
 (ots-show-slide-header)))
 
+(defun ots-outline-next-heading ()
+  (let ((has-next (outline-next-heading)))
+(when (ots-outline-skip-p has-next (org-outline-level))
+  (ots-outline-next-heading)
+  (message "Skip!"
+
+(defun ots-outline-previous-heading ()
+  (let ((has-previous (outline-previous-heading)))
+(when (ots-outline-skip-p has-previous (org-outline-level))
+  (ots-outline-previous-heading)
+  (message "Skip!"
+
+(defun ots-outline-skip-p (has-target-outline current-level)
+  (cond ((not has-target-outline)
+(message "End of slide")
+nil)
+   ((and (> org-tree-slide-skip-outline-level 0)
+ (<= org-tree-slide-skip-outline-level current-level)) t)
+   (t nil)))
+
 (defun ots-slide-in (brank-lines)
   (while (< 2 brank-lines)
 (ots-set-slide-header brank-lines)

[nongnu] elpa/org-tree-slide 67d72e4a4c 015/144: Fix an issue of title display (fix typo)

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 67d72e4a4c312dfa34081efd487d34580a8b602e
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Fix an issue of title display (fix typo)
---
 org-tree-slide.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/org-tree-slide.el b/org-tree-slide.el
index bbeda27a41..9ebb22c6db 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -28,7 +28,7 @@
 ;;The latest version of the org-mode at http://orgmode.org/ is recommended.
 ;;
 ;;; History:
-;;v2.1.3 (2011-12-05@17:08) # Fix an issue of title display
+;;v2.1.5 (2011-12-05@17:08) # Fix an issue of title display
 ;;v2.1.3 (2011-12-05@15:08) # Fix the end of slide for skip ccontrol
 ;;v2.1.1 (2011-12-05@11:08) # Add skip control by heading level
 ;;v2.0.1 (2011-12-02@18:29) # Change function names, ots- is introduced.
@@ -54,7 +54,7 @@
 (require 'org)
 (require 'org-timer)
 
-(defconst org-tree-slide "2.1.3"
+(defconst org-tree-slide "2.1.5"
   "The version number of the org-tree-slide.el")
 
 (defgroup org-tree-slide nil

[nongnu] elpa/org-tree-slide cfe834cd38 044/144: Fix typo of README.org

[ELPA Syncer]

branch: elpa/org-tree-slide
commit cfe834cd387e5a6dd710310302f7e78b3892f0d8
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Fix typo of README.org
---
 README.org | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/README.org b/README.org
index 59c70436a0..17627649b4 100644
--- a/README.org
+++ b/README.org
@@ -2,7 +2,7 @@
 #+AUTHOR:  Takaaki Ishikawa
 #+EMAIL:   tak...@ieee.org
 #+STARTUP: content
-#+Last Update: 2011-12-17@20:49
+#+Last Update: 2011-12-17@21:23
 
 * 1. What's this?
 
@@ -178,7 +178,7 @@ If you like this elisp, the following setting is more 
useful. Try it!
 
 ** Startup options
 
-These function will toggle =org-tree-slide-mode= ON, automatically.
+These functions will toggle =org-tree-slide-mode= ON, automatically.
 
   - org-tree-slide-without-init-play
   - org-tree-slide-play-with-timer

[nongnu] elpa/org-tree-slide 1687d83b18 046/144: Fix typo README.org

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 1687d83b18948012305564c3eff7425589dcce26
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Fix typo README.org
---
 README.org | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/README.org b/README.org
index 1dfd82f118..253b0a1f98 100644
--- a/README.org
+++ b/README.org
@@ -2,7 +2,7 @@
 #+AUTHOR:  Takaaki Ishikawa
 #+EMAIL:   tak...@ieee.org
 #+STARTUP: content
-#+Last Update: 2011-12-18@00:50
+#+Last Update: 2011-12-18@10:56
 
 * 1. What's this?
 
@@ -109,9 +109,9 @@ To exit a presentation, set =org-tree-slide-mode= OFF. The 
cursor move to the he
 
 This profile will display trees restricted to =TODO status= without a header 
and slide-in effect. It is very useful to concentrate your focus on the current 
TODO item that is not done, and go to the next task by a single typing of 
==. This is "TODO Pursuit with narrowing". If you want to track every 
kind of tree including finished items, toggle =M-x 
org-tree-slide-skip-done-toggle= OFF.
 
-When you exit =org-tree-slide-mode=, the cursor will keep the same position, 
it is therefore possible to focus again by toggle =M-x org-tree-slide-mode= 
again.
+When you exit =org-tree-slide-mode=, the cursor will keep the same position, 
it is therefore possible to focus again by toggle =M-x org-tree-slide-mode=.
 
-If you feel the cursor moving is very slow, please change a value of 
=org-tree-slide-modeline-display= to =\'outside= or =nil=.
+If you feel the cursor moving is very slow, please change a value of 
=org-tree-slide-modeline-display= to ='outside= or =nil=.
 
 =M-x org-tree-slide-narrowing-control-profile=
 

[nongnu] elpa/org-tree-slide 420342f50b 030/144: Update README

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 420342f50bd881d1f87f1d1397bf9f74cc34d5eb
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Update README
---
 README.org | 37 ++---
 1 file changed, 22 insertions(+), 15 deletions(-)

diff --git a/README.org b/README.org
index 3cdabf3a5b..b5c190b734 100644
--- a/README.org
+++ b/README.org
@@ -94,23 +94,30 @@ If you want to use this setting as the default, please put 
a setting including r
 
 * User variables
 
-|-+---|
-| Variable| Default value |
-|-+---|
-| org-tree-slide-skip-outline-level   | 0 |
-| org-tree-slide-header   | t |
-| org-tree-slide-slide-in-effect  | t |
-| org-tree-slide-slide-in-brank-lines | 10|
-| org-tree-slide-slide-in-waiting | 0.02  |
-| org-tree-slide-cursor-init  | t |
-| org-tree-slide-heading-emphasis | nil   |
-| org-tree-slide-skip-done| nil   |
-| org-tree-slide-modeline-display | nil   |
-|-+---|
+|---+-+---+-|
+|   | Variable| Default value | Select  |
+|---+-+---+-|
+| 1 | org-tree-slide-skip-outline-level   | 0 | numeric |
+| 2 | org-tree-slide-header   | t | boolean |
+| 3 | org-tree-slide-slide-in-effect  | t | boolean |
+| 4 | org-tree-slide-slide-in-brank-lines | 10| numeric |
+| 5 | org-tree-slide-slide-in-waiting | 0.02  | float   |
+| 6 | org-tree-slide-cursor-init  | t | boolean |
+| 7 | org-tree-slide-heading-emphasis | nil   | boolean |
+| 8 | org-tree-slide-skip-done| nil   | boolean |
+| 9 | org-tree-slide-modeline-display | nil   | [*1]|
+|---+-+---+-|
+
+#+begin_src
+[*1] ={ nil| 'lighter | 'outside }=
+   'outside: shown in the mode line outside of lighter
+   'lighter: shown in lighter (slow)
+   nil: nothing to be shown"
+#+end_src
 
 * History
 
-see also ChangeLog
+see also [[ChangeLog]]
 
 |-+--+---|
 | Version | Date | Description   |
@@ -138,6 +145,6 @@ see also ChangeLog
 
 * Contact
 
-The author is Takaaki ISHIKAWA (=tak...@ieee.org=).
+The author is Takaaki ISHIKAWA ([[mailto:tak...@ieee.org][tak...@ieee.org]]).
 Feel free to email me or use a mention of twitter 
([[https://twitter.com/#!/takaxp][@takaxp]])
 

[nongnu] elpa/org-tree-slide 1ab152f87b 047/144: Fix typo README.org

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 1ab152f87b89aae08399164023ef9a598df9a0ae
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Fix typo README.org
---
 README.org | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/README.org b/README.org
index 253b0a1f98..4c73739318 100644
--- a/README.org
+++ b/README.org
@@ -2,7 +2,7 @@
 #+AUTHOR:  Takaaki Ishikawa
 #+EMAIL:   tak...@ieee.org
 #+STARTUP: content
-#+Last Update: 2011-12-18@10:56
+#+Last Update: 2011-12-18@10:58
 
 * 1. What's this?
 
@@ -111,7 +111,7 @@ This profile will display trees restricted to =TODO status= 
without a header and
 
 When you exit =org-tree-slide-mode=, the cursor will keep the same position, 
it is therefore possible to focus again by toggle =M-x org-tree-slide-mode=.
 
-If you feel the cursor moving is very slow, please change a value of 
=org-tree-slide-modeline-display= to ='outside= or =nil=.
+If you feel the cursor moving is very slow, please change a value of 
=org-tree-slide-modeline-display= to 'outside or =nil=.
 
 =M-x org-tree-slide-narrowing-control-profile=
 

[nongnu] elpa/org-tree-slide be2d679c35 028/144: Add a link

[ELPA Syncer]

branch: elpa/org-tree-slide
commit be2d679c3503b3c25b1a8916cd5301eed6c2147e
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Add a link
---
 README.org|  4 
 org-tree-slide.el | 10 +-
 2 files changed, 9 insertions(+), 5 deletions(-)

diff --git a/README.org b/README.org
index e125363bb6..48704f7b17 100644
--- a/README.org
+++ b/README.org
@@ -8,6 +8,10 @@
 
 This emacs lisp is a minor mode for Emacs Org-mode. The main purpose of this 
elisp is to handle each tree in a org buffer as a slide by simple narrowing.
 
+** Related packages
+
+see [[http://orgmode.org/worg/org-tutorials/non-beamer-presentations.html]].
+
 * Install
 
 1. Put this elisp into your load-path
diff --git a/org-tree-slide.el b/org-tree-slide.el
index 55e664e4e6..fa0a08db5b 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -94,11 +94,6 @@
   :type 'boolean
   :group 'org-tree-slide)
 
-(defcustom org-tree-slide-slide-in-brank-lines 10
-  "Specify the number of brank lines, the slide will move from this line."
-  :type 'integer
-  :group 'org-tree-slide)
-
 (defcustom org-tree-slide-cursor-init t
   "Specify a cursor position when exit slideshow.
   `t': the cursor will move automatically to the head of buffer.
@@ -106,6 +101,11 @@
   :type 'boolean
   :group 'org-tree-slide)
 
+(defcustom org-tree-slide-slide-in-brank-lines 10
+  "Specify the number of brank lines, the slide will move from this line."
+  :type 'integer
+  :group 'org-tree-slide)
+
 (defcustom org-tree-slide-slide-in-waiting 0.02
   "Specify the duration waiting the next update of overlay."
   :type 'float

[nongnu] elpa/org-tree-slide 8aa567aa72 013/144: Fix typo

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 8aa567aa7227fb58226a6c41eec34ada9b528f6a
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Fix typo
---
 org-tree-slide.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/org-tree-slide.el b/org-tree-slide.el
index 7920f34ee7..95b3e795cd 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -309,7 +309,7 @@
 (message "End of slide.")) ; Return back.
((and (equal action 'first) (equal direction 'previous))
 (ots-move-to-the-first-heading)
-(message "Begining of slide.")) ; Stay the first heading
+(message "Beginning of slide.")) ; Stay the first heading
 ;; (ots-outline-previous-heading))
(t nil)))
 

[nongnu] elpa/org-tree-slide 73182afa10 035/144: Update README

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 73182afa10b02ce95319ac47172b310a8ba2642f
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Update README
---
 README.org | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/README.org b/README.org
index 5d8d2e7690..167d57c8c0 100644
--- a/README.org
+++ b/README.org
@@ -2,7 +2,7 @@
 #+AUTHOR:  Takaaki Ishikawa
 #+EMAIL:   tak...@ieee.org
 #+STARTUP: content
-#+Last Update: 2011-12-17@18:17
+#+Last Update: 2011-12-17@18:22
 
 * 1. What's this?
 
@@ -111,6 +111,8 @@ This profile will display trees restricted to =TODO status= 
without a header and
 
 When you exit =org-tree-slide-mode=, the cursor will keep the same position, 
it is therefore possible to focus again by toggle =M-x org-tree-slide-mode= 
again.
 
+If you feel the cursor moving is very slow, please change a value of 
=org-tree-slide-modeline-display= to =\'outside= or =nil=.
+
 =M-x org-tree-slide-narrowing-control-profile=
 
 1. No header display

[nongnu] elpa/org-tree-slide b656a838b0 029/144: Update README

[ELPA Syncer]

branch: elpa/org-tree-slide
commit b656a838b0a54d43344f3151a142494fbdcc986a
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Update README
---
 README.org | 22 +++---
 1 file changed, 11 insertions(+), 11 deletions(-)

diff --git a/README.org b/README.org
index 48704f7b17..3cdabf3a5b 100644
--- a/README.org
+++ b/README.org
@@ -15,12 +15,12 @@ see 
[[http://orgmode.org/worg/org-tutorials/non-beamer-presentations.html]].
 * Install
 
 1. Put this elisp into your load-path
-2. Add (require 'org-tree-slide) in your .emacs
+2. Add =(require 'org-tree-slide)= in your .emacs
 
 OR
 
-1. Eval: (auto-install-from-url 
"https://raw.github.com/takaxp/org-tree-slide/master/org-tree-slide.el";)
-2. Add (require 'org-tree-slide) in your .emacs
+1. Eval: =(auto-install-from-url 
"https://raw.github.com/takaxp/org-tree-slide/master/org-tree-slide.el";)=
+2. Add =(require 'org-tree-slide)= in your =.emacs=
 
 ** Requirements
   - Org-mode 6.33x or higher version is required.
@@ -45,13 +45,13 @@ OR
 
 Three useful profiles are available. Please choise a profile which is the most 
closing your use.
 
-If you select `simple' profile, first of all, toggle org-tree-slide-mode and 
call a fuction to set this profile. 
+If you select =simple= profile, first of all, toggle =org-tree-slide-mode= and 
call a fuction to set this profile. 
 
 #+begin_src emacs lisp
 M-x org-tree-slide-simple-profile
 #+end_src
 
-If you want to use this setting as the default, please put a setting including 
recommended settings into your `.emacs'.
+If you want to use this setting as the default, please put a setting including 
recommended settings into your =.emacs=.
 
 #+begin_src emacs lisp
 (when (require 'org-tree-slide nil t)
@@ -60,11 +60,11 @@ If you want to use this setting as the default, please put 
a setting including r
   (org-tree-slide-simple-profile))
 #+end_src
 
-`org-tree-slide-presentation-profile' and 
`org-tree-slide-narrowing-control-profile' are also available.
+=org-tree-slide-presentation-profile= and 
=org-tree-slide-narrowing-control-profile= are also available.
 
 ** `Simple'
 
- => M-x `org-tree-slide-simple-profile'
+=M-x org-tree-slide-simple-profile=
 
 1. No header display
 2. No slide-in effect
@@ -74,7 +74,7 @@ If you want to use this setting as the default, please put a 
setting including r
 
 ** `Presentation'
 
- => M-x `org-tree-slide-presentation-profile'
+=M-x org-tree-slide-presentation-profile=
 
 1. Display header
 2. Enable slide-in effect
@@ -84,7 +84,7 @@ If you want to use this setting as the default, please put a 
setting including r
 
 ** `TODO Pursuit with narrowing'
 
- => M-x `org-tree-slide-narrowing-control-profile'
+=M-x org-tree-slide-narrowing-control-profile=
 
 1. No header display
 2. No slide-in effect
@@ -138,6 +138,6 @@ see also ChangeLog
 
 * Contact
 
-The author is Takaaki ISHIKAWA (tak...@ieee.org).
-Feel free to email me or use a mention of twitter (@takaxp)
+The author is Takaaki ISHIKAWA (=tak...@ieee.org=).
+Feel free to email me or use a mention of twitter 
([[https://twitter.com/#!/takaxp][@takaxp]])
 

[nongnu] elpa/org-tree-slide 4bf4a2ddd1 021/144: Reduce redundant processing

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 4bf4a2ddd1282908782d85c8ada745d4432b2820
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Reduce redundant processing
---
 ChangeLog |  4 
 org-tree-slide.el | 19 +++
 2 files changed, 15 insertions(+), 8 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index e729a305cd..c2e94a7be2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2011-12-08  Takaaki ISHIKAWA  
+
+   * org-tree-slide.el (ots-update-modeline): Reduce redundant processing
+
 2011-12-07  Takaaki ISHIKAWA  
 
* org-tree-slide.el: Add a new profile to control narrowing status
diff --git a/org-tree-slide.el b/org-tree-slide.el
index 9c6482120c..e41d29fb77 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.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
 ;;v2.2.0 (2011-12-07@02:15) # Support minor mode
@@ -58,7 +59,7 @@
 (require 'org)
 (require 'org-timer)
 
-(defconst org-tree-slide "2.3.1"
+(defconst org-tree-slide "2.3.2"
   "The version number of the org-tree-slide.el")
 
 (defgroup org-tree-slide nil
@@ -155,11 +156,8 @@
 (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.
-
-"
-  :lighter (:eval (if (ots-active-p) (format " %s" (ots-count-slide (point)))
-   " TSlide"))
+  "A presentation tool for org-mode."
+  :lighter (:eval (ots-update-modeline))
   :keymap org-tree-slide-mode-map
   :group 'org-tree-slide
   :require 'org
@@ -171,6 +169,12 @@
(run-hooks 'org-mode-slide-mode-hook))
 (ots-abort)))
 
+(defvar ots-slide-number " TSlide")
+(defun ots-update-modeline ()
+  (if (and (ots-active-p) (org-on-heading-p))
+  (setq ots-slide-number (format " %s" (ots-count-slide (point
+ots-slide-number))
+
 (defun org-tree-slide-play-with-timer ()
   "Start slideshow with setting a count down timer."
   (interactive)
@@ -462,8 +466,7 @@
 (defun ots-count-slide (target-point)
   (save-excursion
 (save-restriction
-  (widen)
-  (ots-move-to-the-first-heading)
+  (ots-move-to-the-first-heading)  ; include widen
   (let
  ((count 0)
   (previous-point 0)

[nongnu] elpa/org-tree-slide 78a5c46e55 049/144: Add autoload magic comments

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 78a5c46e55b3ccf5d972c515e00d3bec9547d270
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Add autoload magic comments
---
 ChangeLog |  4 
 README.org| 17 +++--
 org-tree-slide.el | 32 ++--
 3 files changed, 41 insertions(+), 12 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 2679701550..d26bbf5529 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2012-01-11  Takaaki ISHIKAWA  
+
+   * org-tree-slide.el: Add autoload magic comments
+
 2011-12-18  Takaaki ISHIKAWA  
 
* org-tree-slide.el (org-tree-slide-move-next-tree): Fix a bug
diff --git a/README.org b/README.org
index 4c73739318..2c752fa370 100644
--- a/README.org
+++ b/README.org
@@ -2,7 +2,7 @@
 #+AUTHOR:  Takaaki Ishikawa
 #+EMAIL:   tak...@ieee.org
 #+STARTUP: content
-#+Last Update: 2011-12-18@10:58
+#+Last Update: 2012-01-11@23:02
 
 * 1. What's this?
 
@@ -35,6 +35,18 @@ OR
 
 Then open an org file, just type == and ==. A presentation will 
begin with a header, slide-in effect, and slide number.
 
+** el-get recipe
+
+If you are an [[https://github.com/dimitri/el-get][el-get]] user, please use 
this recipe.
+
+#+BEGIN_SRC emacs-lisp
+(:name org-tree-slide
+   :description "A presentation tool for org-mode"
+   :type git
+   :url "git://github.com/takaxp/org-tree-slide.git"
+   :required nil)
+#+END_SRC
+
 ** 2.1 Requirements
   - Org-mode 6.33x or higher version is required.
   - This elisp doesn't require any additional packages.
@@ -91,7 +103,7 @@ Type =M-x org-tree-slide-simple-profile= while 
=org-tree-slide-mode= is ON.
 
 This profile is used as the default setting of org-tree-slide. If an org 
buffer includes =#+TITLE:=, =#+EMAIL:=, and =#+AUTHOR:=, org-tree-slide 
attempts to use those variables in the slide header. A date in the header will 
be set with the presentation of the day. You can enjoy a slide-in effect, the 
current slide number in mode line. A presentation with a count down timer is 
started by =M-x org-tree-slide-play-with-timer=.
 
-If you want to show the content of your presentation, type =C-x s c= or =M-x 
org-tree-slide-content=. All of the headers will be shown like a Table Of 
Content. Find a heading that you want to show, and type ==, the 
presentation will be resumed.
+If you want to show the content of your presentation, type =C-x s c= or =M-x 
org-tree-slide-content=. All of the headings will be shown like a Table Of 
Content. Find a heading that you want to show, and type ==, the 
presentation will be resumed.
 
 It is possible to skip slides when a heading level is higher than or equal to 
a  value of =org-tree-slide-skip-outline-level=. see User variables.
 
@@ -203,6 +215,7 @@ see also ChangeLog
 |-+--+---|
 | Version | Date | Description   |
 |-+--+---|
+| v2.5.4  | 2012-01-11@23:02 | Add autoload magic comments   |
 | v2.5.3  | 2011-12-18@00:50 | Fix a bug for an org buffer without header|
 | v2.5.2  | 2011-12-17@17:52 | Set presentation profile as the default   |
 | v2.5.1  | 2011-12-17@13:34 | org-tree-slide-skip-done set nil as default   |
diff --git a/org-tree-slide.el b/org-tree-slide.el
index 1e83a26de6..332595015c 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -64,7 +64,7 @@
 (require 'org-timer)
 (require 'org-clock)   ; org-clock-in, -out, -clocking-p
 
-(defconst org-tree-slide "2.5.3"
+(defconst org-tree-slide "2.5.4"
   "The version number of the org-tree-slide.el")
 
 (defgroup org-tree-slide nil
@@ -160,6 +160,8 @@
 
 (defvar org-tree-slide-mode-hook nil)
 (defvar display-tree-slide-string nil)
+
+;;;###autoload
 (define-minor-mode org-tree-slide-mode
   "A presentation tool for org-mode.
 
@@ -213,15 +215,7 @@ Profiles:
(run-hooks 'org-mode-slide-mode-hook))
 (ots-abort)))
 
-(defvar ots-slide-number " TSlide")
-(defun ots-update-modeline ()
-  (cond ((equal org-tree-slide-modeline-display 'lighter)
-(if (and (ots-active-p) (org-on-heading-p))
-(setq ots-slide-number (format " %s" (ots-count-slide (point
-  ots-slide-number))
-   ((equal org-tree-slide-modeline-display 'outside) "")
-   (t " TSlide")))
-
+;;;###autoload
 (defun org-tree-slide-play-with-timer ()
   "Start slideshow with setting a count down timer."
   (interactive)
@@ -229,6 +223,7 @@ Profiles:
   (unless (ots-active-p)
 (org-tree-slide-mode)))
 
+;;;###autoload
 (defun org-tree-slide-without-init-play ()
   "Start slideshow without the init play. Just enter org-tree-slide-mode."
   (interactive)
@@ -237,6 +232,7 @@ Profiles:
   (org-overview)  
   (goto-char 1))
 
+;;;###autoload
 (defun org-tree-slide-content ()
   "Change the display for viewing content of the org file during
the slide 

[nongnu] elpa/org-tree-slide 28975a4492 018/144: Support displaying a slide number in a mode-line.

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 28975a449290beaff265c19fdd4c67638668c5fc
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Support displaying a slide number in a mode-line.
---
 ChangeLog |  2 ++
 org-tree-slide.el | 55 ---
 2 files changed, 50 insertions(+), 7 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 92ebb845c5..8ee1315157 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2011-12-07  Takaaki ISHIKAWA  
 
+   * ort-tree-slide.el: Support displaying a slide number in a mode-line.
+
* org-tree-slide.el: Adopt minor mode
org-tree-slide adopt a minor mode!
org-tree-slide-play and org-tree-slide-stop are replaced
diff --git a/org-tree-slide.el b/org-tree-slide.el
index 95428d7e7a..5c7c930f25 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -28,7 +28,8 @@
 ;;The latest version of the org-mode at http://orgmode.org/ is recommended.
 ;;
 ;;; History:
-;;v2.2.0 (2011-12-07@02:15) # Adopt minor mode
+;;v2.3.0 (2011-12-07@16:17) # Support displaying a slide number
+;;v2.2.0 (2011-12-07@02:15) # Support minor mode
 ;;v2.1.7 (2011-12-06@00:26) # Support TITLE/AUTHOR/EMAIL in a header
 ;;v2.1.5 (2011-12-05@17:08) # Fix an issue of title display
 ;;v2.1.3 (2011-12-05@15:08) # Fix the end of slide for skip ccontrol
@@ -56,7 +57,7 @@
 (require 'org)
 (require 'org-timer)
 
-(defconst org-tree-slide "2.2.0"
+(defconst org-tree-slide "2.3.0"
   "The version number of the org-tree-slide.el")
 
 (defgroup org-tree-slide nil
@@ -153,12 +154,15 @@
   "The default key bindings for org-tree-slide.")
 
 (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"
   :lighter " TSlide"
   :keymap org-tree-slide-mode-map
   :group 'org-tree-slide
   :require 'org
+  (setq display-tree-slide-string "")
+  (or global-mode-string (setq global-mode-string '("")))
   (if org-tree-slide-mode
   (progn
(ots-setup)
@@ -259,10 +263,13 @@
 
 (defun ots-setup ()
   (when (equal major-mode 'org-mode)
+(or (memq 'display-tree-slide-string global-mode-string)
+   (setq global-mode-string
+ (append global-mode-string '(display-tree-slide-string
 (ots-play)))
 
 (defun ots-abort ()
-  (unless (ots-active-p)
+  (when (equal major-mode 'org-mode)
 (ots-stop)))
 
 (defun ots-play ()
@@ -300,6 +307,7 @@
   (show-children)
   (org-cycle-hide-drawers 'all)
   (org-narrow-to-subtree)
+  (setq display-tree-slide-string (ots-count-slide (point)))
   (when org-tree-slide-slide-in-effect
 (ots-slide-in org-tree-slide-slide-in-brank-lines))
   (when org-tree-slide-header
@@ -325,11 +333,10 @@
((and (equal action 'skip) (equal direction 'previous))
 (ots-outline-previous-heading))
((and (equal action 'last) (equal direction 'next))
-(ots-outline-previous-heading)
-(message "End of slide.")) ; Return back.
+(ots-outline-previous-heading)) ; Return back.
+;; (message "End of slide."))
((and (equal action 'first) (equal direction 'previous))
-(ots-move-to-the-first-heading)
-(message "Beginning of slide.")) ; Stay the first heading
+(ots-move-to-the-first-heading)) ; Stay the first heading
 ;; (ots-outline-previous-heading))
(t nil)))
 
@@ -437,6 +444,40 @@
  '(org-level-3 ((t (:inherit org-tree-slide-heading-level-3-init)
 (message "Face: OFF"
 
+(defun ots-count-slide (target-point)
+  (save-excursion
+(save-restriction
+  (widen)
+  (ots-move-to-the-first-heading)
+  (let
+ ((count 0)
+  (previous-point 0)
+  (current-slide 0))
+   (while (/= (point) previous-point) ; convergence point
+ (setq count (1+ count))
+ (when (<= (point) target-point)
+   (setq current-slide count))
+ (setq previous-point (point))
+ (ots-outline-next-heading))
+   (format "[%d/%d]" current-slide count)
+
+(defun ots-count-slide-old (&optional target-point)
+  (save-excursion
+(save-restriction
+  (widen)
+  (unless target-point
+   (setq target-point (point-max)))
+  (ots-move-to-the-first-heading)
+  (let
+ ((count 0)
+  (previous-point 0))
+   (while (and (<= (point) target-point)
+   (/= (point) previous-point))
+ (setq count (1+ count))
+ (setq previous-point (point))
+ (ots-outline-next-heading))
+   count
+
 (defun ots-active-p ()
   (and org-tree-slide-mode (equal major-mode 'org-mode)))
 

[nongnu] elpa/org-tree-slide 2e9e91ed4e 050/144: Update README.org

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 2e9e91ed4e59a2584d62c4e0a8cde7d6fd4f6025
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Update README.org
---
 README.org | 10 +-
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/README.org b/README.org
index 2c752fa370..babb66d30d 100644
--- a/README.org
+++ b/README.org
@@ -2,7 +2,7 @@
 #+AUTHOR:  Takaaki Ishikawa
 #+EMAIL:   tak...@ieee.org
 #+STARTUP: content
-#+Last Update: 2012-01-11@23:02
+#+Last Update: 2012-01-11@23:05
 
 * 1. What's this?
 
@@ -41,10 +41,10 @@ If you are an [[https://github.com/dimitri/el-get][el-get]] 
user, please use thi
 
 #+BEGIN_SRC emacs-lisp
 (:name org-tree-slide
-   :description "A presentation tool for org-mode"
-   :type git
-   :url "git://github.com/takaxp/org-tree-slide.git"
-   :required nil)
+:description "A presentation tool for org-mode"
+:type git
+:url "git://github.com/takaxp/org-tree-slide.git"
+:required nil)
 #+END_SRC
 
 ** 2.1 Requirements

[nongnu] elpa/org-tree-slide fe51f9ecfb 057/144: Added hooks for start and stop presentation

[ELPA Syncer]

branch: elpa/org-tree-slide
commit fe51f9ecfbe35599bd5994f5fabcc32dc53d8f24
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Added hooks for start and stop presentation
---
 ChangeLog |  4 
 README.org| 61 ++-
 org-tree-slide.el | 29 +++---
 3 files changed, 54 insertions(+), 40 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index a048a03e2e..a614c237e6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2013-01-27  Takaaki ISHIKAWA  
+
+   * org-tree-slide.el: Added hooks for start and stop presentation
+
 2012-11-21  Takaaki ISHIKAWA  
 
* org-tree-slide.el: Support dark color theme (by @uk-ar)
diff --git a/README.org b/README.org
index ecf85ad14c..b31dee8058 100644
--- a/README.org
+++ b/README.org
@@ -2,7 +2,7 @@
 #+AUTHOR:  Takaaki Ishikawa
 #+EMAIL:   tak...@ieee.org
 #+STARTUP: content
-#+Last Update: 2012-11-21@02:16
+#+Last Update: 2013-01-27@22:39
 
 * 1. What's this?
 
@@ -204,39 +204,44 @@ These functions will toggle =org-tree-slide-mode= ON, 
automatically.
   - org-tree-slide-presentation-profile
   - org-tree-slide-narrowing-control-profile
 
+** Hooks
+
+  - org-tree-slide-mode-play-hook
+  - org-tree-slide-mode-stop-hook
+
 * 7. History
 
 see also ChangeLog
 
-|-+--+---|
-| Version | Date | Description   |
-|-+--+---|
-| 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   |
-| v2.5.3  | 2011-12-18@00:50 | Fix a bug for an org buffer without header|
-| v2.5.2  | 2011-12-17@17:52 | Set presentation profile as the default   |
-| v2.5.1  | 2011-12-17@13:34 | org-tree-slide-skip-done set nil as default   |
-| v2.5.0  | 2011-12-12@18:16 | Remove auto-play function (TBD)   |
-| v2.4.1  | 2011-12-09@11:46 | Add an option to control mode line display|
-| 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 |
-| v2.2.0  | 2011-12-07@02:15 | Support minor mode|
-| v2.1.7  | 2011-12-06@00:26 | Support TITLE/AUTHOR/EMAIL in a header|
-| v2.1.5  | 2011-12-05@17:08 | Fix an issue of title display |
-| v2.1.3  | 2011-12-05@15:08 | Fix the end of slide for skip control |
-| v2.1.1  | 2011-12-05@11:08 | Add skip control by heading level |
-| v2.0.1  | 2011-12-02@18:29 | Change function names, ots- is introduced.|
-| v2.0.0  | 2011-12-01@17:41 | Add profiles and support org 6.33x|
-| v1.2.5  | 2011-10-31@18:34 | Add CONTENT view to see all the subtrees. |
-| v1.2.3  | 2011-10-30@20:42 | Add a variable to control slide-in duration   |
-| v1.2.1  | 2011-10-30@16:10 | Add slide-in visual effect|
-| v1.1.1  | 2011-10-28@16:16 | Add functions to start and stop slide view|
-| v1.0.0  | 2011-09-28@20:59 | Release the initial version   |
+|-+--+-|
+| Version | Date | Description 
|
+|-+--+-|
+| 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 
|
+| v2.5.3  | 2011-12-18@00:50 | Fix a bug for an org buffer without header  
|
+| v2.5.2  | 2011-12-17@17:52 | Set presentation profile as the default 
|
+| v2.5.1  | 2011-12-17@13:34 | org-tree-slide-skip-done set nil as default 
|
+| v2.5.0  | 2011-12-12@18:16 | Remove auto-play function (TBD) 
|
+| v2.4.1  | 2011-12-09@11:46 | Add an option to control mode line display  
|
+| 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   
|
+| v2.2.0  | 2011-12-07@02:15 | Support minor mode  
|
+| v2.1.7  | 2011-12-06@00:26 | Support TITLE/AUTHOR/EMAIL in a header  
|
+| v2.1.5  | 2011-12-05@17:08 | Fix an issue of title display   
|
+| v2.1.3  | 2011-12-05@15:08 | Fix the end of slide for skip control   
|
+| v2.1.1  | 2011-

[nongnu] elpa/org-tree-slide fb5d0a8c20 052/144: Support dark color theme

[ELPA Syncer]

branch: elpa/org-tree-slide
commit fb5d0a8c209d8851a7cad2468d6c8738b490e330
Author: yuuki arisawa 
Commit: yuuki arisawa 

Support dark color theme
---
 org-tree-slide.el | 13 ++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/org-tree-slide.el b/org-tree-slide.el
index 332595015c..5c6dbb0f74 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -533,15 +533,22 @@ Profiles:
   (set header-variable
(if (re-search-forward regexp limit t) (match-string 1) nil)))
 
+(defface org-tree-slide-header-overlay-face
+  'class color) (background dark))
+ (:bold t :foreground "white" :background "black"))
+(((class color) (background light))
+ (:bold t :foreground "black" :background "white"))
+(t (:bold t :foreground "black" :background "white")))
+  "Face for ots-header-overlay")
+
 (defun ots-set-slide-header (brank-lines)
   (ots-hide-slide-header)
   (setq ots-header-overlay
(make-overlay (point-min) (+ 1 (point-min
   (overlay-put ots-header-overlay 'after-string " ")
   (overlay-put ots-header-overlay
-  'face
-  '((foreground-color . "#696969")
-(background-color . "#FF") bold))
+   'face
+   'org-tree-slide-header-overlay-face)
   (if org-tree-slide-header
   (overlay-put ots-header-overlay 'display
   (concat "  [ " 

[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 
Commit: Takaaki ISHIKAWA 

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  
+
+   * 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  
 
* 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

[nongnu] elpa/org-tree-slide 3cd42fdfef 071/144: Replace ots- with org-tree-slide--

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 3cd42fdfef74854ee00f8f57b6863c1ebfff369a
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Replace ots- with org-tree-slide--
---
 ChangeLog |   5 +
 README.org|   5 +-
 org-tree-slide.el | 283 --
 3 files changed, 153 insertions(+), 140 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 18a25dafc0..94605e6bbf 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2015-02-15  Takaaki ISHIKAWA  
+
+   * org-tree-slide.el (org-tree-slide): Replace ots- with org-tree-slide--
+   - According to the Coding Conventions provided from gnu.org, the prefix 
for internal functions should be described with two hyphens to avoid name 
conflicts with other packages.
+
 2015-02-14  Takaaki ISHIKAWA  
 
* org-tree-slide: Refine displaying slide number in modeline
diff --git a/README.org b/README.org
index d9c8d46ee8..0a5cde177a 100644
--- a/README.org
+++ b/README.org
@@ -1,8 +1,8 @@
 #+TITLE:   README for Org Tree Slide
 #+AUTHOR:  Takaaki Ishikawa
 #+EMAIL:   tak...@ieee.org
-#+DATE:2015-02-14
-#+UPDATE:  23:48:25
+#+DATE:2015-02-15
+#+UPDATE:  16:30:03
 #+STARTUP: content
 
 * 1. What's this?
@@ -219,6 +219,7 @@ see also ChangeLog
 
|-+--+-|
 | Version | Date | Description 
|
 
|-+--+-|
+| v2.7.5  | 2015-02-15@16:29 | Replace ots- with org-tree-slide--  
|
 | v2.7.4  | 2015-02-14@23:30 | Refine displaying slide number in modeline  
|
 | v2.7.2  | 2015-01-12@19:56 | Suppress an error message from org-timer
|
 | v2.7.1  | 2015-01-12@18:28 | Hide skipped slides when CONTENT mode   
|
diff --git a/org-tree-slide.el b/org-tree-slide.el
index 103f30538e..850d205e9f 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -68,7 +68,7 @@
 (require 'org-timer)
 (require 'org-clock)   ; org-clock-in, -out, -clocking-p
 
-(defconst org-tree-slide "2.7.4"
+(defconst org-tree-slide "2.7.5"
   "The version number of the org-tree-slide.el")
 
 (defgroup org-tree-slide nil
@@ -186,13 +186,13 @@
 
 (defvar org-tree-slide-mode nil)
 (defvar org-tree-slide-mode-play-hook nil
-  "A hook run when ots-play is evaluated to start the slide show")
+  "A hook run when org-tree-slide--play is evaluated to start the slide show")
 (defvar org-tree-slide-mode-stop-hook nil
-  "A hook run when ots-stop is evaluated to stop the slide show")
+  "A hook run when org-tree-slide--stop is evaluated to stop the slide show")
 (defvar org-tree-slide-mode-before-narrow-hook nil
-  "A hook run before evaluating ots-display-tree-with-narrow")
+  "A hook run before evaluating org-tree-slide--display-tree-with-narrow")
 (defvar org-tree-slide-mode-after-narrow-hook nil
-  "A hook run after evaluating ots-display-tree-with-narrow")
+  "A hook run after evaluating org-tree-slide--display-tree-with-narrow")
 
 ;;;###autoload
 (define-minor-mode org-tree-slide-mode
@@ -236,20 +236,20 @@ Profiles:
 4. Display slide number in mode line
 5. Display TODO trees only
 "
-  :lighter (:eval (ots-update-modeline))
+  :lighter (:eval (org-tree-slide--update-modeline))
   :keymap org-tree-slide-mode-map
   :group 'org-tree-slide
   :require 'org
   (if org-tree-slide-mode
-  (ots-setup)
-(ots-abort)))
+  (org-tree-slide--setup)
+(org-tree-slide--abort)))
 
 ;;;###autoload
 (defun org-tree-slide-play-with-timer ()
   "Start slideshow with setting a count down timer."
   (interactive)
   (org-timer-set-timer)
-  (unless (ots-active-p)
+  (unless (org-tree-slide--active-p)
 (org-tree-slide-mode)))
 
 ;;;###autoload
@@ -266,9 +266,9 @@ Profiles:
   "Change the display for viewing content of the org file during
the slide view mode is active."
   (interactive)
-  (when (ots-active-p)
-(ots-hide-slide-header)
-(ots-move-to-the-first-heading)
+  (when (org-tree-slide--active-p)
+(org-tree-slide--hide-slide-header)
+(org-tree-slide--move-to-the-first-heading)
 (org-overview)
 (org-content (if (> org-tree-slide-skip-outline-level 0)
  (1- org-tree-slide-skip-outline-level)))
@@ -343,30 +343,30 @@ Profiles:
   (interactive)
   (setq org-tree-slide-header (not org-tree-slide-header))
   (unless org-tree-slide-header
-(ots-hide-slide-header))
-  (ots-display-tree-with-narrow))
+(org-tree-slide--hide-slide-header))
+  (org-tree-slide--display-tree-with-narrow))
 
 ;;;###autoload
 (defun org-tree-slide-slide-in-effect-toggle ()
   "Toggle using slide-in effect"
   (interactive)
   (setq org-tree-slide-slide-in-effect (not org-tree-slide-slide-in-effect))
-  (ots-display-tree-with-narrow))
+  (org-tree-slide--display-tree-with-narrow))
 
 ;;;###autoload
 (defun org-tree-slide-heading-emphasis

[nongnu] elpa/org-tree-slide 8b44ae834f 073/144: Default keymap was changed

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 8b44ae834f3f2503410174303a53bc0c17993a19
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Default keymap was changed
---
 ChangeLog |  9 
 README.org| 66 ---
 org-tree-slide.el | 41 +-
 3 files changed, 78 insertions(+), 38 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 94605e6bbf..3289b3c4dd 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+2015-02-20  Takaaki ISHIKAWA  
+
+   * org-tree-slide.el: Default keymap was changed
+   - Due to many reports on conflicting key binding, `' and 
`', these keymap changed to `C->' and `C-<'.
+
+   * org-tree-slide.el: Add new hooks and rename old hooks
+   - Added `org-tree-slide-before-move-next-hook' and 
`org-tree-slide-before-move-previous-hook'
+   - Renamed hooks. `org-tree-slide-mode-play-hook', 
`org-tree-slide-mode-stop-hook', `org-tree-slide-mode-before-narrow-hook', 
`org-tree-slide-mode-after-narrow-hook' will be obsoleted soon.
+
 2015-02-15  Takaaki ISHIKAWA  
 
* org-tree-slide.el (org-tree-slide): Replace ots- with org-tree-slide--
diff --git a/README.org b/README.org
index 0a5cde177a..674600edc6 100644
--- a/README.org
+++ b/README.org
@@ -1,8 +1,8 @@
 #+TITLE:   README for Org Tree Slide
 #+AUTHOR:  Takaaki Ishikawa
 #+EMAIL:   tak...@ieee.org
-#+DATE:2015-02-15
-#+UPDATE:  16:30:03
+#+DATE:2015-02-20
+#+UPDATE:  21:49:07
 #+STARTUP: content
 
 * 1. What's this?
@@ -14,15 +14,15 @@ Main features:
   - Live editable presentation
   - Fast switching of narrowing/widen
   - TODO pursuit with narrowing
-  - Displaying the current number of slides
-  - Countdown timer
+  - Displaying the current number of slides in mode line
   - CONTENT view during a presentation
   - Slide-in effect
   - Slide header from org file's header
+  - Countdown timer (currently, not available)
 
 ** 1-1. Related packages
 
-see [[http://orgmode.org/worg/org-tutorials/non-beamer-presentations.html]].
+There are various packages to make a presentation with org-mode. See 
[[http://orgmode.org/worg/org-tutorials/non-beamer-presentations.html]].
 
 * 2. Install
 
@@ -34,15 +34,19 @@ OR
 1. Eval: =(auto-install-from-url 
"https://raw.github.com/takaxp/org-tree-slide/master/org-tree-slide.el";)= (for 
auto-install users)
 2. Add =(require 'org-tree-slide)= in your =.emacs=
 
-Then open an org file, just type == and ==. A presentation will 
begin with a header, slide-in effect, and slide number.
+Then open an org file, just type =C-<= and =C->=, which means =C-M-,= and 
=C-M-.=, you can see a presentation will begin with a header, slide-in effect, 
and slide number in mode line.
 
-** el-get recipe
+** 2.1 el-get recipe
 
 If you are an [[https://github.com/dimitri/el-get][el-get]] user, just do
 
 : M-x el-get-install RET org-tree-slide
 
-** 2.1 Requirements
+** 2.2 MELPA
+
+Now, you can install `org-tree-slide' via 
[[http://melpa.org/#/org-tree-slide][MELPA]].
+
+** 2.2 Requirements
   - Org-mode 6.33x or higher version is required.
   - This elisp doesn't require any additional packages.
 
@@ -85,7 +89,7 @@ If you want to use this setting as the default, put the 
following configuration
 
 ** 4-1. `Simple'
 
-This profile will display trees of your org buffer by simple narrowing. You 
can change trees without =widen= command. Most of the visual effect is disabled.
+This profile will display trees in your org buffer by simple narrowing. You 
can change trees without =widen= command. Most of the visual effect is disabled.
 
 Type =M-x org-tree-slide-simple-profile= while =org-tree-slide-mode= is ON.
 
@@ -97,13 +101,15 @@ Type =M-x org-tree-slide-simple-profile= while 
=org-tree-slide-mode= is ON.
 
 ** 4-2. `Presentation'
 
-This profile is used as the default setting of org-tree-slide. If an org 
buffer includes =#+TITLE:=, =#+EMAIL:=, and =#+AUTHOR:=, org-tree-slide 
attempts to use those variables in the slide header. A date in the header will 
be set with the presentation of the day. You can enjoy a slide-in effect, the 
current slide number in mode line. A presentation with a count down timer is 
started by =M-x org-tree-slide-play-with-timer=.
+This profile is the default setting of org-tree-slide. If an org buffer 
includes =#+TITLE:=, =#+EMAIL:=, and =#+AUTHOR:=, org-tree-slide attempts to 
use those variables in the slide header. A date in the header will be set with 
the presentation of the day. You can enjoy a slide-in effect, the current slide 
number in mode line. 
+
+# A presentation with a count down timer is started by =M-x 
org-tree-slide-play-with-timer=.
 
-If you want to show the content of your presentation, type =C-x s c= or =M-x 
org-tree-slide-content=. All of the headings will be shown like a Table Of 
Content except some headings configured as skipping by 
=org-tree-slide-slip-outline-level=. Find a heading th

[nongnu] elpa/org-tree-slide b7471ef888 066/144: use `ots-skip-outline-level' in `ots-slide-content'

[ELPA Syncer]

branch: elpa/org-tree-slide
commit b7471ef8887b3533d6ae8a9b96afa130f2639ef8
Author: Eike Kettner 
Commit: Eike Kettner 

use `ots-skip-outline-level' in `ots-slide-content'

Headlines that are skipped in presentation don't need to show up when
displaying contents.
---
 org-tree-slide.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/org-tree-slide.el b/org-tree-slide.el
index 65280a2672..e84e34f14c 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -268,7 +268,8 @@ Profiles:
 (ots-hide-slide-header)
 (ots-move-to-the-first-heading)
 (org-overview)
-(org-content)
+(org-content (if (> org-tree-slide-skip-outline-level 0)
+ (1- org-tree-slide-skip-outline-level)))
 (message "<<  CONTENT  >>")))
 
 ;;;###autoload

[nongnu] elpa/org-tree-slide 1a3c400790 076/144: Merge branch 'master' of https://github.com/takaxp/org-tree-slide

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 1a3c4007907395d613ff6707300b0cf72e959f53
Merge: dd344a2749 4a895dec55
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Merge branch 'master' of https://github.com/takaxp/org-tree-slide

[nongnu] elpa/org-tree-slide 0ef103eb14 087/144: Merge pull request #19 from kaushalmodi/lighter-defvar-plus-typo-fixes

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 0ef103eb14da5a1007e9cf2c322571ca7440807c
Merge: cc42137ed8 403f5c002e
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Merge pull request #19 from kaushalmodi/lighter-defvar-plus-typo-fixes

Add a defvar for lighter and minor typo fixes
---
 org-tree-slide.el | 56 +--
 1 file changed, 30 insertions(+), 26 deletions(-)

diff --git a/org-tree-slide.el b/org-tree-slide.el
index 2b1c223ac5..da2b647861 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -36,7 +36,7 @@
 ;;; Usage:
 ;;1. Put this elisp into your load-path
 ;;2. Add (require 'org-tree-slide) in your .emacs
-;;3. Open an org-mode file 
+;;3. Open an org-mode file
 ;;4. Toggle org-tree-slide-mode (M-x org-tree-slide-mode)
 ;;   then Slideshow will start and you can find "TSlide" in mode line.
 ;;5. / will move between slides
@@ -79,11 +79,11 @@
 (defcustom org-tree-slide-skip-outline-level 0
   "Skip slides if a heading level is higher than or equal to this variable.
`0': never skip at any heading
-   e.g. set `4', 
+   e.g. set `4',
*** heading A  ; display as a slide
entry
 heading B ; skip! do not display as the next slide
-    heading C ; skip! 
+    heading C ; skip!
*** heading D  ; display as the next slide
 "
   :type 'integer
@@ -113,8 +113,8 @@
   :type 'boolean
   :group 'org-tree-slide)
 
-(defcustom org-tree-slide-slide-in-brank-lines 10
-  "Specify the number of brank lines, the slide will move from this line."
+(defcustom org-tree-slide-slide-in-blank-lines 10
+  "Specify the number of blank lines, the slide will move from this line."
   :type 'integer
   :group 'org-tree-slide)
 
@@ -195,13 +195,13 @@
 (defvar org-tree-slide-mode nil)
 ;; These hooks was obsoleted, and will be deleted by Oct. 2015.
 (defvar org-tree-slide-mode-play-hook nil
-  "[obsolate] A hook run when org-tree-slide--play is evaluated to start the 
slide show")
+  "[obsolete] A hook run when org-tree-slide--play is evaluated to start the 
slide show")
 (defvar org-tree-slide-mode-stop-hook nil
-  "[obsolate] A hook run when org-tree-slide--stop is evaluated to stop the 
slide show")
+  "[obsolete] A hook run when org-tree-slide--stop is evaluated to stop the 
slide show")
 (defvar org-tree-slide-mode-before-narrow-hook nil
-  "[obsolate] A hook run before evaluating 
org-tree-slide--display-tree-with-narrow")
+  "[obsolete] A hook run before evaluating 
org-tree-slide--display-tree-with-narrow")
 (defvar org-tree-slide-mode-after-narrow-hook nil
-  "[obsolate] A hook run after evaluating 
org-tree-slide--display-tree-with-narrow")
+  "[obsolete] A hook run after evaluating 
org-tree-slide--display-tree-with-narrow")
 
 ;; Updated hooks
 (defvar org-tree-slide-play-hook nil
@@ -259,6 +259,7 @@ Profiles:
 4. Display slide number in mode line
 5. Display TODO trees only
 "
+  :init-value nil
   :lighter (:eval (org-tree-slide--update-modeline))
   :keymap org-tree-slide-mode-map
   :group 'org-tree-slide
@@ -281,7 +282,7 @@ Profiles:
   (interactive)
   (org-tree-slide-mode)
   (widen)
-  (org-overview)  
+  (org-overview)
   (goto-char 1))
 
 ;;;###autoload
@@ -452,7 +453,10 @@ Profiles:
 ;;; Internal functions 
 (defvar org-tree-slide--slide-number nil)
 (make-variable-buffer-local 'org-tree-slide--slide-number)
-(setq-default org-tree-slide--slide-number " TSlide")
+
+(defvar org-tree-slide--lighter " TSlide"
+  "Lighter for org-tree-slide.
+This is displayed by default if `org-tree-slide-modeline-display' is `nil'.")
 
 (defun org-tree-slide--line-number-at-pos ()
   (save-excursion
@@ -471,7 +475,7 @@ Profiles:
  ;; just return the current org-tree-slide--slide-number quickly.
  ((equal org-tree-slide-modeline-display 'outside)
   org-tree-slide--slide-number)
- (t " TSlide"
+ (t org-tree-slide--lighter
 
 (defvar org-tree-slide--header-overlay nil
   "Flag to check the status of overlay for a slide header.")
@@ -549,7 +553,7 @@ Profiles:
 ;;(org-cycle-hide-drawers 'all) ; disabled due to performance reduction
 (org-narrow-to-subtree))
   (when org-tree-slide-slide-in-effect
-(org-tree-slide--slide-in org-tree-slide-slide-in-brank-lines))
+(org-tree-slide--slide-in org-tree-slide-slide-in-blank-lines))
   (when org-tree-slide-header
 (org-tree-slide--show-slide-header))
   (run-hooks 'org-tree-slide-after-narrow-hook)
@@ -597,7 +601,7 @@ Profiles:
  (org-tree-slide--outline-next-heading))  ; recursive call
 ((and (equal action 'skip) (equal direction 'previous))
  (org-tree-slide--outline-previous-heading))  ; recursive call
-(t 
+(t
  (setq org-tree-slide--all-skipped nil)
  nil)))
 
@@ -633,12 +637,12 @@ Profiles:
 ((org-tree-slide--heading-skip-p) 'skip)
 (t nil)))
 
-(defun org-tree-slide--slide-in (

[nongnu] elpa/org-tree-slide cc42137ed8 085/144: Merge pull request #17 from bennati/presentation-end

[ELPA Syncer]

branch: elpa/org-tree-slide
commit cc42137ed80a34775f89dd14b9b13e13afeaef8c
Merge: 3b020a663b ea33297150
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Merge pull request #17 from bennati/presentation-end

Show content after last slide
---
 org-tree-slide.el | 20 ++--
 1 file changed, 14 insertions(+), 6 deletions(-)

diff --git a/org-tree-slide.el b/org-tree-slide.el
index c9004930c7..2b1c223ac5 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -409,19 +409,23 @@ Profiles:
 (unless (equal org-tree-slide-modeline-display 'outside)
   (message "   Next >>"))
 (cond
+ ((and (org-tree-slide--narrowing-p) ;displaying a slide, not the contents
+   (org-tree-slide--last-tree-p (progn (beginning-of-line) (point 
;the last subtree
+  (org-tree-slide-content))
  ((or
(or (and (org-tree-slide--before-first-heading-p)
 (not (org-at-heading-p)))
(and (= (point-at-bol) 1) (not (org-tree-slide--narrowing-p
(or (org-tree-slide--first-heading-with-narrow-p)
(not (org-at-heading-p
-  (run-hooks 'org-tree-slide-before-move-next-hook)  
+  (run-hooks 'org-tree-slide-before-move-next-hook)
   (widen)
-  (org-tree-slide--outline-next-heading))
+  (org-tree-slide--outline-next-heading)
+  (org-tree-slide--display-tree-with-narrow))
  ;; stay the same slide (for CONTENT MODE, on the subtrees)
- (t nil))
+ (t nil (org-tree-slide--display-tree-with-narrow)))
 ;;(when (and org-tree-slide-skip-done (looking-at (concat "^\\*+ " 
org-not-done-regexp))) (org-clock-in) )
-(org-tree-slide--display-tree-with-narrow)))
+))
 
 (defun org-tree-slide-move-previous-tree ()
   "Display the previous slide"
@@ -810,9 +814,13 @@ Profiles:
 (defun org-tree-slide--beginning-of-tree ()
   "Return beginning point of the line, or t. If the position does not exist in 
the buffer, then return nil."
   (beginning-of-line)
-  (if (org-at-heading-p)
+  (if (and (not (org-tree-slide--heading-skip-p)) ;if the header has to be 
skipped
+   (org-at-heading-p))
   (point)
-(outline-previous-heading))) ; return position or nil.
+  (progn
+(outline-previous-heading)  ;go to previous heading
+(org-tree-slide--beginning-of-tree)) ;recursion until a visible 
heading is found
+  )) ; return position or nil.
 
 (provide 'org-tree-slide)
 

[nongnu] elpa/org-tree-slide 403f5c002e 086/144: Add a defvar for lighter and minor typo fixes

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 403f5c002e1af04de839e8b4ee9365f7d1d742e5
Author: Kaushal Modi 
Commit: Kaushal Modi 

Add a defvar for lighter and minor typo fixes

- defvar org-tree-slide--lighter
- Typo fixes: brank -> blank, obsolate -> obsolete
---
 org-tree-slide.el | 56 +--
 1 file changed, 30 insertions(+), 26 deletions(-)

diff --git a/org-tree-slide.el b/org-tree-slide.el
index 2b1c223ac5..da2b647861 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -36,7 +36,7 @@
 ;;; Usage:
 ;;1. Put this elisp into your load-path
 ;;2. Add (require 'org-tree-slide) in your .emacs
-;;3. Open an org-mode file 
+;;3. Open an org-mode file
 ;;4. Toggle org-tree-slide-mode (M-x org-tree-slide-mode)
 ;;   then Slideshow will start and you can find "TSlide" in mode line.
 ;;5. / will move between slides
@@ -79,11 +79,11 @@
 (defcustom org-tree-slide-skip-outline-level 0
   "Skip slides if a heading level is higher than or equal to this variable.
`0': never skip at any heading
-   e.g. set `4', 
+   e.g. set `4',
*** heading A  ; display as a slide
entry
 heading B ; skip! do not display as the next slide
-    heading C ; skip! 
+    heading C ; skip!
*** heading D  ; display as the next slide
 "
   :type 'integer
@@ -113,8 +113,8 @@
   :type 'boolean
   :group 'org-tree-slide)
 
-(defcustom org-tree-slide-slide-in-brank-lines 10
-  "Specify the number of brank lines, the slide will move from this line."
+(defcustom org-tree-slide-slide-in-blank-lines 10
+  "Specify the number of blank lines, the slide will move from this line."
   :type 'integer
   :group 'org-tree-slide)
 
@@ -195,13 +195,13 @@
 (defvar org-tree-slide-mode nil)
 ;; These hooks was obsoleted, and will be deleted by Oct. 2015.
 (defvar org-tree-slide-mode-play-hook nil
-  "[obsolate] A hook run when org-tree-slide--play is evaluated to start the 
slide show")
+  "[obsolete] A hook run when org-tree-slide--play is evaluated to start the 
slide show")
 (defvar org-tree-slide-mode-stop-hook nil
-  "[obsolate] A hook run when org-tree-slide--stop is evaluated to stop the 
slide show")
+  "[obsolete] A hook run when org-tree-slide--stop is evaluated to stop the 
slide show")
 (defvar org-tree-slide-mode-before-narrow-hook nil
-  "[obsolate] A hook run before evaluating 
org-tree-slide--display-tree-with-narrow")
+  "[obsolete] A hook run before evaluating 
org-tree-slide--display-tree-with-narrow")
 (defvar org-tree-slide-mode-after-narrow-hook nil
-  "[obsolate] A hook run after evaluating 
org-tree-slide--display-tree-with-narrow")
+  "[obsolete] A hook run after evaluating 
org-tree-slide--display-tree-with-narrow")
 
 ;; Updated hooks
 (defvar org-tree-slide-play-hook nil
@@ -259,6 +259,7 @@ Profiles:
 4. Display slide number in mode line
 5. Display TODO trees only
 "
+  :init-value nil
   :lighter (:eval (org-tree-slide--update-modeline))
   :keymap org-tree-slide-mode-map
   :group 'org-tree-slide
@@ -281,7 +282,7 @@ Profiles:
   (interactive)
   (org-tree-slide-mode)
   (widen)
-  (org-overview)  
+  (org-overview)
   (goto-char 1))
 
 ;;;###autoload
@@ -452,7 +453,10 @@ Profiles:
 ;;; Internal functions 
 (defvar org-tree-slide--slide-number nil)
 (make-variable-buffer-local 'org-tree-slide--slide-number)
-(setq-default org-tree-slide--slide-number " TSlide")
+
+(defvar org-tree-slide--lighter " TSlide"
+  "Lighter for org-tree-slide.
+This is displayed by default if `org-tree-slide-modeline-display' is `nil'.")
 
 (defun org-tree-slide--line-number-at-pos ()
   (save-excursion
@@ -471,7 +475,7 @@ Profiles:
  ;; just return the current org-tree-slide--slide-number quickly.
  ((equal org-tree-slide-modeline-display 'outside)
   org-tree-slide--slide-number)
- (t " TSlide"
+ (t org-tree-slide--lighter
 
 (defvar org-tree-slide--header-overlay nil
   "Flag to check the status of overlay for a slide header.")
@@ -549,7 +553,7 @@ Profiles:
 ;;(org-cycle-hide-drawers 'all) ; disabled due to performance reduction
 (org-narrow-to-subtree))
   (when org-tree-slide-slide-in-effect
-(org-tree-slide--slide-in org-tree-slide-slide-in-brank-lines))
+(org-tree-slide--slide-in org-tree-slide-slide-in-blank-lines))
   (when org-tree-slide-header
 (org-tree-slide--show-slide-header))
   (run-hooks 'org-tree-slide-after-narrow-hook)
@@ -597,7 +601,7 @@ Profiles:
  (org-tree-slide--outline-next-heading))  ; recursive call
 ((and (equal action 'skip) (equal direction 'previous))
  (org-tree-slide--outline-previous-heading))  ; recursive call
-(t 
+(t
  (setq org-tree-slide--all-skipped nil)
  nil)))
 
@@ -633,12 +637,12 @@ Profiles:
 ((org-tree-slide--heading-skip-p) 'skip)
 (t nil)))
 
-(defun org-tree-slide--slide-in (brank-lines)
-  (whi

[nongnu] elpa/org-tree-slide dccd80418a 089/144: Merge pull request #20 from syohex/add-section-meta

[ELPA Syncer]

branch: elpa/org-tree-slide
commit dccd80418adf5e8301695ff0d0dfe86a3c21
Merge: 0ef103eb14 8321fb1d25
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Merge pull request #20 from syohex/add-section-meta

Add meta comment Commentary and Code
---
 org-tree-slide.el | 13 +
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/org-tree-slide.el b/org-tree-slide.el
index da2b647861..f18a2fa374 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -28,12 +28,15 @@
 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
 ;; Boston, MA 02110-1301, USA.
 ;;
-;;; Requirement:
+
+;;; Commentary:
+
+;; Requirement:
 ;;org-mode 6.33x or higher version
 ;;The latest version of the org-mode is recommended.
 ;;  (see http://orgmode.org/)
 ;;
-;;; Usage:
+;; Usage:
 ;;1. Put this elisp into your load-path
 ;;2. Add (require 'org-tree-slide) in your .emacs
 ;;3. Open an org-mode file
@@ -44,7 +47,7 @@
 ;;   Select a heading and type , then Slideshow will start again.
 ;;7. Toggle org-tree-slide-mode again to exit this minor mode
 ;;
-;;; Recommended minimum settings:
+;; Recommended minimum settings:
 ;;(global-set-key (kbd "") 'org-tree-slide-mode)
 ;;(global-set-key (kbd "S-") 'org-tree-slide-skip-done-toggle)
 ;;
@@ -61,10 +64,12 @@
 ;;
 ;;Type `C-h f org-tree-slide-mode', you can find more detail.
 ;;
-;;; Note:
+;; Note:
 ;;- Make sure key maps below when you introduce this elisp.
 ;;- Customize variables, M-x customize-group ENT org-tree-slide ENT
 
+;;; Code:
+
 (require 'org)
 (require 'org-timer)
 ;;(require 'org-clock) ; org-clock-in, -out, -clocking-p

[nongnu] elpa/org-tree-slide 933d6dc6e5 079/144: Merge pull request #14 from bennati/display-tree-with-narrow

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 933d6dc6e52ca052ceaa8c4b28c069ee8d8aaee8
Merge: 362bea826d 3927af91ba
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Merge pull request #14 from bennati/display-tree-with-narrow

Heading visibility depends on the value of org-tree-slide-skip-outline-level
---
 org-tree-slide.el | 23 ++-
 1 file changed, 14 insertions(+), 9 deletions(-)

diff --git a/org-tree-slide.el b/org-tree-slide.el
index 63d3ef9532..f5d0a65137 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -520,16 +520,18 @@ Profiles:
 (defun org-tree-slide--display-tree-with-narrow ()
   "Show a tree with narrowing and also set a header at the head of slide."
   (run-hooks 'org-tree-slide-mode-before-narrow-hook)
-  (run-hooks 'org-tree-slide-before-narrow-hook)  
+  (run-hooks 'org-tree-slide-before-narrow-hook)
   (when (equal org-tree-slide-modeline-display 'outside)
 (setq org-tree-slide--slide-number
- (format " %s" (org-tree-slide--count-slide (point
+(format " %s" (org-tree-slide--count-slide (point
 (setq org-tree-slide--previous-line (org-tree-slide--line-number-at-pos)))
   (goto-char (point-at-bol))
   (unless (org-tree-slide--before-first-heading-p)
 (hide-subtree) ; support CONTENT (subtrees are shown)
 (org-show-entry)
-(show-children)
+(if (org-tree-slide--heading-level-skip-level-p (1+ (org-outline-level))) 
;if this is the last level to be displayed, show the full content
+(show-all)
+  (show-children))
 ;;(org-cycle-hide-drawers 'all) ; disabled due to performance reduction
 (org-narrow-to-subtree))
   (when org-tree-slide-slide-in-effect
@@ -579,19 +581,22 @@ Profiles:
 *** hoge   ; nil
 "
   (or (or (org-tree-slide--heading-done-skip-p)
- (org-tree-slide--heading-level-skip-p))
+(org-tree-slide--heading-level-skip-p))
   (org-tree-slide--heading-skip-comment-p)))
 
-(defun org-tree-slide--heading-level-skip-p ()
+(defun org-tree-slide--heading-level-skip-level-p (level)
   (and (> org-tree-slide-skip-outline-level 0)
-   (<= org-tree-slide-skip-outline-level (org-outline-level
+   (<= org-tree-slide-skip-outline-level level)))
+
+(defun org-tree-slide--heading-level-skip-p ()
+  (org-tree-slide--heading-level-skip-level-p (org-outline-level)))
 
 (defun org-tree-slide--heading-done-skip-p ()
   (and org-tree-slide-skip-done
(not
-   (looking-at
-;; 6.33x does NOT suport org-outline-regexp-bol 
-(concat "^\\*+ " org-not-done-regexp)
+  (looking-at
+   ;; 6.33x does NOT suport org-outline-regexp-bol
+   (concat "^\\*+ " org-not-done-regexp)
 
 (defun org-tree-slide--heading-skip-comment-p ()
   (and org-tree-slide-skip-comments

[nongnu] elpa/org-tree-slide 42468d8a09 097/144: Merge branch 'master' of https://github.com/takaxp/org-tree-slide

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 42468d8a0960658f6f3e44f8a4044dc552b00252
Merge: 6608f8d43b 9f1b898223
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Merge branch 'master' of https://github.com/takaxp/org-tree-slide
---
 LICENSE | 674 
 1 file changed, 674 insertions(+)

diff --git a/LICENSE b/LICENSE
new file mode 100644
index 00..94a9ed024d
--- /dev/null
+++ b/LICENSE
@@ -0,0 +1,674 @@
+GNU GENERAL PUBLIC LICENSE
+   Version 3, 29 June 2007
+
+ Copyright (C) 2007 Free Software Foundation, Inc. 
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+
+Preamble
+
+  The GNU General Public License is a free, copyleft license for
+software and other kinds of works.
+
+  The licenses for most software and other practical works are designed
+to take away your freedom to share and change the works.  By contrast,
+the GNU General Public License is intended to guarantee your freedom to
+share and change all versions of a program--to make sure it remains free
+software for all its users.  We, the Free Software Foundation, use the
+GNU General Public License for most of our software; it applies also to
+any other work released this way by its authors.  You can apply it to
+your programs, too.
+
+  When we speak of free software, we are referring to freedom, not
+price.  Our General Public Licenses are designed to make sure that you
+have the freedom to distribute copies of free software (and charge for
+them if you wish), that you receive source code or can get it if you
+want it, that you can change the software or use pieces of it in new
+free programs, and that you know you can do these things.
+
+  To protect your rights, we need to prevent others from denying you
+these rights or asking you to surrender the rights.  Therefore, you have
+certain responsibilities if you distribute copies of the software, or if
+you modify it: responsibilities to respect the freedom of others.
+
+  For example, if you distribute copies of such a program, whether
+gratis or for a fee, you must pass on to the recipients the same
+freedoms that you received.  You must make sure that they, too, receive
+or can get the source code.  And you must show them these terms so they
+know their rights.
+
+  Developers that use the GNU GPL protect your rights with two steps:
+(1) assert copyright on the software, and (2) offer you this License
+giving you legal permission to copy, distribute and/or modify it.
+
+  For the developers' and authors' protection, the GPL clearly explains
+that there is no warranty for this free software.  For both users' and
+authors' sake, the GPL requires that modified versions be marked as
+changed, so that their problems will not be attributed erroneously to
+authors of previous versions.
+
+  Some devices are designed to deny users access to install or run
+modified versions of the software inside them, although the manufacturer
+can do so.  This is fundamentally incompatible with the aim of
+protecting users' freedom to change the software.  The systematic
+pattern of such abuse occurs in the area of products for individuals to
+use, which is precisely where it is most unacceptable.  Therefore, we
+have designed this version of the GPL to prohibit the practice for those
+products.  If such problems arise substantially in other domains, we
+stand ready to extend this provision to those domains in future versions
+of the GPL, as needed to protect the freedom of users.
+
+  Finally, every program is threatened constantly by software patents.
+States should not allow patents to restrict development and use of
+software on general-purpose computers, but in those that do, we wish to
+avoid the special danger that patents applied to a free program could
+make it effectively proprietary.  To prevent this, the GPL assures that
+patents cannot be used to render the program non-free.
+
+  The precise terms and conditions for copying, distribution and
+modification follow.
+
+   TERMS AND CONDITIONS
+
+  0. Definitions.
+
+  "This License" refers to version 3 of the GNU General Public License.
+
+  "Copyright" also means copyright-like laws that apply to other kinds of
+works, such as semiconductor masks.
+
+  "The Program" refers to any copyrightable work licensed under this
+License.  Each licensee is addressed as "you".  "Licensees" and
+"recipients" may be individuals or organizations.
+
+  To "modify" a work means to copy from or adapt all or part of the work
+in a fashion requiring copyright permission, other than the making of an
+exact copy.  The resulting work is called a "modified version" of the
+earlier work or a work "based on" the earlier work.
+
+  A "covered work" means either the unmodified Program or a work based
+on the Program.
+
+  To "propagate" 

[nongnu] elpa/org-tree-slide 3f1d646eb1 098/144: Support faces for org-level-1, 4

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 3f1d646eb1988d0250248834d260212858200173
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Support faces for org-level-1,4
---
 org-tree-slide.el | 28 ++--
 1 file changed, 26 insertions(+), 2 deletions(-)

diff --git a/org-tree-slide.el b/org-tree-slide.el
index e8377a8385..5da8c10082 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -180,6 +180,11 @@
 map)
   "The keymap for `org-tree-slide'.")
 
+(defface org-tree-slide-heading-level-1-init
+  '((t (:inherit outline-1)))
+  "Level 1."
+  :group 'org-tree-slide)
+
 (defface org-tree-slide-heading-level-2-init
   '((t (:inherit outline-2)))
   "Level 2."
@@ -190,6 +195,16 @@
   "Level 3."
   :group 'org-tree-slide)
 
+(defface org-tree-slide-heading-level-4-init
+  '((t (:inherit outline-4)))
+  "Level 4."
+  :group 'org-tree-slide)
+
+(defface org-tree-slide-heading-level-1
+  '((t (:inherit outline-1 :height 1.5 :bold t)))
+  "Level 1."
+  :group 'org-tree-slide)
+
 (defface org-tree-slide-heading-level-2
   '((t (:inherit outline-2 :height 1.4 :bold t)))
   "Level 2."
@@ -200,6 +215,11 @@
   "Level 3."
   :group 'org-tree-slide)
 
+(defface org-tree-slide-heading-level-4
+  '((t (:inherit outline-4 :height 1.2 :bold t)))
+  "Level 4."
+  :group 'org-tree-slide)
+
 (defvar org-tree-slide-mode nil)
 ;; These hooks was obsoleted, and will be deleted by Oct. 2015.
 (defvar org-tree-slide-mode-play-hook nil
@@ -779,12 +799,16 @@ concat the headers."
   (unless org-tree-slide-never-touch-face
 (cond (status
(custom-set-faces
+'(org-level-1 ((t (:inherit org-tree-slide-heading-level-1
 '(org-level-2 ((t (:inherit org-tree-slide-heading-level-2
-'(org-level-3 ((t (:inherit org-tree-slide-heading-level-3))
+'(org-level-3 ((t (:inherit org-tree-slide-heading-level-3
+'(org-level-4 ((t (:inherit org-tree-slide-heading-level-4))
   (t
(custom-set-faces
+'(org-level-1 ((t (:inherit org-tree-slide-heading-level-1-init
 '(org-level-2 ((t (:inherit org-tree-slide-heading-level-2-init
-'(org-level-3 ((t (:inherit 
org-tree-slide-heading-level-3-init)
+'(org-level-3 ((t (:inherit org-tree-slide-heading-level-3-init
+'(org-level-4 ((t (:inherit 
org-tree-slide-heading-level-4-init)

 
 (defun org-tree-slide--count-slide (&optional pos)

[nongnu] elpa/org-tree-slide fed7ec7e6d 093/144: Added breadcrumbs feature (by Matus)

[ELPA Syncer]

branch: elpa/org-tree-slide
commit fed7ec7e6df59cffcdb4c13a9345f4d828404dd8
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Added breadcrumbs feature (by Matus)
---
 ChangeLog |  5 +
 README.org| 43 +++
 org-tree-slide.el | 31 ++-
 3 files changed, 46 insertions(+), 33 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 3ebdfd1251..be386fe3d3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2016-05-14  Takaaki ISHIKAWA  
+
+   * org-tree-slide.el: Merged breadcrumbs feature (#23)
+   - org-tree-slide-breadcrumbs is added to show breadcrumbs in the header
+
 2015-12-23  Takaaki ISHIKAWA  
 
* org-tree-slide.el: Added Version header
diff --git a/README.org b/README.org
index 93ba0a1b85..46d62df8e9 100644
--- a/README.org
+++ b/README.org
@@ -1,14 +1,13 @@
 #+TITLE:   README for Org Tree Slide
 #+AUTHOR:  Takaaki Ishikawa
 #+EMAIL:   tak...@ieee.org
-#+DATE:2015-12-23
-#+UPDATE:  10:59:42
+#+DATE:2016-05-14
+#+UPDATE:  15:24:12
 #+STARTUP: content
 
 
[[http://melpa.org/#/org-tree-slide][http://melpa.org/packages/org-tree-slide-badge.svg]]
 
[[http://stable.melpa.org/#/org-tree-slide][http://stable.melpa.org/packages/org-tree-slide-badge.svg]]
 
-
 * 1. What's this?
 
 The main purpose of this elisp is to handle each tree in an org buffer as a 
slide by simple narrowing. This emacs lisp is a minor mode for Emacs Org-mode. 
@@ -141,23 +140,26 @@ If you feel the cursor moving is very slow, please change 
a value of =org-tree-s
 
 * 5. User variables
 
-|+--+---+-|
-|| Variable | Default value | Select  |
-|+--+---+-|
-|  1 | org-tree-slide-skip-outline-level| 0 | Numeric |
-|  2 | org-tree-slide-header| t | Boolean |
-|  3 | org-tree-slide-slide-in-effect   | t | Boolean |
-|  4 | org-tree-slide-cursor-init   | t | Boolean |
-|  5 | org-tree-slide-slide-in-brank-lines  | 10| Numeric |
-|  6 | org-tree-slide-slide-in-waiting  | 0.02  | Float   |
-|  7 | org-tree-slide-heading-emphasis  | nil   | Boolean |
-|  8 | org-tree-slide-never-touch-face  | nil   | Boolean |
-|  9 | org-tree-slide-skip-done | nil   | Boolean |
-| 10 | org-tree-slide-skip-comments | t | Boolean |
-| 11 | org-tree-slide-activate-message  | Hello...  | String  |
-| 12 | org-tree-slide-deactivate-message| Quit, Bye!| String  |
-| 13 | org-tree-slide-modeline-display  | 'outside  | [*1]|
-| 14 | org-tree-slide-fold-subtrees-skipped | t | Boolean |
+#+CAPTION: User variables
+|++---+-|
+|| Variable   | Default value | Select  |
+|++---+-|
+|  1 | org-tree-slide-skip-outline-level  | 0 | Numeric |
+|  2 | org-tree-slide-header  | t | Boolean |
+|  3 | org-tree-slide-slide-in-effect | t | Boolean |
+|  4 | org-tree-slide-cursor-init | t | Boolean |
+|  5 | org-tree-slide-slide-in-brank-lines| 10| Numeric |
+|  6 | org-tree-slide-slide-in-waiting| 0.02  | Float   |
+|  7 | org-tree-slide-heading-emphasis| nil   | Boolean |
+|  8 | org-tree-slide-never-touch-face| nil   | Boolean |
+|  9 | org-tree-slide-skip-done   | nil   | Boolean |
+| 10 | org-tree-slide-skip-comments   | t | Boolean |
+| 11 | org-tree-slide-activate-message| Hello...  | String  |
+| 12 | org-tree-slide-deactivate-message  | Quit, Bye!| String  |
+| 13 | org-tree-slide-modeline-display| 'outside  | [*1]|
+| 14 | org-tree-slide-fold-subtrees-skipped   | t | Boolean |
+| 15 | org-tree-slide-breadcrumbs | " > " | String  |
+| 16 | org-tree-slide-breadcrumbs-hide-todo-state | t | Boolean |
 
 #+BEGIN_QUOTE
 [*1] { nil| 'lighter | 'outside }
@@ -233,6 +235,7 @@ see also ChangeLog
 
|-+--+-|
 | Version | Date | Description 
|
 
|-+--+-|
+| v2.8.5  | 2016-05-14@14:09 | Added breadcrumbs feature (by Matus)
|
 | v2.8.4  | 2015-08-12@21:35 | 'COMMENT'-subtree will be hidden (by Stefano)   
|
 | v2.8.3  | 2015-08-09@01:04 | Added a flag to reveal subtrees to be skip

[nongnu] elpa/org-tree-slide 2b833e9faa 101/144: Update comments

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 2b833e9faa291248b73aa7d69d17341aa5a9e2b9
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Update comments
---
 org-tree-slide.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/org-tree-slide.el b/org-tree-slide.el
index 7484e016fe..a4f0e2c9ee 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -6,8 +6,8 @@
 ;; Version: 2.8.8
 ;; Maintainer: Takaaki ISHIKAWA 
 ;; Twitter: @takaxp
-;; Repository: https://github.com/takaxp/org-tree-slide
-;; Keywords: org-mode, presentation, narrowing
+;; URL: https://github.com/takaxp/org-tree-slide
+;; Keywords: convenience, org-mode, presentation, narrowing
 ;;
 ;; Committers: Yuuki ARISAWA (@uk-ar)
 ;; Eric S Fraga

[nongnu] elpa/org-tree-slide 946984e924 106/144: Add new private functions

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 946984e9249424bd320ac831cffb022832ccdf60
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Add new private functions

- org-tree-slide--last-point-at-bot
- org-tree-slide--beginning-of-tree (revise)
---
 org-tree-slide.el | 58 ++-
 1 file changed, 27 insertions(+), 31 deletions(-)

diff --git a/org-tree-slide.el b/org-tree-slide.el
index 6b2d18f8df..c54f20638a 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -75,7 +75,6 @@
 
 (require 'org)
 (require 'org-timer)
-;;(require 'org-clock) ; org-clock-in, -out, -clocking-p
 
 (defconst org-tree-slide "2.8.11"
   "The version number of the org-tree-slide.el.")
@@ -444,7 +443,8 @@ Profiles:
   (message "   Next >>"))
 (cond
  ((and (org-tree-slide--narrowing-p) ;displaying a slide, not the contents
-   (org-tree-slide--last-tree-p (progn (beginning-of-line) (point 
;the last subtree
+   (org-tree-slide--last-tree-p
+(progn (beginning-of-line) (point ;the last subtree
   (org-tree-slide-content))
  ((or
(or (and (org-tree-slide--before-first-heading-p)
@@ -457,9 +457,7 @@ Profiles:
   (org-tree-slide--outline-next-heading)
   (org-tree-slide--display-tree-with-narrow))
  ;; stay the same slide (for CONTENT MODE, on the subtrees)
- (t nil (org-tree-slide--display-tree-with-narrow)))
-;;(when (and org-tree-slide-skip-done (looking-at (concat "^\\*+ " 
org-not-done-regexp))) (org-clock-in) )
-))
+ (t nil (org-tree-slide--display-tree-with-narrow)
 
 (defun org-tree-slide-move-previous-tree ()
   "Display the previous slide."
@@ -477,7 +475,6 @@ Profiles:
   (org-tree-slide--outline-previous-heading)
   (org-tree-slide--outline-previous-heading))
  (t (org-tree-slide--outline-previous-heading)))
-;;(when (and org-tree-slide-skip-done (looking-at (concat "^\\*+ " 
org-not-done-regexp))) (org-clock-in) )
 (org-tree-slide--display-tree-with-narrow)
 ;; To avoid error of missing header in Emacs24
 (if (= emacs-major-version 24)
@@ -563,7 +560,6 @@ This is displayed by default if 
`org-tree-slide-modeline-display' is nil.")
 (org-timer-stop))
   (when org-tree-slide-heading-emphasis
 (org-tree-slide--apply-custom-heading-face nil))
-  ;;  (when (and org-tree-slide-skip-done (looking-at (concat "^\\*+ " 
org-not-done-regexp))) (when (org-clocking-p) (org-clock-out) ) )
   (run-hooks 'org-tree-slide-mode-stop-hook)
   (run-hooks 'org-tree-slide-stop-hook)
   (when org-tree-slide-deactivate-message
@@ -646,8 +642,8 @@ This is displayed by default if 
`org-tree-slide-modeline-display' is nil.")
hoge; nil
hoge; nil
 *** hoge   ; nil"
-  (or (or (org-tree-slide--heading-done-skip-p)
-  (org-tree-slide--heading-level-skip-p))
+  (or (org-tree-slide--heading-done-skip-p)
+  (org-tree-slide--heading-level-skip-p)
   (org-tree-slide--heading-skip-comment-p)))
 
 (defun org-tree-slide--heading-level-skip-p (&optional heading-level)
@@ -840,6 +836,28 @@ Some number of BLANK-LINES will be shown below the header."
  (t
   (format "[%d/%d]" current-slide count)))
 
+(defun org-tree-slide--last-point-at-bot ()
+  "Return nil, if no heading is the last tree.  Otherwise, return the point.
+Searching the last point will start from the current cursor position.
+Move point to an appropriate position before searching by call this function."
+  (save-excursion
+(save-restriction
+  (widen)
+  (unless (org-tree-slide--before-first-heading-p)
+(org-tree-slide--beginning-of-tree)
+(if (org-tree-slide--heading-skip-p)
+(when (outline-previous-heading)
+  (org-tree-slide--last-point-at-bot))
+  (point))
+
+(defun org-tree-slide--beginning-of-tree ()
+  "Move point to beginning of tree.
+If the cursor exist before first heading, do nothing."
+  (unless (org-tree-slide--before-first-heading-p)
+(beginning-of-line)
+(unless (org-at-heading-p)
+  (org-tree-slide--outline-previous-heading
+
 (defun org-tree-slide--active-p ()
   "Return nil, if the current `major-mode' is not `org-mode'."
   (and org-tree-slide-mode (equal major-mode 'org-mode)))
@@ -885,28 +903,6 @@ Some number of BLANK-LINES will be shown below the header."
 (= p l)
   nil)
 
-(defun org-tree-slide--last-point-at-bot ()
-  "Return nil, if no heading is the last tree.  Otherwise, return the point.
-Searching the last point will start from the current cursor position.
-Move point to an appropriate position before searching by call this function."
-  (save-excursion
-(save-restriction
-  (widen)
-  (unless (org-tree-slide--before-first-heading-p)
-(org-tree-slide--beginning-of-tree)
-(if (org-tree-slide--heading-skip-p)
-(when (outline-previous-heading)
-  

[nongnu] elpa/org-tree-slide 8dc16ab4ed 107/144: Revise `org-tree-slide-content`

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 8dc16ab4edf627b54b6e76d38bbdc2634dda5757
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Revise `org-tree-slide-content`
---
 org-tree-slide.el | 7 ---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/org-tree-slide.el b/org-tree-slide.el
index c54f20638a..85063413a2 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -325,8 +325,10 @@ Profiles:
 (org-tree-slide--hide-slide-header)
 (org-tree-slide--move-to-the-first-heading)
 (org-overview)
-(org-content (if (> org-tree-slide-skip-outline-level 0)
- (1- org-tree-slide-skip-outline-level)))
+(cond ((eq 0 org-tree-slide-skip-outline-level)
+   (org-content))
+  ((< 2 org-tree-slide-skip-outline-level)
+   (org-content (1- org-tree-slide-skip-outline-level
 (message "<<  CONTENT  >>")))
 
 ;;;###autoload
@@ -648,7 +650,6 @@ This is displayed by default if 
`org-tree-slide-modeline-display' is nil.")
 
 (defun org-tree-slide--heading-level-skip-p (&optional heading-level)
   "Check the current heading should be skipped or not based on outline level.
-
 If HEADING-LEVEL is non-nil, the provided outline level is checked."
   (and (> org-tree-slide-skip-outline-level 0)
(<= org-tree-slide-skip-outline-level

[nongnu] elpa/org-tree-slide 2ff3a05844 109/144: Removed obsoleted hooks

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 2ff3a05844ff705c1bec74c68335a846ac7b5e76
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Removed obsoleted hooks

- removed org-tree-slide-mode-play-hook
- removed org-tree-slide-mode-stop-hook
- removed org-tree-slide-mode-before-narrow-hook
- removed org-tree-slide-mode-after-narrow-hook
---
 org-tree-slide.el | 21 +++--
 1 file changed, 3 insertions(+), 18 deletions(-)

diff --git a/org-tree-slide.el b/org-tree-slide.el
index b261580597..823e82ff06 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2011-2018 Takaaki ISHIKAWA
 ;;
 ;; Author: Takaaki ISHIKAWA 
-;; Version: 2.8.11
+;; Version: 2.8.12
 ;; Maintainer: Takaaki ISHIKAWA 
 ;; Twitter: @takaxp
 ;; URL: https://github.com/takaxp/org-tree-slide
@@ -76,7 +76,7 @@
 (require 'org)
 (require 'org-timer)
 
-(defconst org-tree-slide "2.8.11"
+(defconst org-tree-slide "2.8.12"
   "The version number of the org-tree-slide.el.")
 
 (defgroup org-tree-slide nil
@@ -222,17 +222,6 @@ nil: keep the same position."
   :group 'org-tree-slide)
 
 (defvar org-tree-slide-mode nil)
-;; These hooks was obsoleted, and will be deleted by Oct. 2015.
-(defvar org-tree-slide-mode-play-hook nil
-  "[obsolete] A hook run when `org-tree-slide--play' is evaluated to start the 
slide show.")
-(defvar org-tree-slide-mode-stop-hook nil
-  "[obsolete] A hook run when `org-tree-slide--stop' is evaluated to stop the 
slide show.")
-(defvar org-tree-slide-mode-before-narrow-hook nil
-  "[obsolete] A hook run before evaluating 
`org-tree-slide--display-tree-with-narrow'.")
-(defvar org-tree-slide-mode-after-narrow-hook nil
-  "[obsolete] A hook run after evaluating 
`org-tree-slide--display-tree-with-narrow'.")
-
-;; Updated hooks
 (defvar org-tree-slide-play-hook nil
   "A hook run when `org-tree-slide--play' is evaluated to start the 
slideshow.")
 (defvar org-tree-slide-stop-hook nil
@@ -530,7 +519,6 @@ This is displayed by default if 
`org-tree-slide-modeline-display' is nil.")
 
 (defun org-tree-slide--play ()
   "Start slide view with the first tree of the org mode buffer."
-  (run-hooks 'org-tree-slide-mode-play-hook)
   (run-hooks 'org-tree-slide-play-hook)
   (if (org-tree-slide--all-skip-p)
   (let ((org-tree-slide-deactivate-message
@@ -571,14 +559,12 @@ This is displayed by default if 
`org-tree-slide-modeline-display' is nil.")
 (org-timer-stop))
   (when org-tree-slide-heading-emphasis
 (org-tree-slide--apply-custom-heading-face nil))
-  (run-hooks 'org-tree-slide-mode-stop-hook)
   (run-hooks 'org-tree-slide-stop-hook)
   (when org-tree-slide-deactivate-message
 (message "%s" org-tree-slide-deactivate-message)))
 
 (defun org-tree-slide--display-tree-with-narrow ()
   "Show a tree with narrowing and also set a header at the head of slide."
-  (run-hooks 'org-tree-slide-mode-before-narrow-hook)
   (run-hooks 'org-tree-slide-before-narrow-hook)
   (when (equal org-tree-slide-modeline-display 'outside)
 (setq org-tree-slide--slide-number
@@ -599,8 +585,7 @@ This is displayed by default if 
`org-tree-slide-modeline-display' is nil.")
 (org-tree-slide--slide-in org-tree-slide-slide-in-blank-lines))
   (when org-tree-slide-header
 (org-tree-slide--show-slide-header))
-  (run-hooks 'org-tree-slide-after-narrow-hook)
-  (run-hooks 'org-tree-slide-mode-after-narrow-hook))
+  (run-hooks 'org-tree-slide-after-narrow-hook))
 
 (defun org-tree-slide--show-subtree ()
   "Show everything after this heading at deeper levels except COMMENT items."

[nongnu] elpa/org-tree-slide a3b46848e4 111/144: org-tree-slide-content: Return to exact point in slide presentation (#30)

[ELPA Syncer]

branch: elpa/org-tree-slide
commit a3b46848e45948be9d06c51431dc502ef84d1c5e
Author: Boruch Baum 
Commit: Takaaki ISHIKAWA 

org-tree-slide-content: Return to exact point in slide presentation (#30)

+ When entering content-view, this places the cursor at the point in
  the heading tree where the user was, instead of always at the top of
  the file.

+ With this feature, a user can enter content-view, and return to the
  exact position within the presentation in just one command, M-x
  org-tree-slide-content.

  + Works even after navigating within content-view.

  + Useful also when forgetting exactly where one had been before
entering content-view.
---
 ChangeLog |  7 ++-
 org-tree-slide.el | 35 +--
 2 files changed, 31 insertions(+), 11 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index cb748c2c6c..56741df325 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2019-06-30  Boruch Baum  
+
+   * org-tree-slide.el (org-tree-slide-content): Toggle back to slide
+   presentation, to exact position where you left off.
+   (org-tree-slide-content-pos): New variable to support this feature.
+
 2018-11-26  Takaaki ISHIKAWA  
 
* org-tree-slide.el: Extract header colors from default face of frame
@@ -235,4 +241,3 @@
 2011-09-28  Takaaki ISHIKAWA  
 
* org-tree-slide.el: Initial release
-
diff --git a/org-tree-slide.el b/org-tree-slide.el
index 2e1f411b1d..a62f27f8a7 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -238,6 +238,8 @@ nil: keep the same position."
   "A hook run before moving to the previous slide.")
 (defvar org-tree-slide-before-content-view-hook nil
   "A hook run before showing the content.")
+(defvar org-tree-slide-content-pos nil
+  "Where to return when toggling function `org-tree-slide-content'.")
 
 ;;;###autoload
 (define-minor-mode org-tree-slide-mode
@@ -312,16 +314,29 @@ Profiles:
   "Change the display for viewing content of the org file during the slide 
view mode is active."
   (interactive)
   (when (org-tree-slide--active-p)
-(run-hooks 'org-tree-slide-before-content-view-hook)
-(widen)
-(org-tree-slide--hide-slide-header)
-(org-tree-slide--move-to-the-first-heading)
-(org-overview)
-(cond ((eq 0 org-tree-slide-skip-outline-level)
-   (org-content))
-  ((< 2 org-tree-slide-skip-outline-level)
-   (org-content (1- org-tree-slide-skip-outline-level
-(message "<<  CONTENT  >>")))
+(cond
+ (org-tree-slide-content-pos
+; (widen)
+  (goto-char org-tree-slide-content-pos)
+  (org-tree-slide--display-tree-with-narrow)
+  (goto-char org-tree-slide-content-pos)
+  (setq org-tree-slide-content-pos nil))
+ (t
+  (setq org-tree-slide-content-pos
+(max (1+ (point-min)) (point)))
+  (run-hooks 'org-tree-slide-before-content-view-hook)
+  (widen)
+  (org-tree-slide--hide-slide-header)
+  (org-tree-slide--move-to-the-first-heading)
+  (org-overview)
+  (cond ((eq 0 org-tree-slide-skip-outline-level)
+ (org-content))
+((< 2 org-tree-slide-skip-outline-level)
+ (org-content (1- org-tree-slide-skip-outline-level
+; (goto-char (point-min))
+  (redisplay)
+  (goto-char org-tree-slide-content-pos)
+  (message "<<  CONTENT  >>")
 
 ;;;###autoload
 (defun org-tree-slide-move-next-tree ()

[nongnu] elpa/org-tree-slide 7bf09a02bd 114/144: Merge pull request #31 from ndw/slide-date

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 7bf09a02bd2d8f1ccfcb5209bfb18fbe02d1f44e
Merge: 036a36eec1 9d15bd9fa1
Author: Takaaki ISHIKAWA 
Commit: GitHub 

Merge pull request #31 from ndw/slide-date

Add support for date header
---
 org-tree-slide.el | 14 +-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/org-tree-slide.el b/org-tree-slide.el
index dede32cfa6..71073834fa 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -708,6 +708,9 @@ If HEADING-LEVEL is non-nil, the provided outline level is 
checked."
 (defvar org-tree-slide-author nil
   "If you have \"#+author:\" line in your org buffer, it will be used as a 
name of the slide author.")
 
+(defvar org-tree-slide-date nil
+  "If you have \"#+date:\" line in your org buffer, it will be used as the 
date.")
+
 (defcustom org-tree-slide-breadcrumbs " > "
   "Display breadcrumbs in the slide header.
 
@@ -733,6 +736,15 @@ concat the headers."
'org-tree-slide-author "#\\+AUTHOR:[ \t]*\\(.*\\)$" limit)
   (org-tree-slide--set-header-var-by-regxep
'org-tree-slide-email "#\\+EMAIL:[ \t]*\\(.*\\)$" limit)
+
+  ; Use the date header or the current date if there isn't one
+  (setq org-tree-slide-date nil)
+  (org-tree-slide--set-header-var-by-regxep
+   'org-tree-slide-date "#\\+DATE:[ \t]*\\(.*\\)$" limit)
+  (if (not org-tree-slide-date)
+  (setq org-tree-slide-date
+(format-time-string "%Y-%m-%d")))
+
   (org-tree-slide--set-header-var-by-regxep
'org-tree-slide-startup "#\\+STARTUP:[ \t]*\\(.*\\)$" limit
 
@@ -778,7 +790,7 @@ Some number of BLANK-LINES will be shown below the header."
(concat (if org-tree-slide-title org-tree-slide-title
  (buffer-name))
"\n"
-   (format-time-string "%Y-%m-%d") "  "
+   org-tree-slide-date "  "
(when org-tree-slide-author
  (concat org-tree-slide-author "  "))
(when org-tree-slide-email

[nongnu] elpa/org-tree-slide 98fec74fcf 122/144: Now depends on emacs 24.3

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 98fec74fcf9956323d1f12c3f3a0eb28fc6f794e
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Now depends on emacs 24.3
---
 ChangeLog |  5 +
 org-tree-slide.el | 15 ++-
 2 files changed, 11 insertions(+), 9 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index eb4a4e82c5..b7c4dda328 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2020-06-11  Takaaki ISHIKAWA  
+
+   * org-tree-slide.el: Depends on emacs 24.3
+   Replace org-tree-slide--narrowing-p with buffer-narrowed-p.
+
 2020-06-05  Takaaki ISHIKAWA  
 
* org-tree-slide.el (org-tree-slide-indicator): New plist to control 
showing messages in mini buffer
diff --git a/org-tree-slide.el b/org-tree-slide.el
index 77517185f4..68185c1f93 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -3,7 +3,8 @@
 ;; Copyright (C) 2011-2020 Takaaki ISHIKAWA
 ;;
 ;; Author: Takaaki ISHIKAWA 
-;; Version: 2.8.15
+;; Version: 2.8.16
+;; Package-Requires: ((emacs "24.3"))
 ;; Maintainer: Takaaki ISHIKAWA 
 ;; Twitter: @takaxp
 ;; URL: https://github.com/takaxp/org-tree-slide
@@ -364,13 +365,13 @@ Profiles:
 (message "%s" msg)))
 (cond
  ;; displaying a slide, not the contents
- ((and (org-tree-slide--narrowing-p)
+ ((and (buffer-narrowed-p)
(org-tree-slide--last-tree-p (point)))
   (org-tree-slide-content))
  ((or
(or (and (org-tree-slide--before-first-heading-p)
 (not (org-at-heading-p)))
-   (and (= (point-at-bol) 1) (not (org-tree-slide--narrowing-p
+   (and (= (point-at-bol) 1) (not (buffer-narrowed-p
(or (org-tree-slide--first-heading-with-narrow-p)
(not (org-at-heading-p
   (run-hooks 'org-tree-slide-before-move-next-hook)
@@ -914,10 +915,6 @@ If the cursor exist before first heading, do nothing."
   "Return nil, if the current `major-mode' is not `org-mode'."
   (and org-tree-slide-mode (equal major-mode 'org-mode)))
 
-(defun org-tree-slide--narrowing-p ()
-  "Check the current status if narrowing or not."
-  (buffer-narrowed-p))
-
 (defun org-tree-slide--before-first-heading-p ()
   "Extension of `org-before-first-heading-p' to support org 6.33x.
 #+TITLE: title ; t
@@ -926,7 +923,7 @@ If the cursor exist before first heading, do nothing."
   hoge ; nil
 ** second  ; nil
 ** third   ; nil"
-  (and (org-before-first-heading-p) (not (org-tree-slide--narrowing-p
+  (and (org-before-first-heading-p) (not (buffer-narrowed-p
 
 (defun org-tree-slide--first-heading-with-narrow-p ()
   "Check the current point is on the first heading with narrowing.
@@ -936,7 +933,7 @@ If the cursor exist before first heading, do nothing."
 *** second ; nil
 hoge   ; nil
 *** third  ; nil"
-  (and (org-tree-slide--narrowing-p) (= (point-at-bol) (point-min
+  (and (buffer-narrowed-p) (= (point-at-bol) (point-min
 
 (defun org-tree-slide--all-skip-p ()
   "Check the buffer has at least one slide to be shown."

[nongnu] elpa/org-tree-slide a041b92c14 115/144: Add demo

[ELPA Syncer]

branch: elpa/org-tree-slide
commit a041b92c14ee81e1f85b837d242ac85df7d0bcb7
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Add demo
---
 README.org | 48 +---
 1 file changed, 25 insertions(+), 23 deletions(-)

diff --git a/README.org b/README.org
index 599d84f717..dca9b9a49e 100644
--- a/README.org
+++ b/README.org
@@ -1,13 +1,15 @@
-#+TITLE:   README for Org Tree Slide
-#+AUTHOR:  Takaaki Ishikawa
-#+EMAIL:   tak...@ieee.org
-#+DATE:2018-04-25
-#+UPDATE:  08:35:36
-#+STARTUP: content
+#+title:   README for Org Tree Slide
+#+author:  Takaaki Ishikawa
+#+email:   tak...@ieee.org
+#+date:[2020-05-27 Wed 23:08]
+#+startup: content
 
 
[[http://melpa.org/#/org-tree-slide][http://melpa.org/packages/org-tree-slide-badge.svg]]
 
[[http://stable.melpa.org/#/org-tree-slide][http://stable.melpa.org/packages/org-tree-slide-badge.svg]]
 
+#+caption: An example demo of org-tree-slide
+[[https://github.com/takaxp/contents/blob/master/org-tree-slide/demo1.gif]]
+
 * 1. What's this?
 
 The main purpose of this elisp is to handle each tree in an org buffer as a 
slide by simple narrowing. This emacs lisp is a minor mode for Emacs Org-mode.
@@ -41,12 +43,12 @@ Then open an org file, just type =C-<= and =C->=, which 
means =C-M-,= and =C-M-.
 
 It is recommended to change the keybindings to make your presentation 
smoothly. Here is an example.
 
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
 (with-eval-after-load "org-tree-slide"
   (define-key org-tree-slide-mode-map (kbd "") 
'org-tree-slide-move-previous-tree)
   (define-key org-tree-slide-mode-map (kbd "") 
'org-tree-slide-move-next-tree)
   )
-#+END_SRC
+#+end_src
 
 ** 2.1 el-get recipe
 
@@ -69,17 +71,17 @@ Normally, presentations will appear in full screen or frame 
maximized. [[https:/
 
 Assigning a single key to =org-tree-slide-mode= is recommended.
 
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
 (global-set-key (kbd "") 'org-tree-slide-mode)
 (global-set-key (kbd "S-") 'org-tree-slide-skip-done-toggle)
-#+END_SRC
+#+end_src
 
 OR
 
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
 (define-key org-mode-map (kbd "") 'org-tree-slide-mode)
 (define-key org-mode-map (kbd "S-") 'org-tree-slide-skip-done-toggle)
-#+END_SRC
+#+end_src
 
 * 4. Profiles
 
@@ -87,18 +89,18 @@ Three useful profiles are available. Please select a 
profile that is the most su
 
 If you select =simple= profile, call the following command while 
=org-tree-slide-mode= is ON.
 
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
 M-x org-tree-slide-simple-profile
-#+END_SRC
+#+end_src
 
 If you want to use this setting as the default, put the following 
configuration including recommended settings into your =.emacs=.
 
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
 (when (require 'org-tree-slide nil t)
   (global-set-key (kbd "") 'org-tree-slide-mode)
   (global-set-key (kbd "S-") 'org-tree-slide-skip-done-toggle)
   (org-tree-slide-simple-profile))
-#+END_SRC
+#+end_src
 
 =org-tree-slide-presentation-profile= and 
=org-tree-slide-narrowing-control-profile= are also available.
 
@@ -116,7 +118,7 @@ Type =M-x org-tree-slide-simple-profile= while 
=org-tree-slide-mode= is ON.
 
 ** 4-2. `Presentation'
 
-This profile is the default setting of org-tree-slide. If an org buffer 
includes =#+TITLE:=, =#+EMAIL:=, and =#+AUTHOR:=, org-tree-slide attempts to 
use those variables in the slide header. A date in the header will be set with 
the presentation of the day. You can enjoy a slide-in effect, the current slide 
number in mode line.
+This profile is the default setting of org-tree-slide. If an org buffer 
includes =#+title:=, =#+email:=, and =#+author:=, org-tree-slide attempts to 
use those variables in the slide header. A date in the header will be set with 
the presentation of the day. You can enjoy a slide-in effect, the current slide 
number in mode line.
 
 # A presentation with a count down timer is started by =M-x 
org-tree-slide-play-with-timer=.
 
@@ -124,7 +126,7 @@ If you want to show the content of your presentation, type 
=C-x s c= or =M-x org
 
 It is possible to skip slides when a heading level is higher than or equal to 
a  value of =org-tree-slide-skip-outline-level=. see User variables.
 
-To exit a presentation, set =org-tree-slide-mode= OFF. The cursor move to the 
head of the buffer and the trees will be rendered according to the value of 
=#+STARTUP:= if possible.
+To exit a presentation, set =org-tree-slide-mode= OFF. The cursor move to the 
head of the buffer and the trees will be rendered according to the value of 
=#+startup:= if possible.
 
 =M-x org-tree-slide-presentation-profile=
 
@@ -152,7 +154,7 @@ If you feel the cursor moving is very slow, please change a 
value of =org-tree-s
 
 * 5. User variables
 
-#+CAPTION: User variables
+#+caption: User variables
 |++---+-|
 || Var

[nongnu] elpa/org-tree-slide 7983492eda 124/144: Fix minor typo in README (slip -> skip)

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 7983492edaf1394ee1aa3b1127fb4a4608c48751
Author: Tim Quelch 
Commit: GitHub 

Fix minor typo in README (slip -> skip)
---
 README.org | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/README.org b/README.org
index 25ae95b205..2fa18e83d7 100644
--- a/README.org
+++ b/README.org
@@ -122,7 +122,7 @@ This profile is the default setting of org-tree-slide. If 
an org buffer includes
 
 # A presentation with a count down timer is started by =M-x 
org-tree-slide-play-with-timer=.
 
-If you want to show the content of your presentation, type =C-x s c= or =M-x 
org-tree-slide-content=. All of the headings will be shown in a buffer like a 
Table Of Content except some headings configured as skipping by 
=org-tree-slide-slip-outline-level=. Find a heading that you want to show, and 
type =C->=, the presentation will be resumed.
+If you want to show the content of your presentation, type =C-x s c= or =M-x 
org-tree-slide-content=. All of the headings will be shown in a buffer like a 
Table Of Content except some headings configured as skipping by 
=org-tree-slide-skip-outline-level=. Find a heading that you want to show, and 
type =C->=, the presentation will be resumed.
 
 It is possible to skip slides when a heading level is higher than or equal to 
a  value of =org-tree-slide-skip-outline-level=. see User variables.
 

[nongnu] elpa/org-tree-slide 18034c4760 125/144: Merge pull request #34 from TimQuelch/patch-1

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 18034c476038adcc1c4697168b8068f4d0ce62fe
Merge: 7126a43650 7983492eda
Author: Takaaki ISHIKAWA 
Commit: GitHub 

Merge pull request #34 from TimQuelch/patch-1

Fix minor typo in README (slip -> skip)
---
 README.org | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/README.org b/README.org
index 25ae95b205..2fa18e83d7 100644
--- a/README.org
+++ b/README.org
@@ -122,7 +122,7 @@ This profile is the default setting of org-tree-slide. If 
an org buffer includes
 
 # A presentation with a count down timer is started by =M-x 
org-tree-slide-play-with-timer=.
 
-If you want to show the content of your presentation, type =C-x s c= or =M-x 
org-tree-slide-content=. All of the headings will be shown in a buffer like a 
Table Of Content except some headings configured as skipping by 
=org-tree-slide-slip-outline-level=. Find a heading that you want to show, and 
type =C->=, the presentation will be resumed.
+If you want to show the content of your presentation, type =C-x s c= or =M-x 
org-tree-slide-content=. All of the headings will be shown in a buffer like a 
Table Of Content except some headings configured as skipping by 
=org-tree-slide-skip-outline-level=. Find a heading that you want to show, and 
type =C->=, the presentation will be resumed.
 
 It is possible to skip slides when a heading level is higher than or equal to 
a  value of =org-tree-slide-skip-outline-level=. see User variables.
 

[nongnu] elpa/org-tree-slide c9487e51b0 133/144: Add some links to useful videos

[ELPA Syncer]

branch: elpa/org-tree-slide
commit c9487e51b0efd2aa95d1c68fbc09833fcf5b75ea
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Add some links to useful videos
---
 README.org | 10 +-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/README.org b/README.org
index 2fa18e83d7..15dd1a887e 100644
--- a/README.org
+++ b/README.org
@@ -1,7 +1,7 @@
 #+title:   README for Org Tree Slide
 #+author:  Takaaki Ishikawa
 #+email:   tak...@ieee.org
-#+date:[2020-06-05 Fri 23:39]
+#+date:[2021-02-25 Thu 22:12]
 #+startup: content
 
 
[[http://melpa.org/#/org-tree-slide][http://melpa.org/packages/org-tree-slide-badge.svg]]
@@ -268,3 +268,11 @@ see also 
[[https://github.com/takaxp/org-tree-slide/blob/master/ChangeLog][Chang
 
 The author is Takaaki ISHIKAWA (tak...@ieee.org).
 Feel free to email me or use a mention of twitter 
([[https://twitter.com/#!/takaxp][@takaxp]])
+
+* 9. Videos
+
+We can watch some videos that kindly introduce =org-tree-slide.el=:
+- [[https://www.youtube.com/watch?v=vz9aLmxYJB0][Emacs Tips - How to Give 
Presentations with Org Mode]] (presented by 
[[https://www.youtube.com/watch?v=vz9aLmxYJB0][System Crafters]])
+- [[https://www.youtube.com/watch?v=vz9aLmxYJB0][Show presentation using Org 
Mode]] (presented by [[https://www.youtube.com/watch?v=vz9aLmxYJB0][Blackberry 
Boy]])
+
+Thank you!

[nongnu] elpa/org-tree-slide 9d2ba1df45 134/144: Fix links in README

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 9d2ba1df456d8d7c6372c8c294dbe3ee81540b33
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Fix links in README
---
 README.org | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/README.org b/README.org
index 15dd1a887e..ed1473d81a 100644
--- a/README.org
+++ b/README.org
@@ -1,7 +1,7 @@
 #+title:   README for Org Tree Slide
 #+author:  Takaaki Ishikawa
 #+email:   tak...@ieee.org
-#+date:[2021-02-25 Thu 22:12]
+#+date:[2021-02-26 Fri 01:04]
 #+startup: content
 
 
[[http://melpa.org/#/org-tree-slide][http://melpa.org/packages/org-tree-slide-badge.svg]]
@@ -272,7 +272,7 @@ Feel free to email me or use a mention of twitter 
([[https://twitter.com/#!/taka
 * 9. Videos
 
 We can watch some videos that kindly introduce =org-tree-slide.el=:
-- [[https://www.youtube.com/watch?v=vz9aLmxYJB0][Emacs Tips - How to Give 
Presentations with Org Mode]] (presented by 
[[https://www.youtube.com/watch?v=vz9aLmxYJB0][System Crafters]])
-- [[https://www.youtube.com/watch?v=vz9aLmxYJB0][Show presentation using Org 
Mode]] (presented by [[https://www.youtube.com/watch?v=vz9aLmxYJB0][Blackberry 
Boy]])
+- [[https://www.youtube.com/watch?v=vz9aLmxYJB0][Emacs Tips - How to Give 
Presentations with Org Mode]] (presented by 
[[https://www.youtube.com/channel/UCAiiOTio8Yu69c3XnR7nQBQ][System Crafters]])
+- [[https://www.youtube.com/watch?v=uSwJQIGMyPk][Show presentation using Org 
Mode]] (presented by 
[[https://www.youtube.com/channel/UC0ds7DW6IIl7mXcyz5vMEHQ][Blackberry Boy]])
 
 Thank you!

[nongnu] elpa/org-tree-slide a8cd4374f1 136/144: Set initial values for defvar-locals

[ELPA Syncer]

branch: elpa/org-tree-slide
commit a8cd4374f154d7ab28c780dc1783e774a0aa6f40
Author: Hyunggyu Jang 
Commit: Hyunggyu Jang 

Set initial values for defvar-locals
---
 org-tree-slide.el | 8 
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/org-tree-slide.el b/org-tree-slide.el
index b0d50927d1..feced8cbe4 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -220,10 +220,10 @@ If you want to show anything, just specify nil."
   "Level 4."
   :group 'org-tree-slide)
 
-(defvar-local org-tree-slide-heading-level-1-cookie)
-(defvar-local org-tree-slide-heading-level-2-cookie)
-(defvar-local org-tree-slide-heading-level-3-cookie)
-(defvar-local org-tree-slide-heading-level-4-cookie)
+(defvar-local org-tree-slide-heading-level-1-cookie nil)
+(defvar-local org-tree-slide-heading-level-2-cookie nil)
+(defvar-local org-tree-slide-heading-level-3-cookie nil)
+(defvar-local org-tree-slide-heading-level-4-cookie nil)
 
 (defvar org-tree-slide-mode nil)
 (defvar org-tree-slide-play-hook nil

[nongnu] main e618f0df25: * elpa-packages (org-tree-slide): New package

[Stefan Kangas]

branch: main
commit e618f0df259ad673c1fea9f6a939c06b63afa4f3
Author: Stefan Kangas 
Commit: Stefan Kangas 

* elpa-packages (org-tree-slide): New package
---
 elpa-packages | 4 
 1 file changed, 4 insertions(+)

diff --git a/elpa-packages b/elpa-packages
index 308ac29944..58df0da0df 100644
--- a/elpa-packages
+++ b/elpa-packages
@@ -325,6 +325,10 @@
   :readme "README.org"
   :ignored-files ("LICENSE" ".github" "demos" "tests" "DEMO.org" 
"sample_image.png"))
 
+ ("org-tree-slide"  :url "https://github.com/takaxp/org-tree-slide.git";
+  :news "ChangeLog"
+  :ignored-files ("LICENSE" ".github"))
+
  ("orgit"   :url "https://github.com/magit/orgit.git";)
 
  ("pacmacs" :url "https://github.com/codingteam/pacmacs.el.git";

[nongnu] branch elpa/org-tree-slide created (now 3faa042393)

[ELPA Syncer]

elpasync pushed a change to branch elpa/org-tree-slide.

at  3faa042393 Merge pull request #49 from 
takaxp/revert-47-allow-empty-date-author

This branch includes the following new commits:

   new  82ee351449 first commit
   new  6dfa0df7f9 Add start and stop function, display header, and change 
mode-line
   new  52d67fc2a0 Add slide-in visual effect
   new  7e0064f6cb Add slide-in visual effect
   new  8a842ae48f Add a variable to control slide-in duration
   new  79aec5bbab Fix typo
   new  373c80edf8 Add CONTENT view to see all the subtrees
   new  bfbd4ddb5d Add CONTENT view to see all the subtrees
   new  25a0936d0c Version 2.0.1
   new  b0c36eb532 Add skip controll by heading level
   new  6c6450776e Fix the end of slide for skip ccontrol
   new  7340f16266 Fix the end of slide for skip ccontrol
   new  8aa567aa72 Fix typo
   new  9e50d8faec Fix an issue of title display
   new  67d72e4a4c Fix an issue of title display (fix typo)
   new  26269ebd8e Support TITLE/AUTHOR/EMAIL in a header
   new  2571cfe03b Version 2.2.0 (adopt minor mode)
   new  28975a4492 Support displaying a slide number in a mode-line.
   new  f08bc4012f Add a new profile to control narrowing status
   new  5d4f714052 Change descriptions
   new  4bf4a2ddd1 Reduce redundant processing
   new  7daa23cc27 Support TODO pursuit in a slideshow
   new  39a6039b18 Add an option to control modeline display
   new  3e56b63ad1 Version 2.5.0
   new  949c77146f org-tree-slide-skip-done set nil as default
   new  3dc1064311 Add README
   new  bc6650cbbb Rename README
   new  be2d679c35 Add a link
   new  b656a838b0 Update README
   new  420342f50b Update README
   new  8228b14520 Update README
   new  901b698c07 Update README
   new  e22f05ce09 Update README
   new  b8feee3b60 Update README
   new  73182afa10 Update README
   new  97e26e36f6 Update README
   new  d2739053a0 Update README
   new  36fefc1a2f Update README
   new  40fe86fad2 Update README
   new  af59475ce9 Update README
   new  faf9421439 Update README
   new  0a399b24ae Update README
   new  085a4e20f3 Update README
   new  cfe834cd38 Fix typo of README.org
   new  09e99877d7 Fix a bug for an org buffer without header
   new  1687d83b18 Fix typo README.org
   new  1ab152f87b Fix typo README.org
   new  a4bc8a67cb Add a keybing
   new  78a5c46e55 Add autoload magic comments
   new  2e9e91ed4e Update README.org
   new  e835028d43 Fix README.org
   new  fb5d0a8c20 Support dark color theme
   new  fca0042e0c Merge pull request #1 from uk-ar/master
   new  a72f5d492d Use the latest function, org-at-heading-p
   new  871d75f872 Merge branch 'master' of github.com:takaxp/org-tree-slide
   new  ed95fa6070 Update descriptions related to version 2.6.0
   new  fe51f9ecfb Added hooks for start and stop presentation
   new  996ed8cc6b * README.org: update as el-get has recipe already 
included.
   new  a3531738a8 Merge pull request #3 from yyr/master
   new  8c301414bb Remove brackets in title
   new  06e1a2855a Added some features (issue #2, #5, and #7)
   new  a85c6e2b9c Added a new toggle to skip commented trees
   new  b30805ac45 Fix typo
   new  c9c413ba8b Added a flag to control face setting
   new  6cf6e4ee84 Support buffers without headings
   new  b7471ef888 use `ots-skip-outline-level' in `ots-slide-content'
   new  c01b48e7ba Merge pull request #8 from eikek/tree-slide-content
   new  caa2a202b5 Hide skipped slides in CONTENT mode
   new  0abef6864f Suppress an error message from org-timer
   new  69e8cd068e Refine displaying slide number in modeline
   new  3cd42fdfef Replace ots- with org-tree-slide--
   new  8e2ab19663 Default keymap was changed
   new  8b44ae834f Default keymap was changed
   new  4a895dec55 Merge branch 'master' of 
https://github.com/takaxp/org-tree-slide
   new  dd344a2749 Merge branch 'master' of 
https://github.com/takaxp/org-tree-slide
   new  1a3c400790 Merge branch 'master' of 
https://github.com/takaxp/org-tree-slide
   new  362bea826d Hide org-clock related code
   new  3927af91ba Heading visibility now depends on the value of 
org-tree-slide-skip-outline-level: if the level of a heading is the last to be 
displayed, show the full content instead of the children
   new  933d6dc6e5 Merge pull request #14 from 
bennati/display-tree-with-narrow
   new  f3059a263f Updating indent
   new  1864b36a56 Added a flag to reveal subtrees to be skipped
   new  3b020a663b 'COMMENT'-subtree will be hidden (by Stefano)
   new  a0a03e75f4 Show content after last slide
   new  ea33297150 Bugfix, commented headings were considered as last 
headings
   new  cc42137ed8 Merge pull request #17 from bennati/presentation-end
 

[nongnu] elpa/org-tree-slide 8a842ae48f 005/144: Add a variable to control slide-in duration

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 8a842ae48fed6aaf308a9ac5d437826857c3d990
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Add a variable to control slide-in duration
---
 ChangeLog |  5 +
 org-tree-slide.el | 12 ++--
 2 files changed, 15 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 4c2485babe..60fb9d3f87 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -5,6 +5,11 @@
You can also control the distance of moving slide-in trees, use
`tree-slide-slide-in-brank-lines'.
 
+   * org-tree-slide.el (tree-slide-slide-in-waiting):
+   Add a variable to control slide-in duration.
+   If you feel the slide-in speed so fast, then set this value bigger like
+   `(setq tree-slide-slide-in-waiting 0.05)'
+
 2011-10-28  Takaaki ISHIKAWA  
 
* org-tree-slide.el (tree-slide-play): Add timer to count down 
presentation
diff --git a/org-tree-slide.el b/org-tree-slide.el
index 6f61068b85..24a3f9cc71 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -24,6 +24,7 @@
 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
 ;; Boston, MA 02110-1301, USA.
 ;;; History:
+;;v1.2.3 (2011-10-30@20:42) # Add a variable to control slide-in duration
 ;;v1.2.1 (2011-10-30@16:10) # Add slide-in visual effect
 ;;v1.1.1 (2011-10-28@16:16) # Add functions to start and stop slide view
 ;;v1.0.0 (2011-09-28@20:59) # Release an init version
@@ -41,7 +42,7 @@
 
 (require 'org-timer)
 
-(defconst org-tree-slide "1.2.1"
+(defconst org-tree-slide "1.2.3"
   "The version number of the org-tree-slide.el")
 
 (defcustom tree-slide-title nil
@@ -67,6 +68,11 @@
   :type 'integer
   :group 'org-tree-slide)
 
+(defcustom tree-slide-slide-in-waiting 0.02
+  "Specify the duration waiting the next update of overlay."
+  :type 'float
+  :group 'org-tree-slide)
+
 ;(defcustom tree-slide-header-background-color "#FF"
 ;  "Specify the color of header background."
 ;  :type 'string
@@ -152,7 +158,7 @@
 (defun tree-slide-slide-in (brank-lines)
   (while (< 2 brank-lines)
 (set-slide-header brank-lines)
-(sit-for 0.005)
+(sit-for tree-slide-slide-in-waiting)
 (hide-slide-header)
 (setq brank-lines (1- brank-lines
 
@@ -226,6 +232,8 @@
 
 ;(defun tree-slide-auto-play-start ()
 ;  (interactive)
+  ;; 入力受付モードでnが入るまで実行し続けるとか．
+  ;; このままでは表示が更新されない！
 ;  (setq stop-count 10)
 ;  (setq count 0)
 ;  (while (< count stop-count)

[nongnu] elpa/org-tree-slide 2571cfe03b 017/144: Version 2.2.0 (adopt minor mode)

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 2571cfe03b5842552f2b1c68d1c5826d81bf3c78
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Version 2.2.0 (adopt minor mode)
---
 ChangeLog |   9 +++
 org-tree-slide.el | 178 ++
 2 files changed, 94 insertions(+), 93 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index bda480196c..92ebb845c5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+2011-12-07  Takaaki ISHIKAWA  
+
+   * org-tree-slide.el: Adopt minor mode
+   org-tree-slide adopt a minor mode!
+   org-tree-slide-play and org-tree-slide-stop are replaced
+   by org-tree-slide-mode.
+   When you make org-tree-slide-mode active, org-tree-slide-play is called.
+   Deactive it, org-tree-slide-stop will be called automatically.
+
 2011-12-06  Takaaki ISHIKAWA  
 
* org-tree-slide.el: Support TITLE/AUTHOR/EMAIL in a header
diff --git a/org-tree-slide.el b/org-tree-slide.el
index ef24f65bf7..95428d7e7a 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.2.0 (2011-12-07@02:15) # Adopt minor mode
 ;;v2.1.7 (2011-12-06@00:26) # Support TITLE/AUTHOR/EMAIL in a header
 ;;v2.1.5 (2011-12-05@17:08) # Fix an issue of title display
 ;;v2.1.3 (2011-12-05@15:08) # Fix the end of slide for skip ccontrol
@@ -44,9 +45,9 @@
 ;;1. Put this elisp into your load-path
 ;;2. Add (requre 'org-tree-slide) in your .emacs
 ;;3. Open an org-mode file 
-;;4. M-x org-tree-slide-play, now you are in slide view
-;;5. / will move slides, mode line will be changed
-;;6. M-x org-tree-slide-stop, return to normal view
+;;4. Toggle org-tree-slide-mode, M-x org-mode-slide-mode
+;;5. / will move slides, you can find "TSlide" in mode line.
+;;6. Toggle org-tree-slide-mode again, return to normal view
 ;;
 ;;; Note:
 ;;- Make sure key maps below when you introduce this elisp.
@@ -55,7 +56,7 @@
 (require 'org)
 (require 'org-timer)
 
-(defconst org-tree-slide "2.1.7"
+(defconst org-tree-slide "2.2.0"
   "The version number of the org-tree-slide.el")
 
 (defgroup org-tree-slide nil
@@ -104,6 +105,12 @@
   :type 'integer
   :group 'org-tree-slide)
 
+(defcustom org-tree-slide-cursor-init nil
+  "Specify a cursor position when the slide start.
+  `t': the cursor will move automatically to the head of buffer."
+  :type 'boolean
+  :group 'org-tree-slide)
+
 (defcustom org-tree-slide-slide-in-waiting 0.02
   "Specify the duration waiting the next update of overlay."
   :type 'float
@@ -114,16 +121,6 @@
   :type 'boolean
   :group 'org-tree-slide)
 
-(defcustom org-tree-slide-previous-key (kbd "")
-  "Specify the key for moving to the next slide."
-  :type 'string
-  :group 'org-tree-slide)
-
-(defcustom org-tree-slide-next-key (kbd "")
-  "Specify the key for moving to the next slide."
-  :type 'string
-  :group 'org-tree-slide)
-
 (defface org-tree-slide-heading-level-2-init
   '((t (:inherit outline-2)))
   "Level 2."
@@ -144,47 +141,36 @@
   "Level 3."
   :group 'org-tree-slide)
 
-;;; The default key bindings for org-tree-slide.
-(define-key org-mode-map (kbd "C-x s p") 'org-tree-slide-play)
-(define-key org-mode-map (kbd "C-x s s") 'org-tree-slide-stop)
-(define-key org-mode-map (kbd "C-x s c") 'org-tree-slide-content)
-(define-key org-mode-map (kbd "C-x s a") 'org-tree-slide-auto-play-start)
-;(define-key org-mode-map (kbd "") 'org-narrow-to-subtree)
-;(define-key org-mode-map (kbd "") 'widen)
-
-(defvar ots-active nil
-  "A flag to check if the slideshow is ACTIVE or not.")
-
-(defun org-tree-slide-play (&optional arg)
-  "Start slide view with the first tree of the org-mode buffer.
-   If you all this function with a prefix (C-u), you can set 
-   a countdown timer to control your presentation."
-  (interactive "P")
-  (if (ots-active-p) (message "org-tree-slide is ACTIVE.")
-(setq ots-active t)
-(ots-apply-local-header-to-slide-header)
-(when arg
-  (org-timer-set-timer))
-(when org-tree-slide-heading-emphasis
-  (ots-apply-custom-heading-face t))
-(ots-apply-control-keybindings)
-(ots-move-to-the-first-heading)
-(ots-display-tree-with-narrow)
-(message "Hello! This is org-tree-slide :-)")))
-
-(defun org-tree-slide-stop ()
-  "Stop the slide view, and redraw the org-mode buffer with OVERVIEW."
+(defvar org-tree-slide-mode-map
+  (let ((map (make-sparse-keymap)))
+;; (define-key map (kbd "") 'org-narrow-to-subtree)
+;; (define-key map (kbd "S-") 'widen)
+(define-key map (kbd "C-x s c") 'org-tree-slide-content)
+(define-key map (kbd "C-x s a") 'org-tree-slide-auto-play-start)
+(define-key map (kbd "") 'org-tree-slide-move-previous-tree)
+(define-key map (kbd "") 'org-tree-slide-move-next-tree)
+map)
+  "The default key bindings for org-tree-slide.")
+
+(defvar org-tree-slide-mode-hook nil)
+(define-minor-m

[nongnu] elpa/org-tree-slide 25a0936d0c 009/144: Version 2.0.1

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 25a0936d0cdaecde7bd286b6215ebf8e123bebdd
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Version 2.0.1
---
 ChangeLog |   7 +
 org-tree-slide.el | 445 --
 2 files changed, 306 insertions(+), 146 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index af39c68e8d..c801ed8161 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2011-12-02  Takaaki ISHIKAWA  
+
+   * org-tree-slide.el: Change function names, ots- is introduced.
+   Two profiles were defined:
+   org-tree-slide-simple-profile (no effect, no header)
+   org-tree-slide-presentation-profile (slide-in effect, title header)
+
 2011-11-02  Takaaki ISHIKAWA  
 
* org-tree-slide.el (tree-slide-content):
diff --git a/org-tree-slide.el b/org-tree-slide.el
index cffb04d583..ec818aac5e 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -5,7 +5,6 @@
 ;; Author: Takaaki ISHIKAWA 
 ;; Maintainer: Takaaki ISHIKAWA 
 ;; Twitter: @takaxp
-;; Website: http://takaxp.com/
 ;; Repository: https://github.com/takaxp/org-tree-slide
 ;; Keywords: org-mode, presentation, narrowing
 ;;
@@ -23,7 +22,14 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
 ;; Boston, MA 02110-1301, USA.
+;;
+;;; Requirement:
+;;org-mode 6.33x or higher version
+;;The latest version of the org-mode at http://orgmode.org/ is recommended.
+;;
 ;;; History:
+;;v2.0.1 (2011-12-02@18:29) # Change function names, ots- is introduced.
+;;v2.0.0 (2011-12-01@17:41) # Add profiles and support org 6.33x
 ;;v1.2.5 (2011-10-31@18:34) # Add CONTENT view to see all the subtrees.
 ;;v1.2.3 (2011-10-30@20:42) # Add a variable to control slide-in duration
 ;;v1.2.1 (2011-10-30@16:10) # Add slide-in visual effect
@@ -34,241 +40,388 @@
 ;;1. Put this elisp into your load-path
 ;;2. Add (requre 'org-tree-slide) in your .emacs
 ;;3. Open an org-mode file 
-;;4. M-x tree-slide-play, now you in slide view
+;;4. M-x org-tree-slide-play, now you in slide view
 ;;5. / will move slides, mode line will be changed
-;;6. M-x tree-slide-stop, return to normal view
+;;6. M-x org-tree-slide-stop, return to normal view
 ;;
 ;;; Note:
 ;;- Make sure key maps below when you introduce this elisp.
+;;- Customize variables, M-x customize-group ENT org-tree-slide ENT
 
+(require 'org)
 (require 'org-timer)
 
-(defconst org-tree-slide "1.2.5"
+(defconst org-tree-slide "2.0.1"
   "The version number of the org-tree-slide.el")
 
-(defcustom tree-slide-title nil
+(defgroup org-tree-slide nil
+  "User variables for org-tree-slide."
+  :group 'org-structure)
+
+(defcustom org-tree-slide-title nil
   "Specify the title of presentation. The title is shown in a header area. 
If this variable is nil, the name of current buffer will be displayed
as a slide title."
   :type 'string
   :group 'org-tree-slide)
 
-(defcustom tree-slide-auto-play-period 0
+(defcustom org-tree-slide-auto-play-period 0
   "If this variable is greater than 0, the slide show move to the next tree
automatically, and the value specify an interval."
   :type 'float
   :group 'org-tree-slide)
 
-(defcustom tree-slide-slide-in-effect t
+(defcustom org-tree-slide-header t
+  "The status of displaying the slide header"
+  :type 'boolean
+  :group 'org-tree-slide)
+
+(defcustom org-tree-slide-slide-in-effect t
   "Using a visual effect of slide-in for displaying trees."
   :type 'boolean
   :group 'org-tree-slide)
 
-(defcustom tree-slide-slide-in-brank-lines 10
+(defcustom org-tree-slide-slide-in-brank-lines 10
   "Specify the number of brank lines, the slide will move from this line."
   :type 'integer
   :group 'org-tree-slide)
 
-(defcustom tree-slide-slide-in-waiting 0.02
+(defcustom org-tree-slide-slide-in-waiting 0.02
   "Specify the duration waiting the next update of overlay."
   :type 'float
   :group 'org-tree-slide)
 
-;(defcustom tree-slide-header-background-color "#FF"
-;  "Specify the color of header background."
-;  :type 'string
-;  :group 'org-tree-slide)
+(defcustom org-tree-slide-heading-emphasis nil
+  "Specify to use a custom face heading, or not"
+  :type 'boolean
+  :group 'org-tree-slide)
 
-;(defcustom tree-slide-header-foreground-color "#99"
-;  "Specify the color of header background."
-;  :type 'string
-;  :group 'org-tree-slide)
+(defcustom org-tree-slide-previous-key (kbd "")
+  "Specify the key for moving to the next slide."
+  :type 'string
+  :group 'org-tree-slide)
+
+(defcustom org-tree-slide-next-key (kbd "")
+  "Specify the key for moving to the next slide."
+  :type 'string
+  :group 'org-tree-slide)
+
+(defface org-tree-slide-heading-level-2-init
+  '((t (:inherit outline-2)))
+  "Level 2."
+  :group 'org-tree-slide)
+
+(defface org-tree-slide-heading-level-3-init
+  '((t (:inherit outline-3)))
+  "Level 3."
+  :group 'org-tree-

[nongnu] elpa/org-tree-slide 6c6450776e 011/144: Fix the end of slide for skip ccontrol

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 6c6450776eb4068f3347a9ad4322c929c3042053
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Fix the end of slide for skip ccontrol
---
 ChangeLog | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 3870fdd9c0..39cf1751df 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2011-12-05  Takaaki ISHIKAWA  
 
+   * org-tree-slide.el: Fix the end of slide for skip ccontrol
+
* org-tree-slide.el (org-tree-slide-skip-outline-level):
Add skip control by heading level. Skip the current slide if the level
is higher than or equal to this variable.

[nongnu] elpa/org-tree-slide d2739053a0 037/144: Update README

[ELPA Syncer]

branch: elpa/org-tree-slide
commit d2739053a0366c7211ff0486464a7e9123d99bc5
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Update README
---
 README.org | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/README.org b/README.org
index 8aa23c1f2c..a975ed5e85 100644
--- a/README.org
+++ b/README.org
@@ -2,7 +2,7 @@
 #+AUTHOR:  Takaaki Ishikawa
 #+EMAIL:   tak...@ieee.org
 #+STARTUP: content
-#+Last Update: 2011-12-17@18:34
+#+Last Update: 2011-12-17@18:39
 
 * 1. What's this?
 
@@ -91,7 +91,7 @@ Type =M-x org-tree-slide-simple-profile= while 
=org-tree-slide-mode= is ON.
 
 This profile is used as the default setting of org-tree-slide. If an org 
buffer includes =#+TITLE:=, =#+EMAIL:=, and =#+AUTHOR:=, org-tree-slide 
attempts to use those variables in the slide header. A date in the header will 
be set with the presentation of the day. You can enjoy a slide-in effect, the 
current slide number in mode line. A presentation with a count down timer is 
started by =M-x org-tree-slide-play-with-timer=.
 
-If you want to show the content of your presentation, type =C-x s r= or =M-x 
org-tree-slide-content=. All of the headers will be shown like a Table Of 
Content. Find a heading that you want to show, and type ==, the 
presentation will be resumed.
+If you want to show the content of your presentation, type =C-x s c= or =M-x 
org-tree-slide-content=. All of the headers will be shown like a Table Of 
Content. Find a heading that you want to show, and type ==, the 
presentation will be resumed.
 
 It is possible to skip slides when a heading level is higher than or equal to 
a  value of =org-tree-slide-skip-outline-level=. see User variables.
 
@@ -174,7 +174,7 @@ If you like this elisp, the following setting is more 
useful. Try it!
 
   - org-tree-slide-move-next-tree (==)
   - org-tree-slide-move-previous-tree (==)
-  - org-tree-slide-content (=C-x s r=)
+  - org-tree-slide-content (=C-x s c=)
 
 ** Startup options
 

[nongnu] elpa/org-tree-slide 3e56b63ad1 024/144: Version 2.5.0

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 3e56b63ad1c5c06c76bd35c326e6c06832ba1173
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Version 2.5.0
---
 ChangeLog |   5 ++
 org-tree-slide.el | 239 +++---
 2 files changed, 142 insertions(+), 102 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index f6d146cd64..e455fa51c6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2011-12-12  Takaaki ISHIKAWA  
+
+   * org-tree-slide.el: Remove auto-play function (TBD)
+   Auo-play function is under consideration as a future work.
+
 2011-12-09  Takaaki ISHIKAWA  
 
* org-tree-slide.el: Add an option to control modeline display
diff --git a/org-tree-slide.el b/org-tree-slide.el
index f1aaca357d..3e852a328c 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -25,34 +25,36 @@
 ;;
 ;;; Requirement:
 ;;org-mode 6.33x or higher version
-;;The latest version of the org-mode at http://orgmode.org/ is recommended.
-;;
-;;; History:
-;;v2.4.1 (2011-12-09@11:46) # Add an option to control modeline display
-;;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
-;;v2.2.0 (2011-12-07@02:15) # Support minor mode
-;;v2.1.7 (2011-12-06@00:26) # Support TITLE/AUTHOR/EMAIL in a header
-;;v2.1.5 (2011-12-05@17:08) # Fix an issue of title display
-;;v2.1.3 (2011-12-05@15:08) # Fix the end of slide for skip ccontrol
-;;v2.1.1 (2011-12-05@11:08) # Add skip control by heading level
-;;v2.0.1 (2011-12-02@18:29) # Change function names, ots- is introduced.
-;;v2.0.0 (2011-12-01@17:41) # Add profiles and support org 6.33x
-;;v1.2.5 (2011-10-31@18:34) # Add CONTENT view to see all the subtrees.
-;;v1.2.3 (2011-10-30@20:42) # Add a variable to control slide-in duration
-;;v1.2.1 (2011-10-30@16:10) # Add slide-in visual effect
-;;v1.1.1 (2011-10-28@16:16) # Add functions to start and stop slide view
-;;v1.0.0 (2011-09-28@20:59) # Release an init version
+;;The latest version of the org-mode is recommended.
+;;  (see http://orgmode.org/)
 ;;
 ;;; Usage:
 ;;1. Put this elisp into your load-path
-;;2. Add (requre 'org-tree-slide) in your .emacs
+;;2. Add (require 'org-tree-slide) in your .emacs
 ;;3. Open an org-mode file 
-;;4. Toggle org-tree-slide-mode, M-x org-mode-slide-mode
-;;5. / will move slides, you can find "TSlide" in mode line.
-;;6. Toggle org-tree-slide-mode again, return to normal view
+;;4. Toggle org-tree-slide-mode (M-x org-tree-slide-mode)
+;;   then Slideshow will start and you can find "TSlide" in mode line.
+;;5. / will move between slides
+;;6. `C-x s c' will show CONTENT of the org buffer
+;;   Select a heading and type , then Slideshow will start again.
+;;7. Toggle org-tree-slide-mode again to exit this minor mode
+;;
+;;; Recommended minimum settings:
+;;(global-set-key (kbd "") 'org-tree-slide-mode)
+;;(global-set-key (kbd "S-") 'org-tree-slide-skip-done-toggle)
+;;
+;;  and three useful profiles are available.
+;;
+;;1. Simple use
+;;   M-x org-tree-slide-simple-profile
+;;
+;;2. Presentation use
+;;   M-x org-tree-slide-presentation-profile
+;;
+;;3. TODO Pursuit with narrowing
+;;   M-x org-tree-slide-narrowing-control-profile
+;;
+;;Type `C-h f org-tree-slide-mode', you can find more detail.
 ;;
 ;;; Note:
 ;;- Make sure key maps below when you introduce this elisp.
@@ -60,8 +62,9 @@
 
 (require 'org)
 (require 'org-timer)
+(require 'org-clock)   ; org-clock-in, -out, -clocking-p
 
-(defconst org-tree-slide "2.4.1"
+(defconst org-tree-slide "2.5.0"
   "The version number of the org-tree-slide.el")
 
 (defgroup org-tree-slide nil
@@ -69,7 +72,7 @@
   :group 'org-structure)
 
 (defcustom org-tree-slide-skip-outline-level 0
-  "Skip the current slide if the level is higher than or equal to this 
variable.
+  "Skip slides if a heading level is higher than or equal to this variable.
`0': never skip at any heading
e.g. set `4', 
*** heading A  ; display as a slide
@@ -81,20 +84,6 @@
   :type 'integer
   :group 'org-tree-slide)
 
-(defcustom org-tree-slide-title nil
-  "Specify the title of presentation. The title is shown in a header area. 
-   If you have `#+TITLE:' line in your org buffer, it wil be used as a title
-   of the slide. If this variable is nil and no `#+TITLE:' line, the name of
-   current buffer will be displayed."
-  :type 'string
-  :group 'org-tree-slide)
-
-(defcustom org-tree-slide-auto-play-period 0
-  "If this variable is greater than 0, the slide show move to the next tree
-   automatically, and the value specify an interval."
-  :type 'float
-  :group 'org-tree-slide)
-
 (defcustom org-tree

[nongnu] elpa/org-tree-slide e22f05ce09 033/144: Update README

[ELPA Syncer]

branch: elpa/org-tree-slide
commit e22f05ce09f15fe5771cf5627da45d31eade0ec9
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Update README
---
 README.org| 75 ---
 org-tree-slide.el |  2 +-
 2 files changed, 51 insertions(+), 26 deletions(-)

diff --git a/README.org b/README.org
index 8ae2b1d64c..d535af5466 100644
--- a/README.org
+++ b/README.org
@@ -1,33 +1,45 @@
-#-*- mode: org -*-
 #+TITLE:   README for Org Tree Slide
 #+AUTHOR:  Takaaki Ishikawa
 #+EMAIL:   tak...@ieee.org
 #+STARTUP: content
 
-* What's this
+* 1. What's this
 
-This emacs lisp is a minor mode for Emacs Org-mode. The main purpose of this 
elisp is to handle each tree in a org buffer as a slide by simple narrowing.
+The main purpose of this elisp is to handle each tree in a org buffer as a 
slide by simple narrowing. This emacs lisp is a minor mode for Emacs Org-mode. 
 
-** Related packages
+Main features:
+
+  - Live editable presentation
+  - Fast switching of narrowing/widen
+  - TODO pursuit with narrowing
+  - Displaying the current number of slides
+  - Countdown timer
+  - CONTENT view during a presentation
+  - Slide in effect
+  - Slide header from org file's header
+
+** 1-1. Related packages
 
 see [[http://orgmode.org/worg/org-tutorials/non-beamer-presentations.html]].
 
-* Install
+* 2. Install
 
 1. Put this elisp into your load-path
-2. Add =(require 'org-tree-slide)= in your .emacs
+2. Add =(require 'org-tree-slide)= in your =.emacs=
 
 OR
 
-1. Eval: =(auto-install-from-url 
"https://raw.github.com/takaxp/org-tree-slide/master/org-tree-slide.el";)=
+1. Eval: =(auto-install-from-url 
"https://raw.github.com/takaxp/org-tree-slide/master/org-tree-slide.el";)= (for 
auto-install user)
 2. Add =(require 'org-tree-slide)= in your =.emacs=
 
-** Requirements
+Then open an org file, just type == and ==. An presentation will 
begin with a header, slide-in effect, and slide number.
+
+** 2.1 Requirements
   - Org-mode 6.33x or higher version is required.
   - This elisp doesn't require any additional packages.
-* Recommended settings
+* 3. Recommended settings
 
-Aissign single key to org-tree-slide-mode is recommended.
+Assigning a single key to =org-tree-slide-mode= is recommended.
 
 #+begin_src emacs lisp
 (global-set-key (kbd "") 'org-tree-slide-mode)
@@ -41,17 +53,18 @@ OR
 (define-key org-mode-map (kbd "S-") 'org-tree-slide-skip-done-toggle)
 #+end_src
 
-* Profiles
 
-Three useful profiles are available. Please choise a profile which is the most 
closing your use.
+* 4. Profiles
+
+Three useful profiles are available. Please select a profile which is the most 
suitable for your useing scenario.
 
-If you select =simple= profile, first of all, toggle =org-tree-slide-mode= and 
call a fuction to set this profile. 
+If you select =simple= profile, call the following command while 
=org-tree-slide-mode= is ON.
 
 #+begin_src emacs lisp
 M-x org-tree-slide-simple-profile
 #+end_src
 
-If you want to use this setting as the default, please put a setting including 
recommended settings into your =.emacs=.
+If you want to use this setting as the default, put the following 
configuration including recommended settings into your =.emacs=.
 
 #+begin_src emacs lisp
 (when (require 'org-tree-slide nil t)
@@ -62,17 +75,25 @@ If you want to use this setting as the default, please put 
a setting including r
 
 =org-tree-slide-presentation-profile= and 
=org-tree-slide-narrowing-control-profile= are also available.
 
-** `Simple'
+** 4-1. `Simple'
+
+This profile will display trees of your org buffer by simple narrowing. You 
can change trees without =widen= command. Most of the visual effect is disabled.
 
-=M-x org-tree-slide-simple-profile=
+Type =M-x org-tree-slide-simple-profile= while =org-tree-slide-mode= is ON.
 
 1. No header display
 2. No slide-in effect
-3. The cursor will move to the head of buffer when exit
+3. The cursor will move to the head of the buffer when exit
 4. No slide number display in mode line
 5. Display every type of tree
 
-** `Presentation'
+** 4-2. `Presentation'
+
+This profile is used as the default setting of org-tree-slide. If an org 
buffer includes =#+TITLE:=, =#+EMAIL:=, and =#+AUTHOR:=, org-tree-slide 
attempts to use those varialbes in the slide header. A date in the header will 
be set with the presentation of the day. You can enjoy a slide-in effect, the 
current slide number in mode line. A presentation with a count down timer is 
started by =M-x org-tree-slide-play-with-timer=.
+
+If you want to show the content of your presentatison, type =C-x s r= or =M-x 
org-tree-slide-content=. All of the headers will be shown like a Table Of 
Content. Find a heading that you want to show, and type ==, the 
presentation will be resumed.
+
+To exit a presentation, set =org-tree-slide-mode= OFF. The cursor move to the 
head of the buffer and trees will be displayed using =#+STARTUP:= if possib

[nongnu] elpa/org-tree-slide 901b698c07 032/144: Update README

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 901b698c0722e5d3588e453ffd56e13ccfffb2a2
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Update README
---
 README.org | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/README.org b/README.org
index d295f2576f..8ae2b1d64c 100644
--- a/README.org
+++ b/README.org
@@ -108,7 +108,7 @@ If you want to use this setting as the default, please put 
a setting including r
 | 9 | org-tree-slide-modeline-display | nil   | [*1]|
 |---+-+---+-|
 
-#+begin_src text
+#+begin_src org
 [*1] ={ nil| 'lighter | 'outside }=
'outside: shown in the mode line outside of lighter
'lighter: shown in lighter (slow)

[nongnu] elpa/org-tree-slide 085a4e20f3 043/144: Update README

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 085a4e20f3e205a4f0ff3141ad80a0714d1e5406
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Update README
---
 README.org | 10 +-
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/README.org b/README.org
index 5c898fc2fc..59c70436a0 100644
--- a/README.org
+++ b/README.org
@@ -2,7 +2,7 @@
 #+AUTHOR:  Takaaki Ishikawa
 #+EMAIL:   tak...@ieee.org
 #+STARTUP: content
-#+Last Update: 2011-12-17@20:47
+#+Last Update: 2011-12-17@20:49
 
 * 1. What's this?
 
@@ -138,10 +138,10 @@ If you feel the cursor moving is very slow, please change 
a value of =org-tree-s
 
 
 #+BEGIN_SRC
-[*1] ={ nil| 'lighter | 'outside }=
-   'outside: shown in the mode line outside of lighter
-   'lighter: shown in lighter (slow)
-   nil: nothing to be shown"
+[*1] { nil| 'lighter | 'outside }
+  'outside: shown in the mode line outside of lighter
+  'lighter: shown in lighter (slow)
+   nil: nothing to be shown"
 #+END_SRC
 
 ** 5-1. Useful settings for experts

[nongnu] elpa/org-tree-slide 97e26e36f6 036/144: Update README

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 97e26e36f6ae82b261bc891d4ead2a03b9ede7de
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Update README
---
 README.org | 14 +++---
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/README.org b/README.org
index 167d57c8c0..8aa23c1f2c 100644
--- a/README.org
+++ b/README.org
@@ -2,7 +2,7 @@
 #+AUTHOR:  Takaaki Ishikawa
 #+EMAIL:   tak...@ieee.org
 #+STARTUP: content
-#+Last Update: 2011-12-17@18:22
+#+Last Update: 2011-12-17@18:34
 
 * 1. What's this?
 
@@ -16,7 +16,7 @@ Main features:
   - Displaying the current number of slides
   - Countdown timer
   - CONTENT view during a presentation
-  - Slide in effect
+  - Slide-in effect
   - Slide header from org file's header
 
 ** 1-1. Related packages
@@ -30,7 +30,7 @@ see 
[[http://orgmode.org/worg/org-tutorials/non-beamer-presentations.html]].
 
 OR
 
-1. Eval: =(auto-install-from-url 
"https://raw.github.com/takaxp/org-tree-slide/master/org-tree-slide.el";)= (for 
auto-install user)
+1. Eval: =(auto-install-from-url 
"https://raw.github.com/takaxp/org-tree-slide/master/org-tree-slide.el";)= (for 
auto-install users)
 2. Add =(require 'org-tree-slide)= in your =.emacs=
 
 Then open an org file, just type == and ==. A presentation will 
begin with a header, slide-in effect, and slide number.
@@ -42,14 +42,14 @@ Then open an org file, just type == and ==. A 
presentation will beg
 
 Assigning a single key to =org-tree-slide-mode= is recommended.
 
-#+begin_src emacs lisp
+#+begin_src
 (global-set-key (kbd "") 'org-tree-slide-mode)
 (global-set-key (kbd "S-") 'org-tree-slide-skip-done-toggle)
 #+end_src
 
 OR
 
-#+begin_src emacs lisp
+#+begin_src emacs-lisp
 (define-key org-mode-map (kbd "") 'org-tree-slide-mode)
 (define-key org-mode-map (kbd "S-") 'org-tree-slide-skip-done-toggle)
 #+end_src
@@ -60,13 +60,13 @@ Three useful profiles are available. Please select a 
profile that is the most su
 
 If you select =simple= profile, call the following command while 
=org-tree-slide-mode= is ON.
 
-#+begin_src emacs lisp
+#+begin_src emacs-lisp
 M-x org-tree-slide-simple-profile
 #+end_src
 
 If you want to use this setting as the default, put the following 
configuration including recommended settings into your =.emacs=.
 
-#+begin_src emacs lisp
+#+begin_src emacs-lisp
 (when (require 'org-tree-slide nil t)
   (global-set-key (kbd "") 'org-tree-slide-mode)
   (global-set-key (kbd "S-") 'org-tree-slide-skip-done-toggle)

[nongnu] elpa/org-tree-slide 8228b14520 031/144: Update README

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 8228b145201016caa8ecec17e82523d130b8da09
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Update README
---
 README.org | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/README.org b/README.org
index b5c190b734..d295f2576f 100644
--- a/README.org
+++ b/README.org
@@ -108,7 +108,7 @@ If you want to use this setting as the default, please put 
a setting including r
 | 9 | org-tree-slide-modeline-display | nil   | [*1]|
 |---+-+---+-|
 
-#+begin_src
+#+begin_src text
 [*1] ={ nil| 'lighter | 'outside }=
'outside: shown in the mode line outside of lighter
'lighter: shown in lighter (slow)

[nongnu] elpa/org-tree-slide 949c77146f 025/144: org-tree-slide-skip-done set nil as default

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 949c77146fa0e5563f4717b9500154a46d4bafd2
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

org-tree-slide-skip-done set nil as default
---
 ChangeLog | 4 
 org-tree-slide.el | 4 ++--
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index e455fa51c6..5a7e14aec0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2011-12-17  Takaaki ISHIKAWA  
+
+   * org-tree-slide.el: org-tree-slide-skip-done set nil as default
+
 2011-12-12  Takaaki ISHIKAWA  
 
* org-tree-slide.el: Remove auto-play function (TBD)
diff --git a/org-tree-slide.el b/org-tree-slide.el
index 3e852a328c..55e664e4e6 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -64,7 +64,7 @@
 (require 'org-timer)
 (require 'org-clock)   ; org-clock-in, -out, -clocking-p
 
-(defconst org-tree-slide "2.5.0"
+(defconst org-tree-slide "2.5.1"
   "The version number of the org-tree-slide.el")
 
 (defgroup org-tree-slide nil
@@ -116,7 +116,7 @@
   :type 'boolean
   :group 'org-tree-slide)
 
-(defcustom org-tree-slide-skip-done t
+(defcustom org-tree-slide-skip-done nil
   "Specify to show TODO item only or not."
   :type 'boolean
   :group 'org-tree-slide)

[nongnu] elpa/org-tree-slide bc6650cbbb 027/144: Rename README

[ELPA Syncer]

branch: elpa/org-tree-slide
commit bc6650cbbbc9727a6ccb02f6ef8927c9e06a8531
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Rename README
---
 README => README.org | 0
 1 file changed, 0 insertions(+), 0 deletions(-)

diff --git a/README b/README.org
similarity index 100%
rename from README
rename to README.org

[nongnu] elpa/org-tree-slide ed95fa6070 056/144: Update descriptions related to version 2.6.0

[ELPA Syncer]

branch: elpa/org-tree-slide
commit ed95fa60701a50017ef6a6bf20e050fdca6217ef
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Update descriptions related to version 2.6.0
---
 ChangeLog | 5 +
 README.org| 7 ---
 org-tree-slide.el | 4 +++-
 3 files changed, 12 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index d26bbf5529..a048a03e2e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2012-11-21  Takaaki ISHIKAWA  
+
+   * org-tree-slide.el: Support dark color theme (by @uk-ar)
+   Thanks to ARISAWA-san.
+
 2012-01-11  Takaaki ISHIKAWA  
 
* org-tree-slide.el: Add autoload magic comments
diff --git a/README.org b/README.org
index 1d48e05835..ecf85ad14c 100644
--- a/README.org
+++ b/README.org
@@ -2,7 +2,7 @@
 #+AUTHOR:  Takaaki Ishikawa
 #+EMAIL:   tak...@ieee.org
 #+STARTUP: content
-#+Last Update: 2012-01-11@23:06
+#+Last Update: 2012-11-21@02:16
 
 * 1. What's this?
 
@@ -145,12 +145,12 @@ If you feel the cursor moving is very slow, please change 
a value of =org-tree-s
 | 9 | org-tree-slide-modeline-display | 'outside  | [*1]|
 
 
-#+BEGIN_SRC
+#+BEGIN_QUOTE
 [*1] { nil| 'lighter | 'outside }
   'outside: shown in the mode line outside of lighter
   'lighter: shown in lighter (slow)
nil: nothing to be shown"
-#+END_SRC
+#+END_QUOTE
 
 ** 5-1. Useful settings for experts
 
@@ -211,6 +211,7 @@ see also ChangeLog
 |-+--+---|
 | Version | Date | Description   |
 |-+--+---|
+| 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   |
 | v2.5.3  | 2011-12-18@00:50 | Fix a bug for an org buffer without header|
 | v2.5.2  | 2011-12-17@17:52 | Set presentation profile as the default   |
diff --git a/org-tree-slide.el b/org-tree-slide.el
index 75311e60b7..69c4436123 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -8,6 +8,8 @@
 ;; Repository: https://github.com/takaxp/org-tree-slide
 ;; Keywords: org-mode, presentation, narrowing
 ;;
+;; Committer: Yuuki ARISAWA (@uk-ar)
+;;
 ;; This program is free software: you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
 ;; the Free Software Foundation; either version 3 of the License, or
@@ -64,7 +66,7 @@
 (require 'org-timer)
 (require 'org-clock)   ; org-clock-in, -out, -clocking-p
 
-(defconst org-tree-slide "2.5.4"
+(defconst org-tree-slide "2.6.0"
   "The version number of the org-tree-slide.el")
 
 (defgroup org-tree-slide nil

[nongnu] elpa/org-tree-slide 871d75f872 055/144: Merge branch 'master' of github.com:takaxp/org-tree-slide

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 871d75f872e0ca86a83489bee2c8ffc097bfccc0
Merge: a72f5d492d fca0042e0c
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Merge branch 'master' of github.com:takaxp/org-tree-slide
---
 org-tree-slide.el | 13 ++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/org-tree-slide.el b/org-tree-slide.el
index 5c1bc7cf3b..75311e60b7 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -533,15 +533,22 @@ Profiles:
   (set header-variable
(if (re-search-forward regexp limit t) (match-string 1) nil)))
 
+(defface org-tree-slide-header-overlay-face
+  'class color) (background dark))
+ (:bold t :foreground "white" :background "black"))
+(((class color) (background light))
+ (:bold t :foreground "black" :background "white"))
+(t (:bold t :foreground "black" :background "white")))
+  "Face for ots-header-overlay")
+
 (defun ots-set-slide-header (brank-lines)
   (ots-hide-slide-header)
   (setq ots-header-overlay
(make-overlay (point-min) (+ 1 (point-min
   (overlay-put ots-header-overlay 'after-string " ")
   (overlay-put ots-header-overlay
-  'face
-  '((foreground-color . "#696969")
-(background-color . "#FF") bold))
+   'face
+   'org-tree-slide-header-overlay-face)
   (if org-tree-slide-header
   (overlay-put ots-header-overlay 'display
   (concat "  [ " 

[nongnu] elpa/org-tree-slide a85c6e2b9c 062/144: Added a new toggle to skip commented trees

[ELPA Syncer]

branch: elpa/org-tree-slide
commit a85c6e2b9c7e2b648275817b06d5eafe777b775e
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Added a new toggle to skip commented trees
---
 ChangeLog |  18 +++
 README.org|  40 ---
 org-tree-slide.el | 148 +++---
 3 files changed, 148 insertions(+), 58 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 902d3a94a1..5d6028ace6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,7 +1,25 @@
+2013-02-19  Takaaki ISHIKAWA  
+
+   * org-tree-slide.el: support all trees are skipped
+   - ots-move-to-the-first-heading
+   - ots-all-skipped, as a flag
+   - ots-heading-skip-p
+ - ots-heading-level-skip-p
+ - ots-heading-done-skip-p
+ - ots-heading-skip-comment-p
+   - ots-outline-select-method: [-/-] will be shown in mode line
+
+   * org-tree-slide.el (ots-count-slide): remove unused code
+
+2013-02-17  Takaaki ISHIKAWA  
+
+   * org-tree-slide.el (org-tree-slide-skip-comments-toggle): Added a 
toggle
+
 2013-02-12  Takaaki ISHIKAWA  
 
* org-tree-slide.el: Issues #2, #5, #7
- Added org-tree-slide-skip-comments to skip a tree with COMMENT (#5)
+   Thanks to Eric S Fraga
- Remove brackets from title (#7)
- Added org-tree-slide-activate-message and
  org-tree-slide-deactivate-message to specify messages in mini-buffer 
(#2)
diff --git a/README.org b/README.org
index a1704844d9..8f97f2a4cd 100644
--- a/README.org
+++ b/README.org
@@ -2,7 +2,7 @@
 #+AUTHOR:  Takaaki Ishikawa
 #+EMAIL:   tak...@ieee.org
 #+STARTUP: content
-#+Last Update: 2013-02-12@01:44
+#+Last Update: 2013-02-19@11:34
 
 * 1. What's this?
 
@@ -44,6 +44,7 @@ If you are an [[https://github.com/dimitri/el-get][el-get]] 
user, just do
 ** 2.1 Requirements
   - Org-mode 6.33x or higher version is required.
   - This elisp doesn't require any additional packages.
+
 * 3. Recommended settings
 
 Assigning a single key to =org-tree-slide-mode= is recommended.
@@ -91,7 +92,7 @@ Type =M-x org-tree-slide-simple-profile= while 
=org-tree-slide-mode= is ON.
 2. No slide-in effect
 3. The cursor will move to the head of the buffer when exit
 4. No slide number display in mode line
-5. Display every type of tree
+5. Display every type of tree except =org-comment-string= (e.g. COMMENT)
 
 ** 4-2. `Presentation'
 
@@ -109,7 +110,7 @@ To exit a presentation, set =org-tree-slide-mode= OFF. The 
cursor move to the he
 2. Enable slide-in effect
 3. The cursor will move to the head of buffer when exit
 4. Display slide number in mode line
-5. Display every type of tree
+5. Display every type of tree except =org-comment-string= (e.g. COMMENT)
 
 ** 4-3. `TODO Pursuit with narrowing'
 
@@ -125,23 +126,26 @@ If you feel the cursor moving is very slow, please change 
a value of =org-tree-s
 2. No slide-in effect
 3. The cursor will keep the same position when exit
 4. Display slide number in mode line
-5. Display TODO trees only
+5. Display TODO trees only except =org-comment-string= (e.g. COMMENT)
 
 * 5. User variables
 
-|---+-+---+-|
-|   | Variable| Default value | Select  |
-|---+-+---+-|
-| 1 | org-tree-slide-skip-outline-level   | 0 | Numeric |
-| 2 | org-tree-slide-header   | t | Boolean |
-| 3 | org-tree-slide-slide-in-effect  | t | Boolean |
-| 4 | org-tree-slide-slide-in-brank-lines | 10| Numeric |
-| 5 | org-tree-slide-slide-in-waiting | 0.02  | Float   |
-| 6 | org-tree-slide-cursor-init  | t | Boolean |
-| 7 | org-tree-slide-heading-emphasis | nil   | Boolean |
-| 8 | org-tree-slide-skip-done| nil   | Boolean |
-| 9 | org-tree-slide-modeline-display | 'outside  | [*1]|
-
+|+-+---+-|
+|| Variable| Default value | Select  |
+|+-+---+-|
+|  1 | org-tree-slide-skip-outline-level   | 0 | Numeric |
+|  2 | org-tree-slide-header   | t | Boolean |
+|  3 | org-tree-slide-slide-in-effect  | t | Boolean |
+|  4 | org-tree-slide-slide-in-brank-lines | 10| Numeric |
+|  5 | org-tree-slide-slide-in-waiting | 0.02  | Float   |
+|  6 | org-tree-slide-cursor-init  | t | Boolean |
+|  7 | org-tree-slide-heading-emphasis | nil   | Boolean |
+|  8 | org-tree-slide-skip-done| nil   | Boolean |
+|  9 | org-tree-slide-modeline-display | 'outside  | [*1]|
+| 10 | org-tree-slide-skip-comments| t | Boolean |
+| 11 | org-tree

[nongnu] elpa/org-tree-slide b30805ac45 063/144: Fix typo

[ELPA Syncer]

branch: elpa/org-tree-slide
commit b30805ac45d76955c1887dba8b61912e574df8d6
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Fix typo
---
 README.org| 3 +--
 org-tree-slide.el | 2 +-
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/README.org b/README.org
index 8f97f2a4cd..030571ea27 100644
--- a/README.org
+++ b/README.org
@@ -2,7 +2,7 @@
 #+AUTHOR:  Takaaki Ishikawa
 #+EMAIL:   tak...@ieee.org
 #+STARTUP: content
-#+Last Update: 2013-02-19@11:34
+#+Last Update: 2013-02-19@12:15
 
 * 1. What's this?
 
@@ -145,7 +145,6 @@ If you feel the cursor moving is very slow, please change a 
value of =org-tree-s
 | 10 | org-tree-slide-skip-comments| t | Boolean |
 | 11 | org-tree-slide-activate-message | Hello...  | String  |
 | 12 | org-tree-slide-deactivate-message   | Quit, Bye!| String  |
-|+-+---+-|
 
 #+BEGIN_QUOTE
 [*1] { nil| 'lighter | 'outside }
diff --git a/org-tree-slide.el b/org-tree-slide.el
index a311e3fdd1..c4439b5062 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -644,7 +644,7 @@ Profiles:
 (delete-overlay ots-header-overlay)))
 
 (defvar ots-all-skipped t
-  "A flag to know if all trees are skpped")
+  "A flag to know if all trees are skipped")
 
 (defun ots-move-to-the-first-heading ()
   (setq ots-all-skipped t)

[nongnu] elpa/markdown-mode 743cea740c 2/3: Merge pull request #680 from vspinu/repeated-elements

[ELPA Syncer]

branch: elpa/markdown-mode
commit 743cea740cba833d252728a39429779f0295
Merge: c002dc0753 ae19974705
Author: Shohei YOSHIDA 
Commit: GitHub 

Merge pull request #680 from vspinu/repeated-elements

Fix fontification of repeated lists and tables
---
 markdown-mode.el | 52 ++--
 tests/markdown-test.el   | 13 +++
 tests/repeated-elements.text | 23 
 3 files changed, 62 insertions(+), 26 deletions(-)

diff --git a/markdown-mode.el b/markdown-mode.el
index dc2d319fc4..119aec3be9 100644
--- a/markdown-mode.el
+++ b/markdown-mode.el
@@ -3426,11 +3426,11 @@ SEQ may be an atom or a sequence."
 t))
 
 (defun markdown-fontify-tables (last)
-  (when (and (re-search-forward "|" last t)
- (markdown-table-at-point-p))
-(font-lock-append-text-property
- (line-beginning-position) (min (1+ (line-end-position)) (point-max))
- 'face 'markdown-table-face)
+  (when (re-search-forward "|" last t)
+(when (markdown-table-at-point-p)
+  (font-lock-append-text-property
+   (line-beginning-position) (min (1+ (line-end-position)) (point-max))
+   'face 'markdown-table-face))
 (forward-line 1)
 t))
 
@@ -3450,27 +3450,27 @@ SEQ may be an atom or a sequence."
 
 (defun markdown-fontify-list-items (last)
   "Apply font-lock properties to list markers from point to LAST."
-  (when (and (markdown-match-list-items last)
- (not (markdown-code-block-at-point-p (match-beginning 2
-(let* ((indent (length (match-string-no-properties 1)))
-   (level (/ indent markdown-list-indent-width)) ;; level = 0, 1, 2, 
...
-   (bullet (nth (mod level (length markdown-list-item-bullets))
-markdown-list-item-bullets)))
-  (add-text-properties
-   (match-beginning 2) (match-end 2) '(face markdown-list-face))
-  (when markdown-hide-markup
-(cond
- ;; Unordered lists
- ((string-match-p "[\\*\\+-]" (match-string 2))
-  (add-text-properties
-   (match-beginning 2) (match-end 2) `(display ,bullet)))
- ;; Definition lists
- ((string-equal ":" (match-string 2))
-  (let ((display-string
- (char-to-string (markdown--first-displayable
-  markdown-definition-display-char
-(add-text-properties (match-beginning 2) (match-end 2)
- `(display ,display-string)))
+  (when (markdown-match-list-items last)
+(when (not (markdown-code-block-at-point-p (match-beginning 2)))
+  (let* ((indent (length (match-string-no-properties 1)))
+ (level (/ indent markdown-list-indent-width)) ;; level = 0, 1, 2, 
...
+ (bullet (nth (mod level (length markdown-list-item-bullets))
+  markdown-list-item-bullets)))
+(add-text-properties
+ (match-beginning 2) (match-end 2) '(face markdown-list-face))
+(when markdown-hide-markup
+  (cond
+   ;; Unordered lists
+   ((string-match-p "[\\*\\+-]" (match-string 2))
+(add-text-properties
+ (match-beginning 2) (match-end 2) `(display ,bullet)))
+   ;; Definition lists
+   ((string-equal ":" (match-string 2))
+(let ((display-string
+   (char-to-string (markdown--first-displayable
+markdown-definition-display-char
+  (add-text-properties (match-beginning 2) (match-end 2)
+   `(display ,display-string
 t))
 
 (defun markdown-fontify-hrs (last)
diff --git a/tests/markdown-test.el b/tests/markdown-test.el
index fcf7d53118..6042cea2e6 100644
--- a/tests/markdown-test.el
+++ b/tests/markdown-test.el
@@ -2795,6 +2795,19 @@ See https://github.com/jrblevin/markdown-mode/issues/631";
 (should-not (markdown-range-property-any 9 9 'face '(markdown-list-face)))
 (should-not (markdown-range-property-any 16 16 'face 
'(markdown-list-face)
 
+
+(ert-deftest test-markdown-font-lock/repeated-lists ()
+  "A simple definition list marker font lock test."
+  (markdown-test-file "repeated-elements.text"
+(markdown-test-range-has-face 163 164 'markdown-list-face)
+(markdown-test-range-has-face 190 191 'markdown-list-face)))
+
+(ert-deftest test-markdown-font-lock/repeated-tables ()
+  "A simple definition list marker font lock test."
+  (markdown-test-file "repeated-elements.text"
+(markdown-test-range-has-face 149 155 nil)
+(markdown-test-range-has-face 218 336 'markdown-table-face)))
+
 (ert-deftest test-markdown-font-lock/definition-list ()
   "A simple definition list marker font lock test."
   (markdown-test-file "definition-list.text"
diff --git a/tests/repeated-elements.text b/tests/repeated-elements.text
new file mode 100644
index 00..01c157b9d1
--- /dev/null
+++ b/tests/repeated-elements.text
@@ -

[nongnu] elpa/org-tree-slide c9c413ba8b 064/144: Added a flag to control face setting

[ELPA Syncer]

branch: elpa/org-tree-slide
commit c9c413ba8bce3290baa9607356a1aafa2e7dd894
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Added a flag to control face setting
---
 ChangeLog |  3 +++
 README.org|  3 ++-
 org-tree-slide.el | 29 ++---
 3 files changed, 23 insertions(+), 12 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 5d6028ace6..af11a7f0b7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2013-02-19  Takaaki ISHIKAWA  
 
+   * org-tree-slide.el (org-tree-slide-never-touch-face): Added a flag
+   If this flag is `t', face settings wil NOT be touched.
+
* org-tree-slide.el: support all trees are skipped
- ots-move-to-the-first-heading
- ots-all-skipped, as a flag
diff --git a/README.org b/README.org
index 030571ea27..ff4ba97d30 100644
--- a/README.org
+++ b/README.org
@@ -2,7 +2,7 @@
 #+AUTHOR:  Takaaki Ishikawa
 #+EMAIL:   tak...@ieee.org
 #+STARTUP: content
-#+Last Update: 2013-02-19@12:15
+#+Last Update: 2013-02-19@12:50
 
 * 1. What's this?
 
@@ -218,6 +218,7 @@ see also ChangeLog
 
|-+--+-|
 | Version | Date | Description 
|
 
|-+--+-|
+| v2.6.8  | 2013-02-19@12:49 | Added a flag to control face setting
|
 | v2.6.6  | 2013-02-19@11:22 | Added a new toggle to skip commented trees  
|
 | 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 
|
diff --git a/org-tree-slide.el b/org-tree-slide.el
index c4439b5062..51a283c0c6 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.6"
+(defconst org-tree-slide "2.6.8"
   "The version number of the org-tree-slide.el")
 
 (defgroup org-tree-slide nil
@@ -119,6 +119,11 @@
   :type 'boolean
   :group 'org-tree-slide)
 
+(defcustom org-tree-slide-never-touch-face nil
+  "If t, do NOT touch any face setting."
+  :type 'boolean
+  :group 'org-tree-slide)
+
 (defcustom org-tree-slide-skip-done nil
   "Specify to show TODO item only or not."
   :type 'boolean
@@ -469,7 +474,8 @@ Profiles:
  (t nil)))
   (ots-hide-slide-header)
   (org-timer-stop)
-  (ots-apply-custom-heading-face nil)
+  (when org-tree-slide-heading-emphasis
+(ots-apply-custom-heading-face nil))
   (when (and org-tree-slide-skip-done
 (looking-at (concat "^\\*+ " org-not-done-regexp)))
 (when (org-clocking-p)
@@ -658,15 +664,16 @@ Profiles:
 
 (defun ots-apply-custom-heading-face (status)
   "Change status of heading face."
-  (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))
-   (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)
-)))
+  (unless org-tree-slide-never-touch-face
+(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))
+ (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)
+  
 
 (defun ots-count-slide (target-point)
   (save-excursion

[nongnu] elpa/org-tree-slide 8c301414bb 060/144: Remove brackets in title

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 8c301414bbe1b48e282ef7a709fbaa8df69208ac
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Remove brackets in title
---
 org-tree-slide.el | 10 +-
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/org-tree-slide.el b/org-tree-slide.el
index 996ea907b6..fee7d20026 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -8,7 +8,8 @@
 ;; Repository: https://github.com/takaxp/org-tree-slide
 ;; Keywords: org-mode, presentation, narrowing
 ;;
-;; Committer: Yuuki ARISAWA (@uk-ar)
+;; Committers: Yuuki ARISAWA (@uk-ar)
+;; Eric S Fraga
 ;;
 ;; This program is free software: you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -66,7 +67,7 @@
 (require 'org-timer)
 (require 'org-clock)   ; org-clock-in, -out, -clocking-p
 
-(defconst org-tree-slide "2.6.2"
+(defconst org-tree-slide "2.6.3"
   "The version number of the org-tree-slide.el")
 
 (defgroup org-tree-slide nil
@@ -558,10 +559,9 @@ Profiles:
'org-tree-slide-header-overlay-face)
   (if org-tree-slide-header
   (overlay-put ots-header-overlay 'display
-  (concat "  [ " 
-  (if org-tree-slide-title org-tree-slide-title
+  (concat (if org-tree-slide-title org-tree-slide-title
 (buffer-name))
-  " ]\n"
+  "\n"
   (format-time-string "%Y-%m-%d") "  "
   (when org-tree-slide-author
 (concat org-tree-slide-author "  "))

[nongnu] elpa/org-tree-slide 68779b8fe4 092/144: Add breadcrumbs (#23)

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 68779b8fe44cf6d09cb0829648d3a349fd663fda
Author: Matus Goljer 
Commit: Takaaki ISHIKAWA 

Add breadcrumbs (#23)

* Add breadcrumbs

* Add an option to show/hide TODO from breadcrumbs.
---
 org-tree-slide.el | 31 +++
 1 file changed, 31 insertions(+)

diff --git a/org-tree-slide.el b/org-tree-slide.el
index 02554c6233..dcfead77b8 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -663,6 +663,20 @@ This is displayed by default if 
`org-tree-slide-modeline-display' is `nil'.")
   "If you have `#+AUTHOR:' line in your org buffer, it will be used as
a name of the slide author.")
 
+(defcustom org-tree-slide-breadcrumbs " > "
+  "Display breadcrumbs in the slide header.
+
+If non-nil, it should be a string used as a delimiter used to
+concat the headers."
+  :type '(choice (const :tag "Don't display breadcrumbs" nil)
+ (string :tag "Delimiter"))
+  :group 'org-tree-slide)
+
+(defcustom org-tree-slide-breadcrumbs-hide-todo-state t
+  "If non-nil, hide TODO states in the breadcrumbs."
+  :type 'boolean
+  :group 'org-tree-slide)
+
 (defun org-tree-slide--apply-local-header-to-slide-header ()
   (save-excursion
 (org-tree-slide--move-to-the-first-heading)
@@ -689,6 +703,20 @@ This is displayed by default if 
`org-tree-slide-modeline-display' is `nil'.")
 (t (:bold t :foreground "black" :background "white")))
   "Face for org-tree-slide--header-overlay")
 
+(defun org-tree-slide--get-parents (&optional delim)
+  "Get parent headlines and concat them with DELIM."
+  (setq delim (or delim " > "))
+  (save-excursion
+(save-restriction
+  (widen)
+  (let ((parents nil))
+(while (org-up-heading-safe)
+  (push (org-get-heading
+ 'no-tags
+ org-tree-slide-breadcrumbs-hide-todo-state)
+parents))
+(mapconcat 'identity parents delim)
+
 (defun org-tree-slide--set-slide-header (blank-lines)
   (org-tree-slide--hide-slide-header)
   (setq org-tree-slide--header-overlay
@@ -707,6 +735,9 @@ This is displayed by default if 
`org-tree-slide-modeline-display' is `nil'.")
  (concat org-tree-slide-author "  "))
(when org-tree-slide-email
  (concat "<" org-tree-slide-email ">"))
+   (when org-tree-slide-breadcrumbs
+ (concat "\n" (org-tree-slide--get-parents
+   org-tree-slide-breadcrumbs)))
(org-tree-slide--get-blank-lines blank-lines)))
 (overlay-put org-tree-slide--header-overlay 'display
  (org-tree-slide--get-blank-lines blank-lines

[nongnu] elpa/org-tree-slide a3531738a8 059/144: Merge pull request #3 from yyr/master

[ELPA Syncer]

branch: elpa/org-tree-slide
commit a3531738a84bf3f9fca6154279d025ef4a9e4469
Merge: fe51f9ecfb 996ed8cc6b
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Merge pull request #3 from yyr/master

README: el-get has recipe now.
---
 README.org | 6 ++
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/README.org b/README.org
index b31dee8058..d74c27cca3 100644
--- a/README.org
+++ b/README.org
@@ -37,11 +37,9 @@ Then open an org file, just type == and ==. A 
presentation will beg
 
 ** el-get recipe
 
-If you are an [[https://github.com/dimitri/el-get][el-get]] user, please use 
this recipe.
+If you are an [[https://github.com/dimitri/el-get][el-get]] user, just do
 
-#+BEGIN_SRC emacs-lisp
-(:name org-tree-slide :description "A presentation tool for org-mode" :type 
git :url "git://github.com/takaxp/org-tree-slide.git" :required nil)
-#+END_SRC
+: M-x el-get-install RET org-tree-slide
 
 ** 2.1 Requirements
   - Org-mode 6.33x or higher version is required.

[nongnu] elpa/org-tree-slide c01b48e7ba 067/144: Merge pull request #8 from eikek/tree-slide-content

[ELPA Syncer]

branch: elpa/org-tree-slide
commit c01b48e7baffb049e6b105660c19dea66b1ab019
Merge: 6cf6e4ee84 b7471ef888
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Merge pull request #8 from eikek/tree-slide-content

use `ots-skip-outline-level' in `ots-slide-content'
---
 org-tree-slide.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/org-tree-slide.el b/org-tree-slide.el
index 65280a2672..e84e34f14c 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -268,7 +268,8 @@ Profiles:
 (ots-hide-slide-header)
 (ots-move-to-the-first-heading)
 (org-overview)
-(org-content)
+(org-content (if (> org-tree-slide-skip-outline-level 0)
+ (1- org-tree-slide-skip-outline-level)))
 (message "<<  CONTENT  >>")))
 
 ;;;###autoload

[nongnu] elpa/org-tree-slide 6cf6e4ee84 065/144: Support buffers without headings

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 6cf6e4ee84738b3ffc17c544ee798baac318c7d1
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Support buffers without headings
---
 ChangeLog |  14 ++
 README.org|   3 +-
 org-tree-slide.el | 132 +-
 3 files changed, 87 insertions(+), 62 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index af11a7f0b7..adc68aae95 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,17 @@
+2013-07-21  Takaaki ISHIKAWA  
+
+   * org-tree-slide.el (ots-count-slide): Revised to distinguish status
+   [-/-]   ... before first heading and no headings in the buffer
+   [-/%d]  ... before first heading
+   [%d/%d] ... slides
+
+   * org-tree-slide.el: Support no headings
+   - org-tree-slide-move-next-tree and org-tree-slide-move-previous-tree
+ - Removed hide-subtree to avoid an error
+   - ots-display-tree-with-narrow
+ - ots-before-first-heading-p is used to wrap hide-subtree
+ - (org-cycle-hide-drawers 'all) is disabled to speed up
+
 2013-02-19  Takaaki ISHIKAWA  
 
* org-tree-slide.el (org-tree-slide-never-touch-face): Added a flag
diff --git a/README.org b/README.org
index ff4ba97d30..426f7d6474 100644
--- a/README.org
+++ b/README.org
@@ -2,7 +2,7 @@
 #+AUTHOR:  Takaaki Ishikawa
 #+EMAIL:   tak...@ieee.org
 #+STARTUP: content
-#+Last Update: 2013-02-19@12:50
+#+Last Update: 2013-07-21@05:21
 
 * 1. What's this?
 
@@ -218,6 +218,7 @@ see also ChangeLog
 
|-+--+-|
 | Version | Date | Description 
|
 
|-+--+-|
+| v2.7.0  | 2013-07-21@05:21 | Support buffers without headings
|
 | v2.6.8  | 2013-02-19@12:49 | Added a flag to control face setting
|
 | v2.6.6  | 2013-02-19@11:22 | Added a new toggle to skip commented trees  
|
 | v2.6.4  | 2013-02-12@01:43 | Added some features (issue #2, #5, and #7)  
|
diff --git a/org-tree-slide.el b/org-tree-slide.el
index 51a283c0c6..65280a2672 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.8"
+(defconst org-tree-slide "2.7.0"
   "The version number of the org-tree-slide.el")
 
 (defgroup org-tree-slide nil
@@ -362,6 +362,8 @@ Profiles:
   "Toggle show TODO item only or not"
   (interactive)
   (setq org-tree-slide-skip-done (not org-tree-slide-skip-done))
+  (setq ots-previous-line -1) ; to update modeline intentionally
+  (ots-update-modeline)
   (if org-tree-slide-skip-done
   (message "TODO Pursuit: ON") (message "TODO Pursuit: OFF")))
 
@@ -378,36 +380,34 @@ Profiles:
   (interactive)
   (when (ots-active-p)
 (message "   Next >>")
-(cond ((or (and (ots-before-first-heading-p) (not (org-at-heading-p)))
-  ;; support single top level tree
-  ;; FIXME: no header org buffer + CONTENT view is not supported
-  (and (= (point-at-bol) 1) (not (ots-narrowing-p
-  (ots-outline-next-heading))
- ((or (ots-first-heading-with-narrow-p) (not (org-at-heading-p)))
-  (hide-subtree)
-  (widen)
-  (ots-outline-next-heading))
- (t nil))
+(cond
+ ((or
+   (or (and (ots-before-first-heading-p) (not (org-at-heading-p)))
+  (and (= (point-at-bol) 1) (not (ots-narrowing-p
+   (or (ots-first-heading-with-narrow-p) (not (org-at-heading-p
+  (widen)
+  (ots-outline-next-heading))
+ ;; stay the same slide (for CONTENT MODE, on the subtrees)
+ (t nil))
 (when (and org-tree-slide-skip-done
   (looking-at (concat "^\\*+ " org-not-done-regexp)))
   ;; (org-clock-in)
   )
- (ots-display-tree-with-narrow)))
+(ots-display-tree-with-narrow)))
 
 (defun org-tree-slide-move-previous-tree ()
   "Display the previous slide"
   (interactive)
   (when (ots-active-p)
 (message "<< Previous")
-(hide-subtree)
-(widen)
 (ots-hide-slide-header); for at the first heading
-(cond ((ots-before-first-heading-p)
-  (message "The first slide!"))
- ((not (org-at-heading-p))
-  (ots-outline-previous-heading)
-  (ots-outline-previous-heading))
- (t (ots-outline-previous-heading)))
+(widen)
+(cond
+ ((ots-before-first-heading-p) (message "before first heading (ots)" ))
+ ((not (org-at-heading-p))
+  (ots-outline-previous-heading)
+  (ots-outline-previous-heading))
+ (t (ots-outline-previous-heading)))
 (when (and org-tree-slide-skip-done
   (looking-at (concat "^\\*+ " org-not-done-regexp)))
   ;; (org-clock-in)
@@ -417,17 +417,25 @@ Profiles:
 (if (= emacs-major-version 24)
(goto-cha

[nongnu] elpa/org-tree-slide 3a2d3733ba 091/144: Added Version header

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 3a2d3733baa81484ac53bee9a8d0f9dafa54881c
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Added Version header
---
 ChangeLog | 2 ++
 org-tree-slide.el | 1 +
 2 files changed, 3 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 9512a3dda1..3ebdfd1251 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2015-12-23  Takaaki ISHIKAWA  
 
+   * org-tree-slide.el: Added Version header
+
* org-tree-slide.el: Added a tag for Melpa Stable
 
 2015-08-14  Takaaki ISHIKAWA  
diff --git a/org-tree-slide.el b/org-tree-slide.el
index f18a2fa374..02554c6233 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -3,6 +3,7 @@
 ;; Copyright (C) 2011-2015 Takaaki ISHIKAWA
 ;;
 ;; Author: Takaaki ISHIKAWA 
+;; Version: 2.8.4
 ;; Maintainer: Takaaki ISHIKAWA 
 ;; Twitter: @takaxp
 ;; Repository: https://github.com/takaxp/org-tree-slide

[nongnu] elpa/org-tree-slide 3b020a663b 082/144: 'COMMENT'-subtree will be hidden (by Stefano)

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 3b020a663bc19428fc43b7604c0dc1eb58e1d335
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

'COMMENT'-subtree will be hidden (by Stefano)
---
 ChangeLog |  7 +++
 README.org|  5 +++--
 org-tree-slide.el | 19 +--
 3 files changed, 27 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 75537834ef..19e98fc877 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2015-08-14  Takaaki ISHIKAWA  
+
+   * org-tree-slide.el: 'COMMENT'-subtree will be hidden (by Stefano)
+   - org-tree-slide--show-subtree is added
+   - Subtrees that start with 'COMMENT' will be hidden during presentation 
even though org-tree-slide-fold-subtrees-skipped is nil
+   Thanks to Stefano BENNATI
+
 2015-08-09  Takaaki ISHIKAWA  
 
* org-tree-slide.el: Added a flag to reveal subtrees to be skipped
diff --git a/README.org b/README.org
index f3187d86a2..0c32b3a67d 100644
--- a/README.org
+++ b/README.org
@@ -1,8 +1,8 @@
 #+TITLE:   README for Org Tree Slide
 #+AUTHOR:  Takaaki Ishikawa
 #+EMAIL:   tak...@ieee.org
-#+DATE:2015-08-09
-#+UPDATE:  01:19:10
+#+DATE:2015-08-14
+#+UPDATE:  08:35:49
 #+STARTUP: content
 
 * 1. What's this?
@@ -229,6 +229,7 @@ see also ChangeLog
 
|-+--+-|
 | Version | Date | Description 
|
 
|-+--+-|
+| v2.8.4  | 2015-08-12@21:35 | 'COMMENT'-subtree will be hidden (by Stefano)   
|
 | v2.8.3  | 2015-08-09@01:04 | Added a flag to reveal subtrees to be skipped   
|
 | v2.8.1  | 2015-02-27@10:42 | Hide org-clock related code 
|
 | v2.8.0  | 2015-02-20@21:27 | Changed Keymap, and renamed/added hooks 
|
diff --git a/org-tree-slide.el b/org-tree-slide.el
index 78fa7d63ab..c9004930c7 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -11,6 +11,7 @@
 ;; Committers: Yuuki ARISAWA (@uk-ar)
 ;; Eric S Fraga
 ;; Eike Kettner
+;; Stefano BENNATI
 ;;
 ;; This program is free software: you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -68,7 +69,7 @@
 (require 'org-timer)
 ;;(require 'org-clock) ; org-clock-in, -out, -clocking-p
 
-(defconst org-tree-slide "2.8.3"
+(defconst org-tree-slide "2.8.4"
   "The version number of the org-tree-slide.el")
 
 (defgroup org-tree-slide nil
@@ -539,7 +540,7 @@ Profiles:
 ;; If this is the last level to be displayed, show the full content
 (if (and (not org-tree-slide-fold-subtrees-skipped)
  (org-tree-slide--heading-level-skip-p (1+ (org-outline-level
-(org-show-subtree)
+(org-tree-slide--show-subtree)
   (show-children))
 ;;(org-cycle-hide-drawers 'all) ; disabled due to performance reduction
 (org-narrow-to-subtree))
@@ -550,6 +551,20 @@ Profiles:
   (run-hooks 'org-tree-slide-after-narrow-hook)
   (run-hooks 'org-tree-slide-mode-after-narrow-hook))
 
+(defun org-tree-slide--show-subtree ()
+  "Show everything after this heading at deeper levels except COMMENT items."
+  (save-excursion
+(outline-back-to-heading)
+(outline-map-region
+ (lambda ()
+   (if (org-tree-slide--heading-skip-comment-p)
+   (hide-subtree)
+ (show-subtree)
+ (org-cycle-hide-drawers 'all)))
+ (point)
+ (progn (outline-end-of-subtree)
+(if (eobp) (point-max) (1+ (point)))
+
 (defun org-tree-slide--outline-next-heading ()
   (org-tree-slide--outline-select-method
(org-tree-slide--outline-skip-type

[nongnu] elpa/org-tree-slide 69e8cd068e 070/144: Refine displaying slide number in modeline

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 69e8cd068e9d40de27cc008098cca3a297c3a09b
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Refine displaying slide number in modeline
---
 ChangeLog |  9 +
 README.org|  5 +++--
 org-tree-slide.el | 41 -
 3 files changed, 36 insertions(+), 19 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index b8bc449c08..18a25dafc0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+2015-02-14  Takaaki ISHIKAWA  
+
+   * org-tree-slide: Refine displaying slide number in modeline
+   - If 'lighter is specified, the slide number will be updated 
aggressively, then it's slow. On the other hand, 'outside is specified which 
will be shown quickly in the same position of 'lighter because it changes the 
number only if a slide is moved to the next/previous slide.
+
+   * org-tree-slide: Added two hooks
+   - org-tree-slide-mode-before-narrow-hook
+   - org-tree-slide-mode-after-narrow-hook
+
 2015-01-12  Takaaki ISHIKAWA  
 
* org-tree-slide.el (ots-stop): Suppress an error message from org-timer
diff --git a/README.org b/README.org
index 731c01f4e4..d9c8d46ee8 100644
--- a/README.org
+++ b/README.org
@@ -1,8 +1,8 @@
 #+TITLE:   README for Org Tree Slide
 #+AUTHOR:  Takaaki Ishikawa
 #+EMAIL:   tak...@ieee.org
-#+DATE:2015-01-12
-#+UPDATE:  19:58:48
+#+DATE:2015-02-14
+#+UPDATE:  23:48:25
 #+STARTUP: content
 
 * 1. What's this?
@@ -219,6 +219,7 @@ see also ChangeLog
 
|-+--+-|
 | Version | Date | Description 
|
 
|-+--+-|
+| v2.7.4  | 2015-02-14@23:30 | Refine displaying slide number in modeline  
|
 | v2.7.2  | 2015-01-12@19:56 | Suppress an error message from org-timer
|
 | v2.7.1  | 2015-01-12@18:28 | Hide skipped slides when CONTENT mode   
|
 | v2.7.0  | 2013-07-21@05:21 | Support buffers without headings
|
diff --git a/org-tree-slide.el b/org-tree-slide.el
index 2de9a719da..103f30538e 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -1,6 +1,6 @@
 ;;; org-tree-slide.el --- A presentation tool for org-mode
 ;;
-;; Copyright (C) 2011-2014 Takaaki ISHIKAWA
+;; Copyright (C) 2011-2015 Takaaki ISHIKAWA
 ;;
 ;; Author: Takaaki ISHIKAWA 
 ;; Maintainer: Takaaki ISHIKAWA 
@@ -68,7 +68,7 @@
 (require 'org-timer)
 (require 'org-clock)   ; org-clock-in, -out, -clocking-p
 
-(defconst org-tree-slide "2.7.1"
+(defconst org-tree-slide "2.7.4"
   "The version number of the org-tree-slide.el")
 
 (defgroup org-tree-slide nil
@@ -149,8 +149,8 @@
 
 (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
-   'lighter: shown in lighter (slow)
+   'lighter: shown in lighter (update info actively, then it's slow)
+   'outside: update infomation when moving to the next/previous slide
nil: nothing to be shown"
   :type 'symbol
   :group 'org-tree-slide)
@@ -189,7 +189,10 @@
   "A hook run when ots-play is evaluated to start the slide show")
 (defvar org-tree-slide-mode-stop-hook nil
   "A hook run when ots-stop is evaluated to stop the slide show")
-(defvar display-tree-slide-string nil)
+(defvar org-tree-slide-mode-before-narrow-hook nil
+  "A hook run before evaluating ots-display-tree-with-narrow")
+(defvar org-tree-slide-mode-after-narrow-hook nil
+  "A hook run after evaluating ots-display-tree-with-narrow")
 
 ;;;###autoload
 (define-minor-mode org-tree-slide-mode
@@ -237,8 +240,6 @@ Profiles:
   :keymap org-tree-slide-mode-map
   :group 'org-tree-slide
   :require 'org
-  (setq display-tree-slide-string "")
-  (or global-mode-string (setq global-mode-string '("")))
   (if org-tree-slide-mode
   (ots-setup)
 (ots-abort)))
@@ -365,7 +366,7 @@ Profiles:
   (interactive)
   (setq org-tree-slide-skip-done (not org-tree-slide-skip-done))
   (setq ots-previous-line -1) ; to update modeline intentionally
-  (ots-update-modeline)
+  (ots-show-slide-header)
   (if org-tree-slide-skip-done
   (message "TODO Pursuit: ON") (message "TODO Pursuit: OFF")))
 
@@ -381,7 +382,8 @@ Profiles:
   "Display the next slide"
   (interactive)
   (when (ots-active-p)
-(message "   Next >>")
+(unless (equal org-tree-slide-modeline-display 'outside)
+  (message "   Next >>"))
 (cond
  ((or
(or (and (ots-before-first-heading-p) (not (org-at-heading-p)))
@@ -401,7 +403,8 @@ Profiles:
   "Display the previous slide"
   (interactive)
   (when (ots-active-p)
-(message "<< Previous")
+(unless (equal org-tree-slide-modeline-display 'outside)
+  (message "<< Previous"))
 (ots-hide-slide-header); for at the first heading
 (widen)
 (cond
@@ -420,7 

[nongnu] elpa/org-tree-slide 8570335bbd 090/144: Added a tag for Melpa Stable

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 8570335bbde1ccc93ae9fa079337326963d8f479
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Added a tag for Melpa Stable
---
 ChangeLog  | 4 
 README.org | 8 ++--
 2 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 19e98fc877..9512a3dda1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2015-12-23  Takaaki ISHIKAWA  
+
+   * org-tree-slide.el: Added a tag for Melpa Stable
+
 2015-08-14  Takaaki ISHIKAWA  
 
* org-tree-slide.el: 'COMMENT'-subtree will be hidden (by Stefano)
diff --git a/README.org b/README.org
index 0c32b3a67d..93ba0a1b85 100644
--- a/README.org
+++ b/README.org
@@ -1,10 +1,14 @@
 #+TITLE:   README for Org Tree Slide
 #+AUTHOR:  Takaaki Ishikawa
 #+EMAIL:   tak...@ieee.org
-#+DATE:2015-08-14
-#+UPDATE:  08:35:49
+#+DATE:2015-12-23
+#+UPDATE:  10:59:42
 #+STARTUP: content
 
+[[http://melpa.org/#/org-tree-slide][http://melpa.org/packages/org-tree-slide-badge.svg]]
+[[http://stable.melpa.org/#/org-tree-slide][http://stable.melpa.org/packages/org-tree-slide-badge.svg]]
+
+
 * 1. What's this?
 
 The main purpose of this elisp is to handle each tree in an org buffer as a 
slide by simple narrowing. This emacs lisp is a minor mode for Emacs Org-mode. 

[nongnu] elpa/org-tree-slide caa2a202b5 068/144: Hide skipped slides in CONTENT mode

[ELPA Syncer]

branch: elpa/org-tree-slide
commit caa2a202b549e2e3fc6f58d5f2f546093ffcf2dd
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Hide skipped slides in CONTENT mode
---
 ChangeLog | 10 +-
 README.org|  6 --
 org-tree-slide.el |  5 +++--
 3 files changed, 16 insertions(+), 5 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index adc68aae95..32544f7a25 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2015-01-12  Takaaki ISHIKAWA  
+
+   * org-tree-slide.el (org-tree-slide-content): Hide skipped slides when 
CONTENT mode
+   - Use `ots-skip-outline-level' in `ots-slide-content' (#8)
+ Thanks to Eike Kettner
+ Headlines that are skipped in presentation don't need to show up when
+ displaying contents.
+
 2013-07-21  Takaaki ISHIKAWA  
 
* org-tree-slide.el (ots-count-slide): Revised to distinguish status
@@ -36,7 +44,7 @@
 
* org-tree-slide.el: Issues #2, #5, #7
- Added org-tree-slide-skip-comments to skip a tree with COMMENT (#5)
-   Thanks to Eric S Fraga
+ Thanks to Eric S Fraga
- Remove brackets from title (#7)
- Added org-tree-slide-activate-message and
  org-tree-slide-deactivate-message to specify messages in mini-buffer 
(#2)
diff --git a/README.org b/README.org
index 426f7d6474..ee833a66fc 100644
--- a/README.org
+++ b/README.org
@@ -1,8 +1,9 @@
 #+TITLE:   README for Org Tree Slide
 #+AUTHOR:  Takaaki Ishikawa
 #+EMAIL:   tak...@ieee.org
+#+DATE:2015-01-12
+#+UPDATE:  18:34:09
 #+STARTUP: content
-#+Last Update: 2013-07-21@05:21
 
 * 1. What's this?
 
@@ -98,7 +99,7 @@ Type =M-x org-tree-slide-simple-profile= while 
=org-tree-slide-mode= is ON.
 
 This profile is used as the default setting of org-tree-slide. If an org 
buffer includes =#+TITLE:=, =#+EMAIL:=, and =#+AUTHOR:=, org-tree-slide 
attempts to use those variables in the slide header. A date in the header will 
be set with the presentation of the day. You can enjoy a slide-in effect, the 
current slide number in mode line. A presentation with a count down timer is 
started by =M-x org-tree-slide-play-with-timer=.
 
-If you want to show the content of your presentation, type =C-x s c= or =M-x 
org-tree-slide-content=. All of the headings will be shown like a Table Of 
Content. Find a heading that you want to show, and type ==, the 
presentation will be resumed.
+If you want to show the content of your presentation, type =C-x s c= or =M-x 
org-tree-slide-content=. All of the headings will be shown like a Table Of 
Content except some headings configured as skipping by 
=org-tree-slide-slip-outline-level=. Find a heading that you want to show, and 
type ==, the presentation will be resumed.
 
 It is possible to skip slides when a heading level is higher than or equal to 
a  value of =org-tree-slide-skip-outline-level=. see User variables.
 
@@ -218,6 +219,7 @@ see also ChangeLog
 
|-+--+-|
 | Version | Date | Description 
|
 
|-+--+-|
+| v2.7.1  | 2015-01-12@18:28 | Hide skipped slides when CONTENT mode   
|
 | v2.7.0  | 2013-07-21@05:21 | Support buffers without headings
|
 | v2.6.8  | 2013-02-19@12:49 | Added a flag to control face setting
|
 | v2.6.6  | 2013-02-19@11:22 | Added a new toggle to skip commented trees  
|
diff --git a/org-tree-slide.el b/org-tree-slide.el
index e84e34f14c..52a4b326b2 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -1,6 +1,6 @@
 ;;; org-tree-slide.el --- A presentation tool for org-mode
 ;;
-;; Copyright (C) 2011-2013 Takaaki ISHIKAWA
+;; Copyright (C) 2011-2014 Takaaki ISHIKAWA
 ;;
 ;; Author: Takaaki ISHIKAWA 
 ;; Maintainer: Takaaki ISHIKAWA 
@@ -10,6 +10,7 @@
 ;;
 ;; Committers: Yuuki ARISAWA (@uk-ar)
 ;; Eric S Fraga
+;; Eike Kettner
 ;;
 ;; This program is free software: you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -67,7 +68,7 @@
 (require 'org-timer)
 (require 'org-clock)   ; org-clock-in, -out, -clocking-p
 
-(defconst org-tree-slide "2.7.0"
+(defconst org-tree-slide "2.7.1"
   "The version number of the org-tree-slide.el")
 
 (defgroup org-tree-slide nil

[nongnu] elpa/org-tree-slide dff8f1a4a6 094/144: Added a hook for CONTENT viewing mode

[ELPA Syncer]

branch: elpa/org-tree-slide
commit dff8f1a4a64c8dd0a1fde0b0131e2fe186747134
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Added a hook for CONTENT viewing mode
---
 ChangeLog | 4 
 README.org| 5 +++--
 org-tree-slide.el | 7 +--
 3 files changed, 12 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index be386fe3d3..07bb640671 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2017-11-30  Takaaki ISHIKAWA  
+
+   * org-tree-slide.el: Added a hook for CONTENT viewing mode
+
 2016-05-14  Takaaki ISHIKAWA  
 
* org-tree-slide.el: Merged breadcrumbs feature (#23)
diff --git a/README.org b/README.org
index 46d62df8e9..7b0a153a58 100644
--- a/README.org
+++ b/README.org
@@ -1,8 +1,8 @@
 #+TITLE:   README for Org Tree Slide
 #+AUTHOR:  Takaaki Ishikawa
 #+EMAIL:   tak...@ieee.org
-#+DATE:2016-05-14
-#+UPDATE:  15:24:12
+#+DATE:2017-11-30
+#+UPDATE:  15:33:29
 #+STARTUP: content
 
 
[[http://melpa.org/#/org-tree-slide][http://melpa.org/packages/org-tree-slide-badge.svg]]
@@ -235,6 +235,7 @@ see also ChangeLog
 
|-+--+-|
 | Version | Date | Description 
|
 
|-+--+-|
+| v2.8.6  | 2017-11-30@15:33 | Added a hook for CONTENT viewing mode   
|
 | v2.8.5  | 2016-05-14@14:09 | Added breadcrumbs feature (by Matus)
|
 | v2.8.4  | 2015-08-12@21:35 | 'COMMENT'-subtree will be hidden (by Stefano)   
|
 | v2.8.3  | 2015-08-09@01:04 | Added a flag to reveal subtrees to be skipped   
|
diff --git a/org-tree-slide.el b/org-tree-slide.el
index 6fb54ccc0e..fa866125d8 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -1,9 +1,9 @@
 ;;; org-tree-slide.el --- A presentation tool for org-mode
 ;;
-;; Copyright (C) 2011-2016 Takaaki ISHIKAWA
+;; Copyright (C) 2011-2017 Takaaki ISHIKAWA
 ;;
 ;; Author: Takaaki ISHIKAWA 
-;; Version: 2.8.5
+;; Version: 2.8.6
 ;; Maintainer: Takaaki ISHIKAWA 
 ;; Twitter: @takaxp
 ;; Repository: https://github.com/takaxp/org-tree-slide
@@ -223,6 +223,8 @@
   "A hook run before moving to the next slide")
 (defvar org-tree-slide-before-move-previous-hook nil
   "A hook run before moving to the previous slide")
+(defvar org-tree-slide-before-content-view-hook nil
+  "A hook run before showing the content")
 
 ;;;###autoload
 (define-minor-mode org-tree-slide-mode
@@ -298,6 +300,7 @@ Profiles:
the slide view mode is active."
   (interactive)
   (when (org-tree-slide--active-p)
+(run-hooks 'org-tree-slide-before-content-view-hook)
 (org-tree-slide--hide-slide-header)
 (org-tree-slide--move-to-the-first-heading)
 (org-overview)

[nongnu] elpa/org-tree-slide 16007b48c6 108/144: Refine skipping slide algorithm

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 16007b48c636c9c84361e3f3e8d6b3c62d61fe6a
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Refine skipping slide algorithm

If the buffer doesn't contain any slide to show, just terminate the
slide show.

- introduce `org-tree-slide--all-skip-p'
- refine `org-tree-slide--move-to-the-first-heading'
---
 org-tree-slide.el | 189 +++---
 1 file changed, 108 insertions(+), 81 deletions(-)

diff --git a/org-tree-slide.el b/org-tree-slide.el
index 85063413a2..b261580597 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -322,6 +322,7 @@ Profiles:
   (interactive)
   (when (org-tree-slide--active-p)
 (run-hooks 'org-tree-slide-before-content-view-hook)
+(widen)
 (org-tree-slide--hide-slide-header)
 (org-tree-slide--move-to-the-first-heading)
 (org-overview)
@@ -331,6 +332,53 @@ Profiles:
(org-content (1- org-tree-slide-skip-outline-level
 (message "<<  CONTENT  >>")))
 
+;;;###autoload
+(defun org-tree-slide-move-next-tree ()
+  "Display the next slide."
+  (interactive)
+  (when (org-tree-slide--active-p)
+(unless (equal org-tree-slide-modeline-display 'outside)
+  (message "   Next >>"))
+(cond
+ ;; displaying a slide, not the contents
+ ((and (org-tree-slide--narrowing-p)
+   (org-tree-slide--last-tree-p (point)))
+  (org-tree-slide-content))
+ ((or
+   (or (and (org-tree-slide--before-first-heading-p)
+(not (org-at-heading-p)))
+   (and (= (point-at-bol) 1) (not (org-tree-slide--narrowing-p
+   (or (org-tree-slide--first-heading-with-narrow-p)
+   (not (org-at-heading-p
+  (run-hooks 'org-tree-slide-before-move-next-hook)
+  (widen)
+  (org-tree-slide--outline-next-heading)
+  (org-tree-slide--display-tree-with-narrow))
+ ;; stay the same slide (for CONTENT MODE, on the subtrees)
+ (t (org-tree-slide--display-tree-with-narrow)
+
+;;;###autoload
+(defun org-tree-slide-move-previous-tree ()
+  "Display the previous slide."
+  (interactive)
+  (when (org-tree-slide--active-p)
+(unless (equal org-tree-slide-modeline-display 'outside)
+  (message "<< Previous"))
+(org-tree-slide--hide-slide-header); for at the first 
heading
+(run-hooks 'org-tree-slide-before-move-previous-hook)
+(widen)
+(cond
+ ((org-tree-slide--before-first-heading-p)
+  (message "before first heading (org-tree-slide)" ))
+ ((not (org-at-heading-p))
+  (org-tree-slide--outline-previous-heading)
+  (org-tree-slide--outline-previous-heading))
+ (t (org-tree-slide--outline-previous-heading)))
+(org-tree-slide--display-tree-with-narrow)
+;; To avoid error of missing header in Emacs24
+(if (= emacs-major-version 24)
+(goto-char (point-min)
+
 ;;;###autoload
 (defun org-tree-slide-simple-profile ()
   "Set variables for simple use.
@@ -437,51 +485,6 @@ Profiles:
   (if org-tree-slide-skip-comments
   (message "COMMENT: HIDE") (message "COMMENT: SHOW")))
 
-(defun org-tree-slide-move-next-tree ()
-  "Display the next slide."
-  (interactive)
-  (when (org-tree-slide--active-p)
-(unless (equal org-tree-slide-modeline-display 'outside)
-  (message "   Next >>"))
-(cond
- ((and (org-tree-slide--narrowing-p) ;displaying a slide, not the contents
-   (org-tree-slide--last-tree-p
-(progn (beginning-of-line) (point ;the last subtree
-  (org-tree-slide-content))
- ((or
-   (or (and (org-tree-slide--before-first-heading-p)
-(not (org-at-heading-p)))
-   (and (= (point-at-bol) 1) (not (org-tree-slide--narrowing-p
-   (or (org-tree-slide--first-heading-with-narrow-p)
-   (not (org-at-heading-p
-  (run-hooks 'org-tree-slide-before-move-next-hook)
-  (widen)
-  (org-tree-slide--outline-next-heading)
-  (org-tree-slide--display-tree-with-narrow))
- ;; stay the same slide (for CONTENT MODE, on the subtrees)
- (t nil (org-tree-slide--display-tree-with-narrow)
-
-(defun org-tree-slide-move-previous-tree ()
-  "Display the previous slide."
-  (interactive)
-  (when (org-tree-slide--active-p)
-(unless (equal org-tree-slide-modeline-display 'outside)
-  (message "<< Previous"))
-(org-tree-slide--hide-slide-header); for at the first 
heading
-(run-hooks 'org-tree-slide-before-move-previous-hook)
-(widen)
-(cond
- ((org-tree-slide--before-first-heading-p)
-  (message "before first heading (org-tree-slide)" ))
- ((not (org-at-heading-p))
-  (org-tree-slide--outline-previous-heading)
-  (org-tree-slide--outline-previous-heading))
- (t (org-tree-slide--outline-previous-heading)))
-(org-tree-slide--display-tree-with-narrow)
-;; To avoid error of missing header in Emacs24
-(if (= emacs-major-version 24)
-(goto-char (

[nongnu] elpa/org-tree-slide d81195b0df 100/144: Refine docstrings

[ELPA Syncer]

branch: elpa/org-tree-slide
commit d81195b0dfd8215953d3900703dfcb1d8dbe1690
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Refine docstrings
---
 org-tree-slide.el | 175 +-
 1 file changed, 93 insertions(+), 82 deletions(-)

diff --git a/org-tree-slide.el b/org-tree-slide.el
index 7567b0de8f..7484e016fe 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -1,6 +1,6 @@
 ;;; org-tree-slide.el --- A presentation tool for org-mode
 ;;
-;; Copyright (C) 2011-2017 Takaaki ISHIKAWA
+;; Copyright (C) 2011-2018 Takaaki ISHIKAWA
 ;;
 ;; Author: Takaaki ISHIKAWA 
 ;; Version: 2.8.8
@@ -36,7 +36,7 @@
 ;; Requirement:
 ;;org-mode 6.33x or higher version
 ;;The latest version of the org-mode is recommended.
-;;  (see http://orgmode.org/)
+;;  (see https://orgmode.org/)
 ;;
 ;; Usage:
 ;;1. Put this elisp into your load-path
@@ -78,7 +78,7 @@
 ;;(require 'org-clock) ; org-clock-in, -out, -clocking-p
 
 (defconst org-tree-slide "2.8.8"
-  "The version number of the org-tree-slide.el")
+  "The version number of the org-tree-slide.el.")
 
 (defgroup org-tree-slide nil
   "User variables for org-tree-slide."
@@ -86,26 +86,26 @@
 
 (defcustom org-tree-slide-skip-outline-level 0
   "Skip slides if a heading level is higher than or equal to this variable.
+
`0': never skip at any heading
e.g. set `4',
*** heading A  ; display as a slide
entry
 heading B ; skip! do not display as the next slide
 heading C ; skip!
-   *** heading D  ; display as the next slide
-"
+   *** heading D  ; display as the next slide"
   :type 'integer
   :group 'org-tree-slide)
 
 (defcustom org-tree-slide-fold-subtrees-skipped t
   "If this flag is true, the subtrees in a slide will be displayed in fold.
-   When nil, the body of the subtrees will be revealed.
-"
+
+When nil, the body of the subtrees will be revealed."
   :type 'boolean
   :group 'org-tree-slide)
 
 (defcustom org-tree-slide-header t
-  "The status of displaying the slide header"
+  "The status of displaying the slide header."
   :type 'boolean
   :group 'org-tree-slide)
 
@@ -116,8 +116,9 @@
 
 (defcustom org-tree-slide-cursor-init t
   "Specify a cursor position when exit slideshow.
-  `t': the cursor will move automatically to the head of buffer.
-  nil: keep the same position."
+
+Non-nil: the cursor will move automatically to the head of buffer.
+nil: keep the same position."
   :type 'boolean
   :group 'org-tree-slide)
 
@@ -132,7 +133,7 @@
   :group 'org-tree-slide)
 
 (defcustom org-tree-slide-heading-emphasis nil
-  "Specify to use a custom face heading, or not"
+  "Specify to use a custom face heading, or not."
   :type 'boolean
   :group 'org-tree-slide)
 
@@ -153,18 +154,19 @@
 
 (defcustom org-tree-slide-activate-message
   "Hello! This is org-tree-slide :-)"
-  "Message in mini buffer when org-tree-slide is activated."
+  "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."
+  "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.
+
'lighter: shown in lighter (update info actively, then it's slow)
'outside: update infomation when moving to the next/previous slide
nil: nothing to be shown"
@@ -223,29 +225,29 @@
 (defvar org-tree-slide-mode nil)
 ;; These hooks was obsoleted, and will be deleted by Oct. 2015.
 (defvar org-tree-slide-mode-play-hook nil
-  "[obsolete] A hook run when org-tree-slide--play is evaluated to start the 
slide show")
+  "[obsolete] A hook run when `org-tree-slide--play' is evaluated to start the 
slide show.")
 (defvar org-tree-slide-mode-stop-hook nil
-  "[obsolete] A hook run when org-tree-slide--stop is evaluated to stop the 
slide show")
+  "[obsolete] A hook run when `org-tree-slide--stop' is evaluated to stop the 
slide show.")
 (defvar org-tree-slide-mode-before-narrow-hook nil
-  "[obsolete] A hook run before evaluating 
org-tree-slide--display-tree-with-narrow")
+  "[obsolete] A hook run before evaluating 
`org-tree-slide--display-tree-with-narrow'.")
 (defvar org-tree-slide-mode-after-narrow-hook nil
-  "[obsolete] A hook run after evaluating 
org-tree-slide--display-tree-with-narrow")
+  "[obsolete] A hook run after evaluating 
`org-tree-slide--display-tree-with-narrow'.")
 
 ;; Updated hooks
 (defvar org-tree-slide-play-hook nil
-  "A hook run when org-tree-slide--play is evaluated to start the slide show")
+  "A hook run when `org-tree-slide--play' is evaluated to start the 
slideshow.")
 (defvar org-tree-slide-stop-hook nil
-  "A hook run when org-tree-slide--stop is evaluated to stop the slide show")
+  "A hook r

[nongnu] elpa/org-tree-slide 80cb1ac6f9 116/144: Merge branch 'master' of github.com:takaxp/org-tree-slide

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 80cb1ac6f98d533c9efb1a4b402822b84410b1d1
Merge: a041b92c14 7bf09a02bd
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Merge branch 'master' of github.com:takaxp/org-tree-slide
---
 org-tree-slide.el | 14 +-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/org-tree-slide.el b/org-tree-slide.el
index dede32cfa6..71073834fa 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -708,6 +708,9 @@ If HEADING-LEVEL is non-nil, the provided outline level is 
checked."
 (defvar org-tree-slide-author nil
   "If you have \"#+author:\" line in your org buffer, it will be used as a 
name of the slide author.")
 
+(defvar org-tree-slide-date nil
+  "If you have \"#+date:\" line in your org buffer, it will be used as the 
date.")
+
 (defcustom org-tree-slide-breadcrumbs " > "
   "Display breadcrumbs in the slide header.
 
@@ -733,6 +736,15 @@ concat the headers."
'org-tree-slide-author "#\\+AUTHOR:[ \t]*\\(.*\\)$" limit)
   (org-tree-slide--set-header-var-by-regxep
'org-tree-slide-email "#\\+EMAIL:[ \t]*\\(.*\\)$" limit)
+
+  ; Use the date header or the current date if there isn't one
+  (setq org-tree-slide-date nil)
+  (org-tree-slide--set-header-var-by-regxep
+   'org-tree-slide-date "#\\+DATE:[ \t]*\\(.*\\)$" limit)
+  (if (not org-tree-slide-date)
+  (setq org-tree-slide-date
+(format-time-string "%Y-%m-%d")))
+
   (org-tree-slide--set-header-var-by-regxep
'org-tree-slide-startup "#\\+STARTUP:[ \t]*\\(.*\\)$" limit
 
@@ -778,7 +790,7 @@ Some number of BLANK-LINES will be shown below the header."
(concat (if org-tree-slide-title org-tree-slide-title
  (buffer-name))
"\n"
-   (format-time-string "%Y-%m-%d") "  "
+   org-tree-slide-date "  "
(when org-tree-slide-author
  (concat org-tree-slide-author "  "))
(when org-tree-slide-email

[nongnu] elpa/org-tree-slide 7126a43650 123/144: Fix typo

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 7126a4365072a32898f169ead8fb59265dabc605
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Fix typo
---
 org-tree-slide.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/org-tree-slide.el b/org-tree-slide.el
index 68185c1f93..76630f4c6d 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -78,7 +78,7 @@
 (require 'org)
 (require 'org-timer)
 
-(defconst org-tree-slide "2.8.15"
+(defconst org-tree-slide "2.8.16"
   "The version number of the org-tree-slide.el.")
 
 (defgroup org-tree-slide nil

[nongnu] elpa/org-tree-slide aa2140f62b 126/144: Create custom variable org-tree-slide-content-margin-top

[ELPA Syncer]

branch: elpa/org-tree-slide
commit aa2140f62b63083cdefa1617052b8a775be39c11
Author: Furkan Karataş 
Commit: Furkan Karataş 

Create custom variable org-tree-slide-content-margin-top
---
 org-tree-slide.el | 9 +++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/org-tree-slide.el b/org-tree-slide.el
index 76630f4c6d..eefca6bd1f 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -112,6 +112,11 @@ When nil, the body of the subtrees will be revealed."
   :type 'boolean
   :group 'org-tree-slide)
 
+(defcustom org-tree-slide-content-margin-top 2
+  "Specify the number of blank lines, the slide will move from this line."
+  :type 'integer
+  :group 'org-tree-slide)
+
 (defcustom org-tree-slide-slide-in-effect t
   "Using a visual effect of slide-in for displaying trees."
   :type 'boolean
@@ -711,7 +716,7 @@ If HEADING-LEVEL is non-nil, the provided outline level is 
checked."
   "Apply slide in.  The slide will be moved from BLANK-LINES below to top."
   (let ((min-line -1))
 (when org-tree-slide-header
-  (setq min-line 2))
+  (setq min-line org-tree-slide-content-margin-top))
 (while (< min-line blank-lines)
   (org-tree-slide--set-slide-header blank-lines)
   (sit-for org-tree-slide-slide-in-waiting)
@@ -830,7 +835,7 @@ Some number of BLANK-LINES will be shown below the header."
 
 (defun org-tree-slide--show-slide-header (&optional lines)
   "Show header.  When LINES is nil, the default value is 2."
-  (org-tree-slide--set-slide-header (or lines 2)))
+  (org-tree-slide--set-slide-header (or lines 
org-tree-slide-content-margin-top)))
 
 (defun org-tree-slide--hide-slide-header ()
   "Hide header."

[nongnu] elpa/org-tree-slide 1fb3ecb637 132/144: Refine the default of header-overlay-face

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 1fb3ecb637d0baff40dff7965dcac63b9674377b
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Refine the default of header-overlay-face
---
 org-tree-slide.el | 28 +++-
 1 file changed, 3 insertions(+), 25 deletions(-)

diff --git a/org-tree-slide.el b/org-tree-slide.el
index f20a699697..90f490eacf 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2011-2020 Takaaki ISHIKAWA
 ;;
 ;; Author: Takaaki ISHIKAWA 
-;; Version: 2.8.17
+;; Version: 2.8.18
 ;; Package-Requires: ((emacs "24.4"))
 ;; Maintainer: Takaaki ISHIKAWA 
 ;; Twitter: @takaxp
@@ -78,7 +78,7 @@
 (require 'org)
 (require 'org-timer)
 
-(defconst org-tree-slide "2.8.17"
+(defconst org-tree-slide "2.8.18"
   "The version number of the org-tree-slide.el.")
 
 (defgroup org-tree-slide nil
@@ -553,16 +553,11 @@ This is displayed by default if 
`org-tree-slide-modeline-display' is nil.")
 (defvar org-tree-slide--header-face-autoconfig nil)
 (defun org-tree-slide--setup ()
   "Setup."
-  (when org-tree-slide--header-face-autoconfig
-(org-tree-slide--reset-header-face)
-(advice-add 'enable-theme :around #'org-tree-slide--enable-theme))
   (when (org-tree-slide--active-p)
 (org-tree-slide--play)))
 
 (defun org-tree-slide--abort ()
   "Abort."
-  (when org-tree-slide--header-face-autoconfig
-(advice-remove 'enable-theme #'org-tree-slide--enable-theme))
   (when (equal major-mode 'org-mode)
 (org-tree-slide--stop)))
 
@@ -783,27 +778,10 @@ concat the headers."
   (set header-variable
(if (re-search-forward regexp limit t) (match-string 1) nil)))
 
-(defface org-tree-slide-header-overlay-face
-  `((t (:bold t :foreground ,(face-foreground 'default)
-  :background ,(face-background 'default
+(defface org-tree-slide-header-overlay-face '((t :inherit default))
   "Face for org-tree-slide--header-overlay"
   :group 'org-tree-slide)
 
-(defun org-tree-slide--reset-header-face ()
-  "Reset the header face."
-  (face-spec-set 'org-tree-slide-header-overlay-face
- `((t (:bold t
- :foreground ,(face-foreground 'default)
- :background ,(face-background 'default))
-
-(defun org-tree-slide--enable-theme (f theme)
-  "Extend `enable-theme'.
-F is the original function.
-THEME is identical to the original arguments."
-  (funcall f theme)
-  (when (eq theme 'user)
-(org-tree-slide--reset-header-face)))
-
 (defun org-tree-slide--get-parents (&optional delim)
   "Get parent headlines and concat them with DELIM."
   (setq delim (or delim " > "))

[nongnu] elpa/org-tree-slide 571ff33308 138/144: Merge pull request #40 from HyunggyuJang/master

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 571ff333084dad83a535becfc1fdd601ead2da02
Merge: 9d2ba1df45 daeb80986c
Author: Takaaki ISHIKAWA 
Commit: GitHub 

Merge pull request #40 from HyunggyuJang/master

Localize font remapping
---
 org-tree-slide.el | 62 ++-
 1 file changed, 25 insertions(+), 37 deletions(-)

diff --git a/org-tree-slide.el b/org-tree-slide.el
index 90f490eacf..e035b5c008 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -200,45 +200,30 @@ If you want to show anything, just specify nil."
 map)
   "The keymap for `org-tree-slide'.")
 
-(defface org-tree-slide-heading-level-1-init
-  '((t (:inherit outline-1)))
+(defcustom org-tree-slide-heading-level-1
+  '(outline-1 :height 1.5 bold)
   "Level 1."
   :group 'org-tree-slide)
 
-(defface org-tree-slide-heading-level-2-init
-  '((t (:inherit outline-2)))
+(defcustom org-tree-slide-heading-level-2
+  '(outline-2 :height 1.4 bold)
   "Level 2."
   :group 'org-tree-slide)
 
-(defface org-tree-slide-heading-level-3-init
-  '((t (:inherit outline-3)))
+(defcustom org-tree-slide-heading-level-3
+  '(outline-3 :height 1.3 bold)
   "Level 3."
   :group 'org-tree-slide)
 
-(defface org-tree-slide-heading-level-4-init
-  '((t (:inherit outline-4)))
+(defcustom org-tree-slide-heading-level-4
+  '(outline-4 :height 1.2 bold)
   "Level 4."
   :group 'org-tree-slide)
 
-(defface org-tree-slide-heading-level-1
-  '((t (:inherit outline-1 :height 1.5 :bold t)))
-  "Level 1."
-  :group 'org-tree-slide)
-
-(defface org-tree-slide-heading-level-2
-  '((t (:inherit outline-2 :height 1.4 :bold t)))
-  "Level 2."
-  :group 'org-tree-slide)
-
-(defface org-tree-slide-heading-level-3
-  '((t (:inherit outline-3 :height 1.3 :bold t)))
-  "Level 3."
-  :group 'org-tree-slide)
-
-(defface org-tree-slide-heading-level-4
-  '((t (:inherit outline-4 :height 1.2 :bold t)))
-  "Level 4."
-  :group 'org-tree-slide)
+(defvar-local org-tree-slide-heading-level-1-cookie nil)
+(defvar-local org-tree-slide-heading-level-2-cookie nil)
+(defvar-local org-tree-slide-heading-level-3-cookie nil)
+(defvar-local org-tree-slide-heading-level-4-cookie nil)
 
 (defvar org-tree-slide-mode nil)
 (defvar org-tree-slide-play-hook nil
@@ -858,17 +843,20 @@ Otherwise, return the point.  This doesn't check whether 
skipping or not."
   (unless org-tree-slide-never-touch-face
 (cond
  (status
-  (custom-set-faces
-   '(org-level-1 ((t (:inherit org-tree-slide-heading-level-1
-   '(org-level-2 ((t (:inherit org-tree-slide-heading-level-2
-   '(org-level-3 ((t (:inherit org-tree-slide-heading-level-3
-   '(org-level-4 ((t (:inherit org-tree-slide-heading-level-4))
+  (setq
+   org-tree-slide-heading-level-1-cookie
+   (face-remap-add-relative 'org-level-1 org-tree-slide-heading-level-1)
+   org-tree-slide-heading-level-2-cookie
+   (face-remap-add-relative 'org-level-2 org-tree-slide-heading-level-2)
+   org-tree-slide-heading-level-3-cookie
+   (face-remap-add-relative 'org-level-3 org-tree-slide-heading-level-3)
+   org-tree-slide-heading-level-4-cookie
+   (face-remap-add-relative 'org-level-4 org-tree-slide-heading-level-4)))
  (t
-  (custom-set-faces
-   '(org-level-1 ((t (:inherit org-tree-slide-heading-level-1-init
-   '(org-level-2 ((t (:inherit org-tree-slide-heading-level-2-init
-   '(org-level-3 ((t (:inherit org-tree-slide-heading-level-3-init
-   '(org-level-4 ((t (:inherit org-tree-slide-heading-level-4-init)
+  (face-remap-remove-relative org-tree-slide-heading-level-1-cookie)
+  (face-remap-remove-relative org-tree-slide-heading-level-2-cookie)
+  (face-remap-remove-relative org-tree-slide-heading-level-3-cookie)
+  (face-remap-remove-relative org-tree-slide-heading-level-4-cookie)
 
 (defun org-tree-slide--count-slide (&optional pos)
   "Return formatted the slide number.  If POS is nil, `point' will be used."

[nongnu] elpa/org-tree-slide 27f8bb6a96 140/144: Merge branch 'master' of github.com:takaxp/org-tree-slide

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 27f8bb6a9676e1c0b500e75799e3b5c37a9156af
Merge: b1ba1189f1 571ff33308
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Merge branch 'master' of github.com:takaxp/org-tree-slide
---
 org-tree-slide.el | 62 ++-
 1 file changed, 25 insertions(+), 37 deletions(-)

diff --git a/org-tree-slide.el b/org-tree-slide.el
index 90f490eacf..e035b5c008 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -200,45 +200,30 @@ If you want to show anything, just specify nil."
 map)
   "The keymap for `org-tree-slide'.")
 
-(defface org-tree-slide-heading-level-1-init
-  '((t (:inherit outline-1)))
+(defcustom org-tree-slide-heading-level-1
+  '(outline-1 :height 1.5 bold)
   "Level 1."
   :group 'org-tree-slide)
 
-(defface org-tree-slide-heading-level-2-init
-  '((t (:inherit outline-2)))
+(defcustom org-tree-slide-heading-level-2
+  '(outline-2 :height 1.4 bold)
   "Level 2."
   :group 'org-tree-slide)
 
-(defface org-tree-slide-heading-level-3-init
-  '((t (:inherit outline-3)))
+(defcustom org-tree-slide-heading-level-3
+  '(outline-3 :height 1.3 bold)
   "Level 3."
   :group 'org-tree-slide)
 
-(defface org-tree-slide-heading-level-4-init
-  '((t (:inherit outline-4)))
+(defcustom org-tree-slide-heading-level-4
+  '(outline-4 :height 1.2 bold)
   "Level 4."
   :group 'org-tree-slide)
 
-(defface org-tree-slide-heading-level-1
-  '((t (:inherit outline-1 :height 1.5 :bold t)))
-  "Level 1."
-  :group 'org-tree-slide)
-
-(defface org-tree-slide-heading-level-2
-  '((t (:inherit outline-2 :height 1.4 :bold t)))
-  "Level 2."
-  :group 'org-tree-slide)
-
-(defface org-tree-slide-heading-level-3
-  '((t (:inherit outline-3 :height 1.3 :bold t)))
-  "Level 3."
-  :group 'org-tree-slide)
-
-(defface org-tree-slide-heading-level-4
-  '((t (:inherit outline-4 :height 1.2 :bold t)))
-  "Level 4."
-  :group 'org-tree-slide)
+(defvar-local org-tree-slide-heading-level-1-cookie nil)
+(defvar-local org-tree-slide-heading-level-2-cookie nil)
+(defvar-local org-tree-slide-heading-level-3-cookie nil)
+(defvar-local org-tree-slide-heading-level-4-cookie nil)
 
 (defvar org-tree-slide-mode nil)
 (defvar org-tree-slide-play-hook nil
@@ -858,17 +843,20 @@ Otherwise, return the point.  This doesn't check whether 
skipping or not."
   (unless org-tree-slide-never-touch-face
 (cond
  (status
-  (custom-set-faces
-   '(org-level-1 ((t (:inherit org-tree-slide-heading-level-1
-   '(org-level-2 ((t (:inherit org-tree-slide-heading-level-2
-   '(org-level-3 ((t (:inherit org-tree-slide-heading-level-3
-   '(org-level-4 ((t (:inherit org-tree-slide-heading-level-4))
+  (setq
+   org-tree-slide-heading-level-1-cookie
+   (face-remap-add-relative 'org-level-1 org-tree-slide-heading-level-1)
+   org-tree-slide-heading-level-2-cookie
+   (face-remap-add-relative 'org-level-2 org-tree-slide-heading-level-2)
+   org-tree-slide-heading-level-3-cookie
+   (face-remap-add-relative 'org-level-3 org-tree-slide-heading-level-3)
+   org-tree-slide-heading-level-4-cookie
+   (face-remap-add-relative 'org-level-4 org-tree-slide-heading-level-4)))
  (t
-  (custom-set-faces
-   '(org-level-1 ((t (:inherit org-tree-slide-heading-level-1-init
-   '(org-level-2 ((t (:inherit org-tree-slide-heading-level-2-init
-   '(org-level-3 ((t (:inherit org-tree-slide-heading-level-3-init
-   '(org-level-4 ((t (:inherit org-tree-slide-heading-level-4-init)
+  (face-remap-remove-relative org-tree-slide-heading-level-1-cookie)
+  (face-remap-remove-relative org-tree-slide-heading-level-2-cookie)
+  (face-remap-remove-relative org-tree-slide-heading-level-3-cookie)
+  (face-remap-remove-relative org-tree-slide-heading-level-4-cookie)
 
 (defun org-tree-slide--count-slide (&optional pos)
   "Return formatted the slide number.  If POS is nil, `point' will be used."

[nongnu] elpa/org-tree-slide b1ba1189f1 139/144: invisible org-meta-line (see README)

[ELPA Syncer]

branch: elpa/org-tree-slide
commit b1ba1189f12033712fa33e870db45a11f8701780
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

invisible org-meta-line (see README)
---
 README.org | 36 
 1 file changed, 32 insertions(+), 4 deletions(-)

diff --git a/README.org b/README.org
index ed1473d81a..d32662849b 100644
--- a/README.org
+++ b/README.org
@@ -1,7 +1,7 @@
 #+title:   README for Org Tree Slide
 #+author:  Takaaki Ishikawa
 #+email:   tak...@ieee.org
-#+date:[2021-02-26 Fri 01:04]
+#+date:[2021-10-10 Sun 02:05]
 #+startup: content
 
 
[[http://melpa.org/#/org-tree-slide][http://melpa.org/packages/org-tree-slide-badge.svg]]
@@ -247,7 +247,35 @@ These functions will toggle =org-tree-slide-mode= ON, 
automatically.
 
 NOTE: For senior user, some hook were renamed, please update your 
configurations
 
-* 7. History
+* 7. Additional settings
+** Hide org-meta-line
+
+The following code could be useful if you want to make =#+= lines invisible 
during presentation.
+
+#+begin_src emacs-lisp
+(with-eval-after-load "org-tree-slide"
+  (defvar my-hide-org-meta-line-p nil)
+  (defun my-hide-org-meta-line ()
+(interactive)
+(setq my-hide-org-meta-line-p t)
+(set-face-attribute 'org-meta-line nil
+ :foreground (face-attribute 'default 
:background)))
+  (defun my-show-org-meta-line ()
+(interactive)
+(setq my-hide-org-meta-line-p nil)
+(set-face-attribute 'org-meta-line nil :foreground nil))
+
+  (defun my-toggle-org-meta-line ()
+(interactive)
+(if my-hide-org-meta-line-p
+ (my-show-org-meta-line) (my-hide-org-meta-line)))
+
+  (add-hook 'org-tree-slide-play-hook #'my-hide-org-meta-line)
+  (add-hook 'org-tree-slide-stop-hook #'my-show-org-meta-line))
+#+end_src
+
+
+* 8. History
 
 see also 
[[https://github.com/takaxp/org-tree-slide/blob/master/ChangeLog][ChangeLog]] 
for details
 
@@ -264,12 +292,12 @@ see also 
[[https://github.com/takaxp/org-tree-slide/blob/master/ChangeLog][Chang
 | v2.0.0  | 2011-12-01@17:41 | Add profiles and support org 6.33x  |
 | v1.0.0  | 2011-09-28@20:59 | Release the initial version |
 
-* 8. Contact
+* 9. Contact
 
 The author is Takaaki ISHIKAWA (tak...@ieee.org).
 Feel free to email me or use a mention of twitter 
([[https://twitter.com/#!/takaxp][@takaxp]])
 
-* 9. Videos
+* 10. Videos
 
 We can watch some videos that kindly introduce =org-tree-slide.el=:
 - [[https://www.youtube.com/watch?v=vz9aLmxYJB0][Emacs Tips - How to Give 
Presentations with Org Mode]] (presented by 
[[https://www.youtube.com/channel/UCAiiOTio8Yu69c3XnR7nQBQ][System Crafters]])

[nongnu] elpa/org-tree-slide 917612a0d1 142/144: Merge pull request #47 from jypma/allow-empty-date-author

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 917612a0d1593de533b7bf0a2792d7e37bb2ca3d
Merge: 27f8bb6a96 9da1d00777
Author: Takaaki ISHIKAWA 
Commit: GitHub 

Merge pull request #47 from jypma/allow-empty-date-author

Allow empty date and author to save on-screen space
---
 org-tree-slide.el | 16 ++--
 1 file changed, 10 insertions(+), 6 deletions(-)

diff --git a/org-tree-slide.el b/org-tree-slide.el
index e035b5c008..7dbcc00bef 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -796,12 +796,16 @@ Some number of BLANK-LINES will be shown below the 
header."
   (overlay-put org-tree-slide--header-overlay 'display
(concat (if org-tree-slide-title org-tree-slide-title
  (buffer-name))
-   "\n"
-   org-tree-slide-date "  "
-   (when org-tree-slide-author
- (concat org-tree-slide-author "  "))
-   (when org-tree-slide-email
- (concat "<" org-tree-slide-email ">"))
+
+   ;; Use one line for date and author (but only if 
either of those is set)
+   (when (or org-tree-slide-date org-tree-slide-author 
org-tree-slide-email)
+ "\n"
+ org-tree-slide-date "  "
+ (when org-tree-slide-author
+   (concat org-tree-slide-author "  "))
+ (when org-tree-slide-email
+   (concat "<" org-tree-slide-email ">")))
+
(when org-tree-slide-breadcrumbs
  (concat "\n" (org-tree-slide--get-parents
org-tree-slide-breadcrumbs)))

[nongnu] elpa/org-tree-slide 9da1d00777 141/144: Allow empty date and author to save on-screen space

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 9da1d00777d848e0060b46e22f74ee1b3f4db249
Author: Jan Ypma 
Commit: Jan Ypma 

Allow empty date and author to save on-screen space

I tend to just put the author and date on the title page, preferring
them to be not displayed on each slide.

This commit will not use the line that's currently displaying date and
author, removing the empty "\n" if both author and date are set to empty
strings.
---
 org-tree-slide.el | 16 ++--
 1 file changed, 10 insertions(+), 6 deletions(-)

diff --git a/org-tree-slide.el b/org-tree-slide.el
index e035b5c008..7dbcc00bef 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -796,12 +796,16 @@ Some number of BLANK-LINES will be shown below the 
header."
   (overlay-put org-tree-slide--header-overlay 'display
(concat (if org-tree-slide-title org-tree-slide-title
  (buffer-name))
-   "\n"
-   org-tree-slide-date "  "
-   (when org-tree-slide-author
- (concat org-tree-slide-author "  "))
-   (when org-tree-slide-email
- (concat "<" org-tree-slide-email ">"))
+
+   ;; Use one line for date and author (but only if 
either of those is set)
+   (when (or org-tree-slide-date org-tree-slide-author 
org-tree-slide-email)
+ "\n"
+ org-tree-slide-date "  "
+ (when org-tree-slide-author
+   (concat org-tree-slide-author "  "))
+ (when org-tree-slide-email
+   (concat "<" org-tree-slide-email ">")))
+
(when org-tree-slide-breadcrumbs
  (concat "\n" (org-tree-slide--get-parents
org-tree-slide-breadcrumbs)))

[elpa] externals/diff-hl 099f07d18d 1/2: Add .dir-locals.el

[ELPA Syncer]

branch: externals/diff-hl
commit 099f07d18dc30fe3f7fcce970e20a49e0f6231ac
Author: YugaEgo 
Commit: YugaEgo 

Add .dir-locals.el
---
 .dir-locals.el | 5 +
 1 file changed, 5 insertions(+)

diff --git a/.dir-locals.el b/.dir-locals.el
new file mode 100644
index 00..bce919da77
--- /dev/null
+++ b/.dir-locals.el
@@ -0,0 +1,5 @@
+((nil . ((indent-tabs-mode . nil)
+ (fill-column . 80)
+ (sentence-end-double-space . t)
+ (emacs-lisp-docstring-fill-column . 75)))
+ (makefile-mode . ((indent-tabs-mode . t

[nongnu] elpa/org-tree-slide 9e50d8faec 014/144: Fix an issue of title display

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 9e50d8faec6a840f4db21534c9099e4518afafda
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Fix an issue of title display
---
 ChangeLog | 2 ++
 org-tree-slide.el | 3 ++-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 39cf1751df..e77c1f2ff0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2011-12-05  Takaaki ISHIKAWA  
 
+   * org-tree-slide.el: Fix an issue of title display
+
* org-tree-slide.el: Fix the end of slide for skip ccontrol
 
* org-tree-slide.el (org-tree-slide-skip-outline-level):
diff --git a/org-tree-slide.el b/org-tree-slide.el
index 95b3e795cd..bbeda27a41 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.1.3 (2011-12-05@17:08) # Fix an issue of title display
 ;;v2.1.3 (2011-12-05@15:08) # Fix the end of slide for skip ccontrol
 ;;v2.1.1 (2011-12-05@11:08) # Add skip control by heading level
 ;;v2.0.1 (2011-12-02@18:29) # Change function names, ots- is introduced.
@@ -341,7 +342,7 @@
   (if org-tree-slide-header
   (overlay-put ots-header-overlay 'display
   (concat "  [ " 
-  (unless org-tree-slide-title
+  (if org-tree-slide-title org-tree-slide-title
 (buffer-name))
   " ] (" (format-time-string "%Y-%m-%d") ")"
   (ots-get-brank-lines brank-lines)))

[nongnu] elpa/org-tree-slide 79aec5bbab 006/144: Fix typo

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 79aec5bbabfebfa7a42606903bb684a1dc8780dd
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Fix typo
---
 org-tree-slide.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/org-tree-slide.el b/org-tree-slide.el
index 24a3f9cc71..a4a08af92c 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -60,7 +60,7 @@
 
 (defcustom tree-slide-slide-in-effect t
   "Using a visual effect of slide-in for displaying trees."
-  :type 'boolen
+  :type 'boolean
   :group 'org-tree-slide)
 
 (defcustom tree-slide-slide-in-brank-lines 10

[nongnu] elpa/org-tree-slide 39a6039b18 023/144: Add an option to control modeline display

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 39a6039b18eaa2be7aa91ef7bff197f909942cb7
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Add an option to control modeline display
---
 ChangeLog |  4 
 org-tree-slide.el | 49 +
 2 files changed, 37 insertions(+), 16 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index c2e94a7be2..f6d146cd64 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2011-12-09  Takaaki ISHIKAWA  
+
+   * org-tree-slide.el: Add an option to control modeline display
+
 2011-12-08  Takaaki ISHIKAWA  
 
* org-tree-slide.el (ots-update-modeline): Reduce redundant processing
diff --git a/org-tree-slide.el b/org-tree-slide.el
index 32af62ce4a..f1aaca357d 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.1 (2011-12-09@11:46) # Add an option to control modeline display
 ;;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
@@ -60,7 +61,7 @@
 (require 'org)
 (require 'org-timer)
 
-(defconst org-tree-slide "2.4.0"
+(defconst org-tree-slide "2.4.1"
   "The version number of the org-tree-slide.el")
 
 (defgroup org-tree-slide nil
@@ -127,7 +128,16 @@
 
 (defcustom org-tree-slide-skip-done t
   "Specify to show TODO item only or not."
-  :type'boolean
+  :type 'boolean
+  :group 'org-tree-slide)
+
+(defcustom org-tree-slide-modeline-display nil
+  "Specify how to display the slide number in modeline.
+   'outside: shown in modeline outside of lighter
+   'lighter: shown in lighter (slow)
+   nil: nothing to be shown
+"
+  :type 'symbol
   :group 'org-tree-slide)
 
 (defface org-tree-slide-heading-level-2-init
@@ -181,7 +191,7 @@ Profiles:
   - Presentation
 M-x org-tree-slide-presentation-profile
 
-  - TODO Pursuit
+  - TODO Pursuit with narrowing
 M-x org-tree-slide-narrowing-control-profile
 M-x org-tree-slide-skip-done-toggle
 "
@@ -199,9 +209,12 @@ Profiles:
 
 (defvar ots-slide-number " TSlide")
 (defun ots-update-modeline ()
-  (if (and (ots-active-p) (org-on-heading-p))
-  (setq ots-slide-number (format " %s" (ots-count-slide (point
-ots-slide-number))
+  (cond ((equal org-tree-slide-modeline-display 'lighter)
+(if (and (ots-active-p) (org-on-heading-p))
+(setq ots-slide-number (format " %s" (ots-count-slide (point
+  ots-slide-number))
+   ((equal org-tree-slide-modeline-display 'outside) "")
+   (t " TSlide")))
 
 (defun org-tree-slide-play-with-timer ()
   "Start slideshow with setting a count down timer."
@@ -361,7 +374,8 @@ Profiles:
   (show-children)
   (org-cycle-hide-drawers 'all)
   (org-narrow-to-subtree)
-  ;; (setq display-tree-slide-string (ots-count-slide (point)))
+  (when (equal org-tree-slide-modeline-display 'outside)
+(setq display-tree-slide-string (ots-count-slide (point
   (when org-tree-slide-slide-in-effect
 (ots-slide-in org-tree-slide-slide-in-brank-lines))
   (when org-tree-slide-header
@@ -402,7 +416,8 @@ Profiles:
((and org-tree-slide-skip-done
  (not
   (looking-at
-   (concat org-outline-regexp-bol org-not-done-regexp))) 'skip))
+   ;; 6.33x does NOT suport org-outline-regexp-bol 
+   (concat "^\\*+ " org-not-done-regexp))) 'skip))
(t nil)))
 
 (defun ots-slide-in (brank-lines)
@@ -483,8 +498,8 @@ Profiles:
 
 (defun ots-move-to-the-first-heading ()
   (widen)
-  (goto-char (point-min))
-  (when (ots-before-first-heading-p)
+  (goto-char 1)  
+  (unless (looking-at "^\\*+ ")
 (outline-next-heading)))
 
 (defun ots-apply-custom-heading-face (status)
@@ -507,13 +522,15 @@ Profiles:
   (let
  ((count 0)
   (previous-point 0)
-  (current-slide 0))
-   (while (/= (point) previous-point) ; convergence point
+  (current-slide 0)
+  (current-point (point)))
+   (while (/= current-point previous-point) ; convergence point
  (setq count (1+ count))
- (when (<= (point) target-point)
-   (setq current-slide count))
- (setq previous-point (point))
- (ots-outline-next-heading))
+ (when (<= current-point target-point)
+   (setq current-slide count)) ; FIXME
+ (setq previous-point current-point)
+ (ots-outline-next-heading)
+ (setq current-point (point)))
(format "[%d/%d]" current-slide count)
 
 (defun ots-active-p ()

[nongnu] elpa/org-tree-slide faf9421439 041/144: Update README

[ELPA Syncer]

branch: elpa/org-tree-slide
commit faf9421439d38557d9d7f9348f798b780a78d5b8
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Update README
---
 README.org | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/README.org b/README.org
index 036c3ff736..80220e5130 100644
--- a/README.org
+++ b/README.org
@@ -2,7 +2,7 @@
 #+AUTHOR:  Takaaki Ishikawa
 #+EMAIL:   tak...@ieee.org
 #+STARTUP: content
-#+Last Update: 2011-12-17@20:44
+#+Last Update: 2011-12-17@20:45
 
 * 1. What's this?
 
@@ -123,7 +123,6 @@ If you feel the cursor moving is very slow, please change a 
value of =org-tree-s
 
 * 5. User variables
 
-|---+-+---+-|
 |   | Variable| Default value | Select  |
 |---+-+---+-|
 | 1 | org-tree-slide-skip-outline-level   | 0 | Numeric |
@@ -135,7 +134,7 @@ If you feel the cursor moving is very slow, please change a 
value of =org-tree-s
 | 7 | org-tree-slide-heading-emphasis | nil   | Boolean |
 | 8 | org-tree-slide-skip-done| nil   | Boolean |
 | 9 | org-tree-slide-modeline-display | 'outside  | [*1]|
-|---+-+---+-|
+
 
 #+begin_src org
 [*1] ={ nil| 'lighter | 'outside }=

[nongnu] elpa/org-tree-slide 5d4f714052 020/144: Change descriptions

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 5d4f7140521f78edcd9429627e3f53c85eb49338
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Change descriptions
---
 ChangeLog | 4 ++--
 org-tree-slide.el | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 0af06065fb..e729a305cd 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,8 +2,8 @@
 
* org-tree-slide.el: Add a new profile to control narrowing status
- You can control a status of narrowing or not by this profile.
- If you use /S-, toggle org-tree-slide-mode is an alternative 
way.
- (global-set-key (kbd "") 'org-tree-slide-mode) is recommended.
+ Assigned a single key to `org-tree-slide-mode' is recommended, like
+ (global-set-key (kbd "") 'org-tree-slide-mode)
- Modify the way to display the current slide number.
  Replace " TSlide" by slide number in mode-line, like [1/10].
 
diff --git a/org-tree-slide.el b/org-tree-slide.el
index 117332d6ff..9c6482120c 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -208,7 +208,7 @@
   (message "presentation profile: ON"))
 
 (defun org-tree-slide-narrowing-control-profile ()
-  "Set variables for an alternative of narrowing/widen switch by /S-."
+  "Set variables to switch a status of narrowing or widen."
   (interactive)
   (setq org-tree-slide-header nil)
   (setq org-tree-slide-slide-in-effect nil)

[nongnu] elpa/org-tree-slide e835028d43 051/144: Fix README.org

[ELPA Syncer]

branch: elpa/org-tree-slide
commit e835028d43503e70138ce98eebc8f2ad40c9c6d6
Author: Takaaki ISHIKAWA 
Commit: Takaaki ISHIKAWA 

Fix README.org
---
 README.org | 8 ++--
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/README.org b/README.org
index babb66d30d..1d48e05835 100644
--- a/README.org
+++ b/README.org
@@ -2,7 +2,7 @@
 #+AUTHOR:  Takaaki Ishikawa
 #+EMAIL:   tak...@ieee.org
 #+STARTUP: content
-#+Last Update: 2012-01-11@23:05
+#+Last Update: 2012-01-11@23:06
 
 * 1. What's this?
 
@@ -40,11 +40,7 @@ Then open an org file, just type == and ==. A 
presentation will beg
 If you are an [[https://github.com/dimitri/el-get][el-get]] user, please use 
this recipe.
 
 #+BEGIN_SRC emacs-lisp
-(:name org-tree-slide
-:description "A presentation tool for org-mode"
-:type git
-:url "git://github.com/takaxp/org-tree-slide.git"
-:required nil)
+(:name org-tree-slide :description "A presentation tool for org-mode" :type 
git :url "git://github.com/takaxp/org-tree-slide.git" :required nil)
 #+END_SRC
 
 ** 2.1 Requirements