Add auto-next attribute to automatically continue to the next action

CHANGELOG.md

@@ -1,5 +1,11 @@
 # Changelog
 
+## unrelease
+
+### Added
+
+- `auto-continue` attribute to automatically continue to the next action (#240)
+
 ## [v0.11.0] Brazlip (Sunday, the 24th of May, 2026)
 
 ### Added

docs/actions-api.rst

@@ -60,6 +60,34 @@ It is possible to have multiple actions in a single attribute. They will be exec
    {#three .unrevealed}
    Some more content.
 
+Actions are executed in "reading order", from top left to bottom right. The
+presenter needs to press the "next" key to trigger the next action.
+
+.. code-block::
+
+   {#one}
+   Some content.
+
+   {center="~duration:2 ~margin:10 one" reveal="two three"}
+   The action above is executed first.
+
+   {#two .unrevealed unreveal="three"}
+   The action above is executed second.
+
+   {#three .unrevealed}
+   Some more content.
+
+When the ``auto-continue`` attribute is included in the attribute set, the next
+action is executed without requiring the user pressing the "next" key.
+
+.. code-block::
+
+   {reveal="two" auto-continue}
+   The action above is executed first.
+
+   {#two .unrevealed center}
+   The action above is executed directly after the first one.
+
 .. contents:: Actions table of content
    :local:
 

src/compiler/special_attrs.ml

@@ -12,6 +12,7 @@ let svg = "svg"
 let pdf_resolution = "pdf-resolution"
 let pause_block = "pause-block"
 let as_html = "as-html"
+let auto_continue = "auto-continue"
 
 let all_attrs =
   [
@@ -28,5 +29,6 @@ let all_attrs =
     svg;
     pdf_resolution;
     pause_block;
-    as_html
+    as_html;
+    auto_continue
   ]

src/engine/runtime/step/action_scheduler.ml

@@ -76,13 +76,19 @@ let setup_actions window () =
   in
   ()
 
-let next ~mode window () =
+let ( !! ) = Jstr.v
+
+let rec next ~mode window () =
   match find_next_pause_or_step () with
   | None -> None
   | Some pause ->
       let res =
         let> () = Actions.exit ~mode window pause in
         let> () = AttributeActions.do_ ~mode window pause in
-        Undoable.return ()
+        match Brr.El.at !!"auto-continue" pause with
+        | None -> Undoable.return ()
+        | Some _ ->
+            let n = next ~mode window () in
+            Option.value ~default:(Undoable.return ()) n
       in
       Some res

src/engine/runtime/table_of_content/table_of_content.ml

@@ -60,11 +60,11 @@ let generate window root =
       []
     |> List.rev |> List.concat
   in
-  let rec loop undo entries step categorized_els =
+  let rec loop ~auto_continue undo entries step categorized_els =
     match categorized_els with
     | `Title t :: res ->
         let entries = entry_title t :: entries in
-        loop undo entries step res
+        loop ~auto_continue undo entries step res
     | `Action a :: res ->
         if Step.Action_scheduler.is_action a then
           let* res =
@@ -74,13 +74,19 @@ let generate window root =
             let> () = undo in
             Fut.return res
           in
-          let step = step + 1 in
-          let entries = entry_action window step :: entries in
-          loop undo entries step categorized_els
-        else loop undo entries step res
+          let step = if auto_continue then step else step + 1 in
+          let entries =
+            if auto_continue then entries
+            else entry_action window step :: entries
+          in
+          let auto_continue = Brr.El.at !!"auto-continue" a |> Option.is_some in
+          loop ~auto_continue undo entries step categorized_els
+        else loop ~auto_continue undo entries step res
     | [] -> Fut.return (undo, List.rev entries)
   in
-  let* undo, entries = loop (Undoable.return ()) [] 0 categorized_els in
+  let* undo, entries =
+    loop ~auto_continue:false (Undoable.return ()) [] 0 categorized_els
+  in
   let* (), undo = undo in
   let+ () = undo () in
   let els = entry_action window 0 :: entries in

test/compiler/auto-next.t/auto-next.md

@@ -0,0 +1,13 @@
+a
+
+{pause}
+
+b
+
+{pause auto-continue}
+
+c
+
+{pause}
+
+d

test/compiler/auto-next.t/run.t

@@ -0,0 +1,9 @@
+Testing auto-next
+
+  $ slipshow compile auto-next.md
+
+There should be 3 steps: a, then b appears, then c and d appears.
+
+Also, check the toc!
+
+$ cp auto-next.html /tmp/