diff options
| -rw-r--r-- | local/packages/guix.scm | 44 |
1 files changed, 44 insertions, 0 deletions
diff --git a/local/packages/guix.scm b/local/packages/guix.scm index 451851b..2cfe5ac 100644 --- a/local/packages/guix.scm +++ b/local/packages/guix.scm @@ -7,6 +7,8 @@ #:use-module (guix packages) #:use-module (guix utils) #:use-module (gnu packages autotools) + #:use-module (gnu packages bash) + #:use-module (gnu packages curl) #:use-module (gnu packages emacs) #:use-module (gnu packages pkg-config) #:use-module (gnu packages texinfo) @@ -47,3 +49,45 @@ (synopsis #f) (description #f) (license #f)))) + +(define-public guix-latest-eval + (let ((commit "819c3fd9746ecda6a9fd005d1dd7efc70944d2c1")) + (package + (name "guix-latest-eval") + (version (string-append "0.0.1" "-" (string-take commit 7))) + (source (origin + (method git-fetch) + (uri (git-reference + (url "git://git.magnolia.local/guix-latest-eval") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1nnz8qfmg3f6vn2gc9g3k535smfwb50yq2d1snf0nf9mcn1yji7b")))) + (build-system trivial-build-system) + (inputs + `(("bash" ,bash) + ("curl" ,curl))) + (arguments + `(#:modules + ((guix build utils)) + #:builder + (begin + (use-modules (guix build utils)) + (copy-recursively (assoc-ref %build-inputs "source") ".") + (setenv "PATH" (string-append + (assoc-ref %build-inputs "bash") "/bin" ":" + (assoc-ref %build-inputs "curl") "/bin" ":")) + (substitute* "guix-latest-eval" + (("/bin/sh") (which "bash")) + (("curl") (which "curl"))) + (let ((directory "bin")) + (install-file "guix-latest-eval" + (string-append %output "/" directory))) + #t))) + (home-page #f) + (synopsis "Get the most recent fully evaluated commit from the build farm") + (description + "This package provides a Curl script to get the most recent fully +evaluated commit from the build farm.") + (license license:gpl3+)))) |