(write-farkup) ( farkup -- xml )
Farkup

Prev:	parse-farkup ( string -- farkup )
Next:	Farkup syntax tree nodes

Vocabulary
farkup

Inputs

farkup

a Farkup syntax tree node

Outputs

xml	an XML chunk

Word description
Converts a Farkup syntax tree node to XML.

Definition

IN: farkup

GENERIC: (write-farkup) ( farkup -- xml )

Methods

USING: arrays farkup sequences ;

M: array (write-farkup) [ (write-farkup) ] map ;


USING: accessors farkup kernel ;

M: code (write-farkup) [ string>> ] [ mode>> ] bi render-code ;


USING: farkup ;

M: emphasis (write-farkup) "em" farkup-inside ;


USING: farkup ;

M: heading1 (write-farkup) "h1" farkup-inside ;


USING: farkup ;

M: heading2 (write-farkup) "h2" farkup-inside ;


USING: farkup ;

M: heading3 (write-farkup) "h3" farkup-inside ;


USING: farkup ;

M: heading4 (write-farkup) "h4" farkup-inside ;


USING: farkup ;

M: image (write-farkup) open-link write-image-link ;


USING: farkup ;

M: inline-code (write-farkup) "code" farkup-inside ;


USING: farkup kernel xml.data ;

M: line-break (write-farkup)
    drop
    T{ xml-chunk { seq V{ "" T{ tag { name ~name~ } } "" } } } ;


USING: farkup kernel xml.data ;

M: line (write-farkup)
    drop
    T{ xml-chunk { seq V{ "" T{ tag { name ~name~ } } "" } } } ;


USING: farkup ;

M: link (write-farkup) open-link write-link ;


USING: farkup ;

M: list-item (write-farkup) "li" farkup-inside ;


USING: farkup ;

M: ordered-list (write-farkup) "ol" farkup-inside ;


USING: farkup ;

M: paragraph (write-farkup) "p" farkup-inside ;


USING: farkup strings ;

M: string (write-farkup) ;


USING: farkup ;

M: strong (write-farkup) "strong" farkup-inside ;


USING: farkup ;

M: subscript (write-farkup) "sub" farkup-inside ;


USING: farkup ;

M: superscript (write-farkup) "sup" farkup-inside ;


USING: accessors farkup sequences xml.data xml.syntax.private ;

M: table-row (write-farkup)
    child>> [
        (write-farkup) 1 nenum T{ xml-chunk
            { seq
                V{
                    ""
                    T{ tag
                        { name ~name~ }
                        { children ~vector~ }
                    }
                    ""
                }
            }
        } interpolate-xml
    ] map 1 nenum T{ xml-chunk
        { seq
            V{
                ""
                T{ tag { name ~name~ } { children ~vector~ } }
                ""
            }
        }
    } interpolate-xml ;


USING: farkup ;

M: table (write-farkup) "table" farkup-inside ;


USING: farkup ;

M: unordered-list (write-farkup) "ul" farkup-inside ;