artwork.scm 1.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445
  1. ;;; GNU Guix --- Functional package management for GNU
  2. ;;; Copyright © 2014, 2015, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
  3. ;;; Copyright © 2017 Leo Famulari <leo@famulari.name>
  4. ;;;
  5. ;;; This file is part of GNU Guix.
  6. ;;;
  7. ;;; GNU Guix is free software; you can redistribute it and/or modify it
  8. ;;; under the terms of the GNU General Public License as published by
  9. ;;; the Free Software Foundation; either version 3 of the License, or (at
  10. ;;; your option) any later version.
  11. ;;;
  12. ;;; GNU Guix is distributed in the hope that it will be useful, but
  13. ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  14. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  15. ;;; GNU General Public License for more details.
  16. ;;;
  17. ;;; You should have received a copy of the GNU General Public License
  18. ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
  19. (define-module (gnu artwork)
  20. #:use-module (guix packages)
  21. #:use-module (guix git-download)
  22. #:export (%artwork-repository))
  23. ;;; Commentary:
  24. ;;;
  25. ;;; Common place for the definition of the Guix artwork repository.
  26. ;;;
  27. ;;; Code:
  28. (define %artwork-repository
  29. (let ((commit "2f2fe74c1078be605a6a93c2193fd6c715cebbb0"))
  30. (origin
  31. (method git-fetch)
  32. (uri (git-reference
  33. (url "https://git.savannah.gnu.org/git/guix/guix-artwork.git")
  34. (commit commit)))
  35. (file-name (string-append "guix-artwork-" (string-take commit 7)
  36. "-checkout"))
  37. (sha256
  38. (base32
  39. "0c8r0phvm3wgf914n2kw1461cwdjl2zbzqvzq9x7d9pwkgv7xmq7")))))
  40. ;;; artwork.scm ends here