factor/extra/http/server/components/farkup/farkup.factor

! Copyright (C) 2008 Slava Pestov
! See http://factorcode.org/license.txt for BSD license.
USING: splitting kernel io sequences farkup accessors
http.server.components ;
IN: http.server.components.farkup

TUPLE: farkup-renderer < textarea-renderer ;

: <farkup-renderer>
    farkup-renderer new-textarea-renderer ;

M: farkup-renderer render-view*
    drop string-lines "\n" join convert-farkup write ;

: <farkup> ( id -- component )
    <text>
        <farkup-renderer> >>renderer ;