builder-list ( seq -- xml )

Vocabulary

webapps.mason.downloads

Inputs

seq

an object

Outputs

xml

an object

Definition

USING: accessors calendar calendar.format combinators kernel
mason.report math.order sequences sorting webapps.mason.backend
webapps.mason.utils xml.data xml.syntax.private ;

IN: webapps.mason.downloads

: builder-list ( seq -- xml )
    [ os/cpu ] sort-by [
        {
            [ os/cpu ]
            [ last-git-id>> git-short-link ]
            [ report-url ]
            [ last-timestamp>> timestamp>ymdhms ]
            [
                [ last-timestamp>> ] [ start-timestamp>> ] bi
                2dup before? [ nip now swap ] when time-
                duration>hms
            ]
            [ builder-status ]
        } cleave 6 nenum T{ xml-chunk
            { seq
                V{
                    ""
                    T{ tag
                        { name ~name~ }
                        { children ~vector~ }
                    }
                    ""
                }
            }
        } interpolate-xml
    ] map [
        T{ xml-chunk
            { seq
                V{
                    ""
                    T{ tag
                        { name ~name~ }
                        { children ~vector~ }
                    }
                    ""
                }
            }
        }
    ] [
        1 nenum T{ xml-chunk
            { seq
                V{
                    ""
                    T{ tag
                        { name ~name~ }
                        { children ~vector~ }
                    }
                    ""
                }
            }
        } interpolate-xml
    ] if-empty ;