1 ;;; GNU Guix --- Functional package management for GNU
2 ;;; Copyright © 2012, 2013, 2014, 2015 Ludovic Courtès <ludo@gnu.org>
4 ;;; This file is part of GNU Guix.
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.
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.
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/>.
19 (define-module (guix config)
20 #:export (%guix-package-name
22 %guix-bug-report-address
27 %guix-register-program
37 ;;; Compile-time configuration of Guix.
41 (define %guix-package-name
47 (define %guix-bug-report-address
48 "@PACKAGE_BUGREPORT@")
50 (define %guix-home-page-url
53 (define %store-directory
54 (or (and=> (getenv "NIX_STORE_DIR") canonicalize-path)
57 (define %state-directory
58 ;; This must match `NIX_STATE_DIR' as defined in `nix/local.mk'.
59 (or (getenv "NIX_STATE_DIR") "@guix_localstatedir@/guix"))
61 (define %config-directory
62 ;; This must match `GUIX_CONFIGURATION_DIRECTORY' as defined in `nix/local.mk'.
63 (or (getenv "GUIX_CONFIGURATION_DIRECTORY") "@guix_sysconfdir@/guix"))
65 (define %guix-register-program
66 ;; The 'guix-register' program.
67 (or (getenv "GUIX_REGISTER") "@guix_sbindir@/guix-register"))
75 (define %nix-instantiate
87 ;;; config.scm ends here