atom-link ( tag -- url/f )

Vocabulary

syndication

Inputs

tag

an object

Outputs

url/f

an object

Definition

USING: combinators.short-circuit kernel urls xml.data
xml.traversal ;

IN: syndication

: atom-link ( tag -- url/f )
    {
        [ "link" "alternate" "rel" tag-named-with-attr ]
        [ "link" "self" "rel" tag-named-with-attr ]
        [ "link" tag-named ]
    } 1|| [ "href" attr >url ] [ f ] if* ;