 : 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 ;
 


: latest-destination ( -- dest )
    upload-images-destination get
    "slava_pestov@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/"
    or ;

: factor-git-branch ( -- name )


: git-branch-destination ( -- dest )
    build-images-destination get
    "sheeple@downloads.factorcode.org:downloads.factorcode.org/images/"
    or
    factor-git-branch "/" 3append ;

