checkout-new-factor ( branch/checksum -- path branch/checksum )


Vocabulary
zealot.factor

Inputs
branch/checksuman object


Outputs
pathan object
branch/checksuman object


Definition
USING: cli.git combinators io io.directories io.pathnames kernel
prettyprint threads zealot ;

IN: zealot.factor

: checkout-new-factor
( branch/checksum -- path branch/checksum )
"factor" "factor" zealot-github-ensure drop
[ "factor" "factor" zealot-github-clone-paths nip ] dip
over <pathname> . flush yield {
[
drop
"factor" "factor" zealot-github-add-build-remote
drop
]
[ drop [ git-fetch-all* ] with-directory drop ]
[ zealot-build-checkout drop ]
[ ]
} 2cleave ;