[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/org-tree-slide a0a03e75f4 083/144: Show content after last
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/org-tree-slide a0a03e75f4 083/144: Show content after last slide |
Date: |
Tue, 18 Jan 2022 08:59:43 -0500 (EST) |
branch: elpa/org-tree-slide
commit a0a03e75f4d283388237c8dd14deac02beb6eb08
Author: bennati <st.bennati@gmail.com>
Commit: bennati <st.bennati@gmail.com>
Show content after last slide
Last slide is defined as the last visible heading
---
org-tree-slide.el | 22 +++++++++++++++-------
1 file changed, 15 insertions(+), 7 deletions(-)
diff --git a/org-tree-slide.el b/org-tree-slide.el
index 78fa7d63ab..c8a88f735b 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -408,19 +408,23 @@ Profiles:
(unless (equal org-tree-slide-modeline-display 'outside)
(message " Next >>"))
(cond
+ ((and (org-tree-slide--narrowing-p) ;displaying a slide, not the contents
+ (org-tree-slide--last-tree-p (progn (beginning-of-line) (point))))
;the last subtree
+ (org-tree-slide-content))
((or
(or (and (org-tree-slide--before-first-heading-p)
(not (org-at-heading-p)))
(and (= (point-at-bol) 1) (not (org-tree-slide--narrowing-p))))
(or (org-tree-slide--first-heading-with-narrow-p)
(not (org-at-heading-p))))
- (run-hooks 'org-tree-slide-before-move-next-hook)
+ (run-hooks 'org-tree-slide-before-move-next-hook)
(widen)
- (org-tree-slide--outline-next-heading))
+ (org-tree-slide--outline-next-heading)
+ (org-tree-slide--display-tree-with-narrow))
;; stay the same slide (for CONTENT MODE, on the subtrees)
- (t nil))
+ (t nil (org-tree-slide--display-tree-with-narrow)))
;; (when (and org-tree-slide-skip-done (looking-at (concat "^\\*+ "
org-not-done-regexp))) (org-clock-in) )
- (org-tree-slide--display-tree-with-narrow)))
+ ))
(defun org-tree-slide-move-previous-tree ()
"Display the previous slide"
@@ -795,9 +799,13 @@ Profiles:
(defun org-tree-slide--beginning-of-tree ()
"Return beginning point of the line, or t. If the position does not exist in
the buffer, then return nil."
(beginning-of-line)
- (if (org-at-heading-p)
- (point)
- (outline-previous-heading))) ; return position or nil.
+ (if (org-tree-slide--heading-level-skip-p) ;if the header has to be skipped
+ (progn
+ (outline-previous-heading) ;go to previous heading
+ (org-tree-slide--beginning-of-tree)) ;recursion until a visible
heading is found
+ (if (org-at-heading-p)
+ (point)
+ (outline-previous-heading)))) ; return position or nil.
(provide 'org-tree-slide)
- [nongnu] elpa/org-tree-slide 7151aaf4df 117/144: Add FUNDING.yml, (continued)
- [nongnu] elpa/org-tree-slide 7151aaf4df 117/144: Add FUNDING.yml, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 6cd71afa35 118/144: Add org-tree-slide-indicator, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 7983492eda 124/144: Fix minor typo in README (slip -> skip), ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide d9fede1544 127/144: Merge pull request #36 from KaratasFurkan/create-variable-content-margin-top, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 5e5dbd908e 119/144: Update README.org, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 7126a43650 123/144: Fix typo, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 619fbb17a2 121/144: buffer-narrowed-p is applied, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 1fb3ecb637 132/144: Refine the default of header-overlay-face, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide daeb80986c 137/144: Fix face remap specifications, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 3faa042393 144/144: Merge pull request #49 from takaxp/revert-47-allow-empty-date-author, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide a0a03e75f4 083/144: Show content after last slide,
ELPA Syncer <=
- [nongnu] elpa/org-tree-slide 2571cfe03b 017/144: Version 2.2.0 (adopt minor mode), ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 68779b8fe4 092/144: Add breadcrumbs (#23), ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 3a2d3733ba 091/144: Added Version header, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 4a895dec55 074/144: Merge branch 'master' of https://github.com/takaxp/org-tree-slide, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 6608f8d43b 096/144: Refine README and add a link to Moom, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 3f1d646eb1 098/144: Support faces for org-level-1, 4, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 603a383117 110/144: Revise docstring of org-tree-slide-skip-outline-level, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 80cb1ac6f9 116/144: Merge branch 'master' of github.com:takaxp/org-tree-slide, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 04b5a9dee1 131/144: Merge branch 'master' of github.com:takaxp/org-tree-slide, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 9d2ba1df45 134/144: Fix links in README, ELPA Syncer, 2022/01/18