~rabbits/adelie

89383765263940960751eebe15e0bc0f069d54be — Devine Lu Linvega 11 months ago b81876b
Draw upcoming slide in speaker notes
1 files changed, 3 insertions(+), 5 deletions(-)

M src/adelie.tal
M src/adelie.tal => src/adelie.tal +3 -5
@@ 8,10 8,6 @@
|a0 @File &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2
|c0 @DateTime &year $2 &month $1 &day $1 &hour $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1

(
@|TODO )
	( > display next slide title in speaker's notes )

|0000

	@src $40


@@ 308,7 304,9 @@
@|operations )

@op-name ( addr* -- addr* )
	next-word DUP2 <print-line>
	next-word DUP2 <print-str>
	;<draw-title>/spacer-txt <print-str>
	find-next-slide next-word <print-line>
	#0a18 DEO
	( | print speaker's notes )
	.eof LDZ2 OVR2