git-link ( id -- link )

Vocabulary

mason.report

Inputs

id

an object

Outputs

link

an object

Definition

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

IN: mason.report

: git-link ( id -- link )
    [ "https://github.com/factor/factor/commit/" "" prepend-as ]
    keep 2 nenum T{ xml-chunk
        { seq
            V{
                ""
                T{ tag
                    { name ~name~ }
                    { attrs ~attrs~ }
                    { children ~vector~ }
                }
                ""
            }
        }
    } interpolate-xml ;