with-gitlab-worktree-tag ( base org/user project tag quot -- )

Vocabulary

build-from-source

Inputs

base	an object
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-gitlab-worktree-tag
    ( base org/user project tag quot -- )
    [
        {
            [ drop sync-gitlab-no-checkout-repository ]
            [ drop gitlab-disk-path ]
            [ gitlab-tag-disk-checkout-path ]
            [ 3nip ]
        } 4cleave
    ] 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 [
        [
            dup "build-from-source considering gitlab %s"
            sprintf print over check-build-completed
            [ 2nip "- %s already built at %s" sprintf print ]
        ] 2curry
    ] dip [ if* ] curry compose with-directory ; inline