steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

webapps.mason.version.source: delete unique temp directory after upload.

locals-and-roots
John Benediktsson 2016-03-18 18:45:00 -07:00
parent 623341bd02
commit 2518ce23b4
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
extra/webapps/mason/version/source/source.factor
View File

@ -29,23 +29,25 @@ IN: webapps.mason.version.source
download-images download-images
] with-directory ; ] with-directory ;
: (make-source-release) ( version -- path ) : zip-source ( version -- path )
[ { "zip" "-qr9" } ] dip source-release-name file-name [ { "zip" "-qr9" } ] dip source-release-name file-name
[ suffix "factor" suffix try-process ] keep ; [ suffix "factor" suffix try-process ] keep ;
: make-source-release ( version git-id -- path ) : make-source-release ( version git-id -- path )
"Creating source release..." print flush [ "Creating source release..." print flush
[ clone-factor prepare-source zip-source
clone-factor prepare-source (make-source-release) "Package created: " write absolute-path dup print ;
"Package created: " write absolute-path dup print
] with-unique-directory drop
] with-temp-directory ;
: upload-source-release ( package version -- ) : upload-source-release ( path version -- )
"Uploading source release..." print flush "Uploading source release..." print flush
[ package-username get package-host get ] dip [ package-username get package-host get ] dip
remote-source-release-name remote-source-release-name
upload-safely ; upload-safely ;
: do-source-release ( version git-id -- ) : do-source-release ( version git-id -- )
[ make-source-release ] [ drop upload-source-release ] 2bi ; [
[
[ make-source-release ]
[ drop upload-source-release ] 2bi
] cleanup-unique-directory
] with-temp-directory ;