git-link ( id -- link )


Vocabulary
mason.report

Inputs
idan object


Outputs
linkan object


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

IN: mason.report

: git-link ( id -- link )
[ git-id>url ] keep 2 nenum T{ xml-chunk
{ seq
V{
""
T{ tag
{ name ~name~ }
{ attrs ~attrs~ }
{ children ~vector~ }
}
""
}
}
} interpolate-xml ;