[nongnu] elpa/org-tree-slide 04b5a9dee1 131/144: Merge branch 'master' of github.com:takaxp/org-tree-slide

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 04b5a9dee1be7ecba8ada31685c3e11c668d10e6
Merge: 62da9b28c6 d6e8e91433
Author: Takaaki ISHIKAWA <takaxp@ieee.org>
Commit: Takaaki ISHIKAWA <takaxp@ieee.org>

    Merge branch 'master' of github.com:takaxp/org-tree-slide
---
 README.org        | 2 +-
 org-tree-slide.el | 9 +++++++--
 2 files changed, 8 insertions(+), 3 deletions(-)

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.
 
diff --git a/org-tree-slide.el b/org-tree-slide.el
index 2e314f3c34..f20a699697 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 margin between the slide header and its content."
+  :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
@@ -717,7 +722,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)
@@ -851,7 +856,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."