with-github-worktree-tag ( org/user project tag quot -- )

Vocabulary

build-from-source

Inputs

org/user	an object
project	an object
tag	an object
quot	an object

Outputs

None

Definition

USING: calendar calendar.format cli.git combinators formatting
io io.directories io.encodings.utf8 io.files io.launcher kernel
;

IN: build-from-source

: with-github-worktree-tag ( org/user project tag quot -- )
    [
        {
            [ drop sync-github-no-checkout-repository ]
            [ drop github-disk-path ]
            [ github-tag-disk-checkout-path ]
            [ 2nip ]
        } 3cleave
    ] dip [
        [
            over "%s\n- deleting old build..." sprintf write
            2dup
            [ ?delete-tree "deleted!" print ]
            [ "- %s building..." sprintf write ] bi*
            [ git-worktree-force-add wait-for-success ] keepd
        ]
    ] dip
    [ with-directory "done!" print now timestamp>rfc3339 ] curry
    compose [ dip utf8 set-file-contents ] curry [
        [
            over "build-from-source considering github %s"
            sprintf print over check-build-completed
            [ 2nip "- %s already built at %s" sprintf print ]
        ] 2curry
    ] dip [ if* ] curry compose with-directory ; inline