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

slides: simplify strip-tease.

db4
John Benediktsson 2015-08-04 21:05:31 -07:00
parent 7b46b0e39a
commit 98459613a8
1 changed files with 25 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
extra/slides/slides.factor
View File

@ -1,9 +1,9 @@
! Copyright (C) 2007, 2010 Slava Pestov. ! Copyright (C) 2007, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays hashtables help.markup help.stylesheet io USING: accessors arrays colors fry help.markup help.stylesheet
io.styles kernel math models namespaces sequences ui ui.gadgets io.styles kernel math math.ranges models namespaces parser
ui.gadgets.books ui.gadgets.panes ui.gestures ui.pens.gradient sequences ui ui.gadgets ui.gadgets.books ui.gadgets.panes
parser accessors colors fry ; ui.gestures ui.pens.gradient ;
IN: slides IN: slides
CONSTANT: stylesheet CONSTANT: stylesheet
@ -46,36 +46,40 @@ CONSTANT: stylesheet
} }
: $title ( string -- ) : $title ( string -- )
[ H{ { font-name "sans-serif" } { font-size 48 } } format ] ($block) ; [
H{
{ font-name "sans-serif" }
{ font-size 48 }
} format
] ($block) ;
: $divider ( -- ) : $divider ( -- )
[ [
<gadget> <gadget>
{ {
T{ rgba f 0.25 0.25 0.25 1.0 } T{ rgba f 0.25 0.25 0.25 1.0 }
T{ rgba f 1.0 1.0 1.0 0.0 } T{ rgba f 1.0 1.0 1.0 0.0 }
} <gradient> >>interior } <gradient> >>interior
{ 800 10 } >>dim { 800 10 } >>dim
{ 1 0 } >>orientation { 1 0 } >>orientation
gadget. gadget.
] ($block) ; ] ($block) ;
: page-theme ( gadget -- ) : page-theme ( gadget -- gadget )
{ T{ rgba f 0.8 0.8 1.0 1.0 } T{ rgba f 0.8 1.0 1.0 1.0 } } <gradient> {
>>interior drop ; T{ rgba f 0.8 0.8 1.0 1.0 }
T{ rgba f 0.8 1.0 1.0 1.0 }
} <gradient> >>interior ;
: <page> ( list -- gadget ) : <page> ( list -- gadget )
[ [
stylesheet clone [ stylesheet clone [
[ print-element ] with-default-style [ print-element ] with-default-style
] with-variables ] with-variables
] make-pane ] make-pane page-theme ;
dup page-theme ;
: $slide ( element -- ) : $slide ( element -- )
unclip $title unclip $title $divider $list ;
$divider
$list ;
TUPLE: slides < book ; TUPLE: slides < book ;
@ -90,16 +94,11 @@ TUPLE: slides < book ;
: prev-page ( book -- ) -1 change-page ; : prev-page ( book -- ) -1 change-page ;
: (strip-tease) ( data n -- data )
[ first3 ] dip head 3array ;
: strip-tease ( data -- seq ) : strip-tease ( data -- seq )
dup third length 1 - iota [ first3 2 over length [a,b] [ head 3array ] with with with map ;
2 + (strip-tease)
] with map ;
SYNTAX: STRIP-TEASE: SYNTAX: STRIP-TEASE:
parse-definition strip-tease [ suffix! ] each ; parse-definition strip-tease append! ;
\ slides H{ \ slides H{
{ T{ button-down } [ request-focus ] } { T{ button-down } [ request-focus ] }