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

Vocabulary

mason.report

Inputs

id

an object

Outputs

short-link

an object

Definition

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

IN: mason.report

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