Commit | Line | Data |
---|---|---|
233e7676 | 1 | ;;; GNU Guix --- Functional package management for GNU |
72153902 | 2 | ;;; Copyright © 2012, 2013, 2014, 2015, 2016 Ludovic Courtès <ludo@gnu.org> |
00e219d1 | 3 | ;;; |
233e7676 | 4 | ;;; This file is part of GNU Guix. |
00e219d1 | 5 | ;;; |
233e7676 | 6 | ;;; GNU Guix is free software; you can redistribute it and/or modify it |
00e219d1 LC |
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 | ;;; | |
233e7676 | 11 | ;;; GNU Guix is distributed in the hope that it will be useful, but |
00e219d1 LC |
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 | |
233e7676 | 17 | ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. |
00e219d1 LC |
18 | |
19 | (define-module (guix config) | |
20 | #:export (%guix-package-name | |
21 | %guix-version | |
22 | %guix-bug-report-address | |
3441e164 | 23 | %guix-home-page-url |
d8eea3d2 LC |
24 | %store-directory |
25 | %state-directory | |
3f40cfde | 26 | %config-directory |
6bfec3ed | 27 | %guix-register-program |
d8eea3d2 | 28 | %system |
00e219d1 | 29 | %libgcrypt |
72153902 | 30 | %libz |
fe0cff14 LC |
31 | %nix-instantiate |
32 | %gzip | |
33 | %bzip2 | |
34 | %xz)) | |
00e219d1 LC |
35 | |
36 | ;;; Commentary: | |
37 | ;;; | |
38 | ;;; Compile-time configuration of Guix. | |
39 | ;;; | |
40 | ;;; Code: | |
41 | ||
42 | (define %guix-package-name | |
43 | "@PACKAGE_NAME@") | |
44 | ||
45 | (define %guix-version | |
46 | "@PACKAGE_VERSION@") | |
47 | ||
48 | (define %guix-bug-report-address | |
49 | "@PACKAGE_BUGREPORT@") | |
50 | ||
3441e164 LC |
51 | (define %guix-home-page-url |
52 | "@PACKAGE_URL@") | |
53 | ||
d8eea3d2 | 54 | (define %store-directory |
1d6816f9 LC |
55 | (or (and=> (getenv "NIX_STORE_DIR") canonicalize-path) |
56 | "@storedir@")) | |
d8eea3d2 LC |
57 | |
58 | (define %state-directory | |
03d0e2d2 | 59 | ;; This must match `NIX_STATE_DIR' as defined in `nix/local.mk'. |
f5768afa | 60 | (or (getenv "NIX_STATE_DIR") "@guix_localstatedir@/guix")) |
d8eea3d2 | 61 | |
3f40cfde | 62 | (define %config-directory |
9dd674db DC |
63 | ;; This must match `GUIX_CONFIGURATION_DIRECTORY' as defined in `nix/local.mk'. |
64 | (or (getenv "GUIX_CONFIGURATION_DIRECTORY") "@guix_sysconfdir@/guix")) | |
3f40cfde | 65 | |
6bfec3ed LC |
66 | (define %guix-register-program |
67 | ;; The 'guix-register' program. | |
68 | (or (getenv "GUIX_REGISTER") "@guix_sbindir@/guix-register")) | |
69 | ||
d8eea3d2 LC |
70 | (define %system |
71 | "@guix_system@") | |
72 | ||
00e219d1 LC |
73 | (define %libgcrypt |
74 | "@LIBGCRYPT@") | |
75 | ||
72153902 LC |
76 | (define %libz |
77 | "@LIBZ@") | |
78 | ||
00e219d1 LC |
79 | (define %nix-instantiate |
80 | "@NIX_INSTANTIATE@") | |
81 | ||
fe0cff14 LC |
82 | (define %gzip |
83 | "@GZIP@") | |
84 | ||
85 | (define %bzip2 | |
86 | "@BZIP2@") | |
87 | ||
88 | (define %xz | |
89 | "@XZ@") | |
90 | ||
00e219d1 | 91 | ;;; config.scm ends here |