Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge pull request #702 from pclouds/snow-confirm-before-upload

Browse source 
snow: confirm before uploading packages
This commit is contained in:
Alex Shinn 2020-09-05 13:21:34 +09:00 • committed by GitHub
commit 9c6020e22d
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lib/chibi/snow/commands.scm
View file

@ -947,9 +947,12 @@
((package-file? (car o)) ((package-file? (car o))
(if (not (every package-file? (cdr o))) (if (not (every package-file? (cdr o)))
(non-homogeneous)) (non-homogeneous))
;; TODO: include a summary (version, file size, etc.)
(if (yes-or-no? cfg "Upload " o " to "
(remote-uri cfg '(command package uri) "/?"))
(for-each (for-each
(lambda (package) (upload-package cfg spec package)) (lambda (package) (upload-package cfg spec package))
o)) o)))
(else (else
(if (any package-file? (cdr o)) (if (any package-file? (cdr o))
(non-homogeneous)) (non-homogeneous))
@ -958,7 +961,10 @@
(package (create-package (car spec+files) (package (create-package (car spec+files)
(cdr spec+files) (cdr spec+files)
package-file))) package-file)))
(upload-package cfg spec package package-file))))) ;; TODO: include a summary (version, file size, etc.)
(if (yes-or-no? cfg "Upload " o " to "
(remote-uri cfg '(command package uri) "/?"))
(upload-package cfg spec package package-file))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Remove - removes the listed libraries. ;; Remove - removes the listed libraries.