[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/dslide e8ccef6575 014/230: rearrangement
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/dslide e8ccef6575 014/230: rearrangement |
Date: |
Sun, 7 Jul 2024 19:00:08 -0400 (EDT) |
branch: elpa/dslide
commit e8ccef6575e9cbd538a6f697c397df2518291b92
Author: Psionik K <73710933+psionic-k@users.noreply.github.com>
Commit: Psionik K <73710933+psionic-k@users.noreply.github.com>
rearrangement
Signed-off-by: Psionik K <73710933+psionic-k@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
- [nongnu] branch elpa/dslide created (now 54e2a8fdc4), ELPA Syncer, 2024/07/07
- [nongnu] elpa/dslide 1c92fef5e6 004/230: Add an overriding face to the breadcrumbs, ELPA Syncer, 2024/07/07
- [nongnu] elpa/dslide 50e2a8ca37 009/230: use before-string instead of display for header, ELPA Syncer, 2024/07/07
- [nongnu] elpa/dslide c00b3ac258 017/230: rearrangement, ELPA Syncer, 2024/07/07
- [nongnu] elpa/dslide 1b67456311 013/230: rearrangement, ELPA Syncer, 2024/07/07
- [nongnu] elpa/dslide e8ccef6575 014/230: rearrangement,
ELPA Syncer <=
- [nongnu] elpa/dslide 94357940d8 029/230: Actions track their own headings, ELPA Syncer, 2024/07/07
- [nongnu] elpa/dslide dd8fe96b10 033/230: Buffer slide -> Push steps, global presentation, ELPA Syncer, 2024/07/07
- [nongnu] elpa/dslide 66215639a5 047/230: Image action displays inline images in its init method, ELPA Syncer, 2024/07/07
- [nongnu] elpa/dslide 27e87a7c6d 003/230: Option to not show author and title in header even when present, ELPA Syncer, 2024/07/07
- [nongnu] elpa/dslide f8aa534207 001/230: Fix compiler warnings. Obsolete functions, too long comment, ELPA Syncer, 2024/07/07
- [nongnu] elpa/dslide e4beb23e57 002/230: Match breadcrumb separator to text properties from previous heading, ELPA Syncer, 2024/07/07
- [nongnu] elpa/dslide 597ed25aa2 022/230: hook cleanup, ELPA Syncer, 2024/07/07
- [nongnu] elpa/dslide 7fbe8db983 005/230: compiler warning, unused variable, ELPA Syncer, 2024/07/07
- [nongnu] elpa/dslide cb31e38633 041/230: push-restriction uses markers, ELPA Syncer, 2024/07/07
- [nongnu] elpa/dslide 1766661399 037/230: comments & whitespace, ELPA Syncer, 2024/07/07