info-table ( alist -- html )

Vocabulary

spider.report

Inputs

alist

an object

Outputs

html

an object

Definition

USING: kernel math sequences xml.data xml.syntax.private ;

IN: spider.report

: info-table ( alist -- html )
    [
        first2 dupd 1000000 /f 3 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~ }
                    { attrs ~attrs~ }
                    { children ~vector~ }
                }
                ""
            }
        }
    } interpolate-xml ;