wolfram-image. ( query -- )

Vocabulary

wolfram-alpha

Inputs

query

an object

Outputs

None

Definition

USING: colors formatting images.http io io.styles kernel
sequences wolfram-alpha.private xml.data xml.traversal ;

IN: wolfram-alpha

: wolfram-image. ( query -- )
    query "pod" tags-named [
        [
            "title" attr "%s:\n" sprintf H{
                { font-name "sans-serif" }
                { font-style bold }
                { foreground COLOR: slate-gray }
            } format
        ] [
            "img" deep-tags-named
            [ "src" attr "  " write http-image. ] each
        ] bi
    ] each ;