steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add strip-tease to slides

db4
Doug Coleman 2008-01-10 10:45:54 -10:00
parent 9022d8f825
commit 0f98342d4b
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
extra/slides/slides.factor
View File

@ -1,7 +1,6 @@
USING: arrays hashtables help.markup help.stylesheet io
io.styles kernel math models namespaces sequences ui ui.gadgets
ui.gadgets.books ui.gadgets.panes
ui.gestures ui.render ;
ui.gadgets.books ui.gadgets.panes ui.gestures ui.render ;
IN: slides
: stylesheet
@ -81,6 +80,17 @@ TUPLE: slides ;
: prev-page ( book -- ) -1 change-page ;
: (strip-tease) ( data n -- data )
>r first3 r> head 3array ;
: strip-tease ( data -- seq )
dup third length 1 - [
2 + (strip-tease)
] with map ;
: STRIP-TEASE:
parse-definition strip-tease [ parsed ] each ; parsing
\ slides H{
{ T{ key-down f f "DOWN" } [ next-page ] }
{ T{ key-down f f "UP" } [ prev-page ] }