Skip to content

Commit 20c4a44

Browse files
committed
line noise
Signed-off-by: Psionik K <73710933+psionic-k@users.noreply.github.com>
1 parent 7784e7a commit 20c4a44

File tree

1 file changed

+11
-12
lines changed

1 file changed

+11
-12
lines changed

dslide.el

Lines changed: 11 additions & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -1592,16 +1592,16 @@ Child headings become independent slides.")
15921592
;; For child slides, we make a slide out of the next child heading and advance
15931593
;; our progress forward to the end of that child
15941594
(or (when-let ((child (oref obj child)))
1595-
(if-let ((progress (dslide-forward child)))
1596-
progress
1597-
(dslide-final child)
1598-
(oset obj child nil)))
1599-
(when-let ((child-heading (dslide-child-next obj)))
1600-
;; TODO transitive action customization
1601-
(let ((child (dslide--make-slide child-heading)))
1602-
(dslide-begin child)
1603-
(oset obj child child)
1604-
(oref child begin)))))
1595+
(if-let ((progress (dslide-forward child)))
1596+
progress
1597+
(dslide-final child)
1598+
(oset obj child nil)))
1599+
(when-let ((child-heading (dslide-child-next obj)))
1600+
;; TODO transitive action customization
1601+
(let ((child (dslide--make-slide child-heading)))
1602+
(dslide-begin child)
1603+
(oset obj child child)
1604+
(oref child begin)))))
16051605

16061606
(cl-defmethod dslide-backward ((obj dslide-slide-action-child))
16071607
;; For child slides, we make a slide out of the previous child heading and
@@ -1639,8 +1639,7 @@ Child headings become independent slides.")
16391639
(dslide-final child)))
16401640

16411641
;; ** Inline Slide Action
1642-
;; TODO round-robin slide action
1643-
;; TODO every-slide action
1642+
;; TODO round-robin
16441643

16451644
;; TODO override the child's own slide action
16461645
(defclass dslide-slide-action-inline (dslide-slide-action)

0 commit comments

Comments
 (0)