[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ş <furkan.karatas02@gmail.com>
Commit: Furkan Karataş <furkan.karatas02@gmail.com>

    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."