 ! Copyright (C) 2017 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors arrays bootstrap.image bootstrap.image.upload
-calendar cli.git combinators concurrency.combinators environment
-formatting fry http.client io io.directories io.launcher
-io.pathnames kernel math.parser memory modern.paths namespaces
-parser.notes prettyprint sequences sequences.extras sets
-splitting system system-info threads tools.test
-tools.test.private vocabs vocabs.hierarchy
+USING: accessors arrays assocs bootstrap.image
+bootstrap.image.upload calendar cli.git combinators
+concurrency.combinators environment formatting fry http.client
+io io.directories io.launcher io.pathnames kernel math.parser
+memory modern.paths namespaces parser.notes prettyprint
+sequences sequences.extras sets splitting system system-info
+threads tools.test tools.test.private vocabs vocabs.hierarchy
 vocabs.hierarchy.private vocabs.loader vocabs.metadata zealot ;
 IN: zealot.factor
 

: changed-factor-vocabs-from-master ( -- vocabs )
    "HEAD" "origin/master" changed-factor-vocabs ;

: reject-unloadable-vocabs ( vocabs -- vocabs' )
    [ don't-load? ] reject ;

: ci-vocabs-to-test ( -- vocabs )
    changed-factor-vocabs-from-master reject-unloadable-vocabs ;
        [ "ZEALOT TESTING ROOTS" print flush drop zealot-test-commands ]
    } 2cleave ;

: factor-clean-branch ( -- str )
    os cpu [ name>> ] bi@ { { CHAR: . CHAR: - } } substitute
    "-" glue "origin/clean-" prepend ;

: vocab-path>vocab ( path -- vocab )
    [ parent-directory ] map
    [ "/" split1 nip ] map
