34 lines
871 B
Factor
34 lines
871 B
Factor
! Copyright (C) 2008 Alex Chapman
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: accessors html.elements io io.streams.string kernel namespaces semantic-db sequences strings tangle.path ;
|
|
IN: tangle.html
|
|
|
|
TUPLE: element attributes ;
|
|
|
|
TUPLE: ulist < element items ;
|
|
: <ulist> ( items -- element )
|
|
H{ } clone swap ulist boa ;
|
|
|
|
TUPLE: link < element href text ;
|
|
: <link> ( href text -- element )
|
|
H{ } clone -rot link boa ;
|
|
|
|
GENERIC: >html ( element -- str )
|
|
|
|
M: string >html ( str -- str ) ;
|
|
|
|
M: link >html ( link -- str )
|
|
[ <a dup href>> =href a> text>> write </a> ] with-string-writer ;
|
|
|
|
M: node >html ( node -- str )
|
|
dup node>path [
|
|
swap node-content <link> >html
|
|
] [
|
|
node-content
|
|
] if* ;
|
|
|
|
M: ulist >html ( ulist -- str )
|
|
[
|
|
<ul> items>> [ <li> >html write </li> ] each </ul>
|
|
] with-string-writer ;
|