factor-git-branch ( -- name )

Vocabulary

bootstrap.image.upload

Inputs

None

Outputs

name

an object

Definition

USING: io io.directories io.encodings.utf8 io.launcher
io.pathnames sequences system unicode ;

IN: bootstrap.image.upload

: factor-git-branch ( -- name )
    image-path parent-directory [
        { "git" "rev-parse" "--abbrev-ref" "HEAD" } utf8
        <process-reader> stream-contents [ blank? ] trim-tail
    ] with-directory ;