Extracting Quarto notes as a transcript

[heather]

I have written a script as speaker notes in a Quarto presentation. I wondered if anyone had written any code to extract speaker notes as a transcript?

I guess it would be similar to extracting any divs of a given type - maybe there is a relatively easy way to do this?

Thanks for any pointers!

[heather]

I got an answer from Zhian Kamvar on Mastodon:

library(pegboard)
qmd <- Episode$new("demo.qmd")
qmd$label_divs()
notes <- qmd$get_divs("notes") 
pegboard:::isolate_elements(qmd$body, notes)

dir.create("notes", showWarnings = FALSE)
qmd$write("notes")

This creates a notes/demo.md file with just the notes divs.