;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2012, 2013, 2014, 2015 Ludovic Courtès <ludo@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; ;;; GNU Guix is free software; you can redistribute it and/or modify it ;;; under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 3 of the License, or (at ;;; your option) any later version. ;;; ;;; GNU Guix is distributed in the hope that it will be useful, but ;;; WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. (define-module (guix config) #:export (%guix-package-name %guix-version %guix-bug-report-address %guix-home-page-url %store-directory %state-directory %config-directory %guix-register-program %system %libgcrypt %nix-instantiate %gzip %bzip2 %xz)) ;;; Commentary: ;;; ;;; Compile-time configuration of Guix. ;;; ;;; Code: (define %guix-package-name "@PACKAGE_NAME@") (define %guix-version "@PACKAGE_VERSION@") (define %guix-bug-report-address "@PACKAGE_BUGREPORT@") (define %guix-home-page-url "@PACKAGE_URL@") (define %store-directory (or (and=> (getenv "NIX_STORE_DIR") canonicalize-path) "@storedir@")) (define %state-directory ;; This must match `NIX_STATE_DIR' as defined in `nix/local.mk'. (or (getenv "NIX_STATE_DIR") "@guix_localstatedir@/guix")) (define %config-directory ;; This must match `NIX_CONF_DIR' as defined in `nix/local.mk'. (or (getenv "NIX_CONF_DIR") "@guix_sysconfdir@/guix")) (define %guix-register-program ;; The 'guix-register' program. (or (getenv "GUIX_REGISTER") "@guix_sbindir@/guix-register")) (define %system "@guix_system@") (define %libgcrypt "@LIBGCRYPT@") (define %nix-instantiate "@NIX_INSTANTIATE@") (define %gzip "@GZIP@") (define %bzip2 "@BZIP2@") (define %xz "@XZ@") ;;; config.scm ends here