git-short-link ( id -- short-link )


Vocabulary
mason.report

Inputs
idan object


Outputs
short-linkan object


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

IN: mason.report

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