magnet-link>magnet ( url -- magnet-url )

Vocabulary

bittorrent

Inputs

url

an object

Outputs

magnet-url

an object

Definition

USING: accessors assocs combinators kernel urls ;

IN: bittorrent

: magnet-link>magnet ( url -- magnet-url )
    [ magnet new ] dip >url query>> {
        [ "dn" of >>display-name ]
        [ "xl" of >>exact-length ]
        [ "xt" of >>exact-topic ]
        [ "ws" of >>web-seed ]
        [ "as" of >>acceptable-source ]
        [ "xs" of >>exact-source ]
        [ "kt" of >>keyword-topic ]
        [ "mt" of >>manifest-topic ]
        [ "tr" of >>address-tracker ]
        [ "so" of >>select-only ]
        [ "x.pe" of >>peer ]
    } cleave ;