You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

92 lines
2.3 KiB

  1. ;;; GNU Guix --- Functional package management for GNU
  2. ;;; Copyright © 2012, 2013, 2014, 2015, 2016 Ludovic Courtès <ludo@gnu.org>
  3. ;;;
  4. ;;; This file is part of GNU Guix.
  5. ;;;
  6. ;;; GNU Guix is free software; you can redistribute it and/or modify it
  7. ;;; under the terms of the GNU General Public License as published by
  8. ;;; the Free Software Foundation; either version 3 of the License, or (at
  9. ;;; your option) any later version.
  10. ;;;
  11. ;;; GNU Guix is distributed in the hope that it will be useful, but
  12. ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  13. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  14. ;;; GNU General Public License for more details.
  15. ;;;
  16. ;;; You should have received a copy of the GNU General Public License
  17. ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
  18. (define-module (guix config)
  19. #:export (%guix-package-name
  20. %guix-version
  21. %guix-bug-report-address
  22. %guix-home-page-url
  23. %store-directory
  24. %state-directory
  25. %config-directory
  26. %guix-register-program
  27. %system
  28. %libgcrypt
  29. %libz
  30. %nix-instantiate
  31. %gzip
  32. %bzip2
  33. %xz))
  34. ;;; Commentary:
  35. ;;;
  36. ;;; Compile-time configuration of Guix.
  37. ;;;
  38. ;;; Code:
  39. (define %guix-package-name
  40. "@PACKAGE_NAME@")
  41. (define %guix-version
  42. "@PACKAGE_VERSION@")
  43. (define %guix-bug-report-address
  44. "@PACKAGE_BUGREPORT@")
  45. (define %guix-home-page-url
  46. "@PACKAGE_URL@")
  47. (define %store-directory
  48. (or (and=> (getenv "NIX_STORE_DIR") canonicalize-path)
  49. "@storedir@"))
  50. (define %state-directory
  51. ;; This must match `NIX_STATE_DIR' as defined in `nix/local.mk'.
  52. (or (getenv "NIX_STATE_DIR") "@guix_localstatedir@/guix"))
  53. (define %config-directory
  54. ;; This must match `GUIX_CONFIGURATION_DIRECTORY' as defined in `nix/local.mk'.
  55. (or (getenv "GUIX_CONFIGURATION_DIRECTORY") "@guix_sysconfdir@/guix"))
  56. (define %guix-register-program
  57. ;; The 'guix-register' program.
  58. (or (getenv "GUIX_REGISTER") "@guix_sbindir@/guix-register"))
  59. (define %system
  60. "@guix_system@")
  61. (define %libgcrypt
  62. "@LIBGCRYPT@")
  63. (define %libz
  64. "@LIBZ@")
  65. (define %nix-instantiate
  66. "@NIX_INSTANTIATE@")
  67. (define %gzip
  68. "@GZIP@")
  69. (define %bzip2
  70. "@BZIP2@")
  71. (define %xz
  72. "@XZ@")
  73. ;;; config.scm ends here