branch: elpa/dslide
commit e8ccef6575e9cbd538a6f697c397df2518291b92
Author: Psionik K <73710933+psioni...@users.noreply.github.com>
Commit: Psionik K <73710933+psioni...@users.noreply.github.com>
rearrangement
Signed-off-by: Psionik K <73710933+psioni...@users.noreply.github.com>
---
org-tree-slide.el | 58 +++++++++++++++++++++++++++----------------------------
1 file changed, 29 insertions(+), 29 deletions(-)
diff --git a/org-tree-slide.el b/org-tree-slide.el
index 0021030d03..e554f5955c 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -572,6 +572,35 @@ See also `org-tree-slide-skip-comments'."
(format " %s" (org-tree-slide--count-slide (point))))))
;;; Internal functions ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(defun org-tree-slide--last-tree-p (target)
+ "Check if the TARGET point is in the last heading or it's body.
+If every heading is specified as skip, return nil.
+** n-1 ; nil
+** n ; t
+ hoge ; t"
+ (save-excursion
+ (save-restriction
+ (widen)
+ (goto-char target)
+ (org-tree-slide--beginning-of-tree)
+ (let ((p (point))
+ (_ (goto-char (1+ (buffer-size))))
+ (l (org-tree-slide--last-point-at-bot)))
+ (if l
+ (= p l)
+ nil)))))
+
+(defun org-tree-slide--first-heading-with-narrow-p ()
+ "Check the current point is on the first heading with narrowing.
+** first ; t
+ hoge ; nil
+ hoge ; nil
+*** second ; nil
+ hoge ; nil
+*** third ; nil"
+ (and (buffer-narrowed-p) (= (line-beginning-position)
+ (point-min))))
+
(defvar org-tree-slide--slide-number nil)
(make-variable-buffer-local 'org-tree-slide--slide-number)
@@ -1033,17 +1062,6 @@ If the cursor exist before first heading, do nothing."
** third ; nil"
(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.
-** first ; t
- hoge ; nil
- hoge ; nil
-*** second ; nil
- hoge ; nil
-*** third ; nil"
- (and (buffer-narrowed-p) (= (line-beginning-position)
- (point-min))))
-
(defun org-tree-slide--all-skip-p ()
"Check the buffer has at least one slide to be shown."
(save-excursion
@@ -1053,24 +1071,6 @@ If the cursor exist before first heading, do nothing."
(unless (org-tree-slide--last-point-at-bot)
t))))
-(defun org-tree-slide--last-tree-p (target)
- "Check if the TARGET point is in the last heading or it's body.
-If every heading is specified as skip, return nil.
-** n-1 ; nil
-** n ; t
- hoge ; t"
- (save-excursion
- (save-restriction
- (widen)
- (goto-char target)
- (org-tree-slide--beginning-of-tree)
- (let ((p (point))
- (_ (goto-char (1+ (buffer-size))))
- (l (org-tree-slide--last-point-at-bot)))
- (if l
- (= p l)
- nil)))))
-
(provide 'org-tree-slide)
;;; org-tree-slide.el ends here
