18 lines
759 B
Scheme
Executable file
18 lines
759 B
Scheme
Executable file
#!/usr/bin/env sh
|
|
# -*- mode: scheme; -*-
|
|
IFS=" "
|
|
exec scsh -e main -s "$0" "$@"
|
|
!#
|
|
(define (main args)
|
|
(run (git clone --depth 1 https://code.ryuslash.org/ryuslash/laminar-config.git))
|
|
(with-cwd "laminar-config"
|
|
(run (makepkg))
|
|
(with-env (call-with-input-file "../secrets/laminar-config"
|
|
(lambda (port)
|
|
(read port)))
|
|
(run (curl -X PUT "https://code.ryuslash.org/api/packages/ryuslash/arch/extras"
|
|
--user ,(format #f "~a:~a"
|
|
(getenv "UPLOAD_USER")
|
|
(getenv "UPLOAD_TOKEN"))
|
|
--header "Content-Type: application/octet-stream"
|
|
--data-binary ,(format #f "@~a" (car (glob "*.pkg.tar.zst"))))))))
|