[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 <takaxp@ieee.org>
Commit: Takaaki ISHIKAWA <takaxp@ieee.org>

    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  <takaxp@ieee.org>
 
        * 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 "#FFFFFF"
 ;  "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)