Skip to content

Commit

Permalink
line noise
Browse files Browse the repository at this point in the history
Signed-off-by: Psionik K <[email protected]>
  • Loading branch information
psionic-k committed May 26, 2024
1 parent 7784e7a commit 20c4a44
Showing 1 changed file with 11 additions and 12 deletions.
23 changes: 11 additions & 12 deletions dslide.el
Original file line number Diff line number Diff line change
Expand Up @@ -1592,16 +1592,16 @@ Child headings become independent slides.")
;; For child slides, we make a slide out of the next child heading and advance
;; our progress forward to the end of that child
(or (when-let ((child (oref obj child)))
(if-let ((progress (dslide-forward child)))
progress
(dslide-final child)
(oset obj child nil)))
(when-let ((child-heading (dslide-child-next obj)))
;; TODO transitive action customization
(let ((child (dslide--make-slide child-heading)))
(dslide-begin child)
(oset obj child child)
(oref child begin)))))
(if-let ((progress (dslide-forward child)))
progress
(dslide-final child)
(oset obj child nil)))
(when-let ((child-heading (dslide-child-next obj)))
;; TODO transitive action customization
(let ((child (dslide--make-slide child-heading)))
(dslide-begin child)
(oset obj child child)
(oref child begin)))))

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

;; ** Inline Slide Action
;; TODO round-robin slide action
;; TODO every-slide action
;; TODO round-robin

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

0 comments on commit 20c4a44

Please sign in to comment.