<unimportant>
Well, you could do this minor factoring, if you find it hard to
imagine how to improve your code further...
: render-plain-list ( seq component quot -- )
'[ , component>> renderer>> @ ] each ; inline
: render-li-list ( seq quot component -- )
'[ <li> @ </li> ] render-plain-list ; inline
: render-ordered-list ( seq quot component -- )
<ol> render-li-list </ol> ; inline
: render-unordered-list ( seq quot component -- )
<ul> render-li-list </ul> ; inline
(OK, I guess I'm out of excuses to procrastinate on homework now. Bye)
Dan
</unimportant>
On Tue, Apr 22, 2008 at 6:59 PM, Slava Pestov <[EMAIL PROTECTED]> wrote:
> Hi all,
>
> I'm working on the web framework and came up with this:
>
> : render-plain-list ( seq component quot -- )
> '[ , component>> renderer>> @ ] each ; inline
>
> : render-ordered-list ( seq quot component -- )
> <ol> '[ <li> @ </li> ] render-plain-list </ol> ; inline
>
> : render-unordered-list ( seq quot component -- )
> <ul> '[ <li> @ </li> ] render-plain-list </ul> ; inline
>
> : render-list ( value renderer quot -- )
> over type>> {
> { +plain+ [ render-plain-list ] }
> { +ordered+ [ render-ordered-list ] }
> { +unordered+ [ render-unordered-list ] }
> } case ; inline
>
> M: list-renderer render-view*
> [ render-view* ] render-list ;
>
> M: list-renderer render-summary*
> [ render-summary* ] render-list ;
>
> I think this is a pretty nice use-case for 'fry' and its hard to
> imagine how this code could be improved further.
>
> Slava
>
> -------------------------------------------------------------------------
> This SF.net email is sponsored by the 2008 JavaOne(SM) Conference
> Don't miss this year's exciting event. There's still time to save $100.
> Use priority code J8TL2D2.
>
> http://ad.doubleclick.net/clk;198757673;13503038;p?http://java.sun.com/javaone
> _______________________________________________
> Factor-talk mailing list
> [email protected]
> https://lists.sourceforge.net/lists/listinfo/factor-talk
>
-------------------------------------------------------------------------
This SF.net email is sponsored by the 2008 JavaOne(SM) Conference
Don't miss this year's exciting event. There's still time to save $100.
Use priority code J8TL2D2.
http://ad.doubleclick.net/clk;198757673;13503038;p?http://java.sun.com/javaone
_______________________________________________
Factor-talk mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/factor-talk
