: latest-destination ( -- dest )
upload-images-destination get
- "slava_pestov@downloads.factorcode.org:downloads.factorcode.org/images/latest/"
+ "sheeple@downloads.factorcode.org:downloads.factorcode.org/images/latest/"
or ;
: build-destination ( -- dest )
build-images-destination get
- "slava_pestov@downloads.factorcode.org:downloads.factorcode.org/images/build/"
+ "sheeple@downloads.factorcode.org:downloads.factorcode.org/images/build/"
or ;
: factor-git-branch ( -- name )
: git-branch-destination ( -- dest )
build-images-destination get
- "slava_pestov@downloads.factorcode.org:downloads.factorcode.org/images/"
+ "sheeple@downloads.factorcode.org:downloads.factorcode.org/images/"
or
factor-git-branch "/" 3append ;
: create-remote-upload-directory ( -- )
'[
"ssh" ,
- "slava_pestov@downloads.factorcode.org" ,
+ "sheeple@downloads.factorcode.org" ,
"mkdir -p downloads.factorcode.org/images/" factor-git-branch append ,
] { } make try-process ;