Commit | Line | Data |
---|---|---|
233e7676 | 1 | ;;; GNU Guix --- Functional package management for GNU |
a87d66f3 | 2 | ;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2018, 2019 Ludovic Courtès <ludo@gnu.org> |
7f9d184d | 3 | ;;; Copyright © 2017 Caleb Ristvedt <caleb.ristvedt@cune.org> |
00e219d1 | 4 | ;;; |
233e7676 | 5 | ;;; This file is part of GNU Guix. |
00e219d1 | 6 | ;;; |
233e7676 | 7 | ;;; GNU Guix is free software; you can redistribute it and/or modify it |
00e219d1 LC |
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 | ;;; | |
233e7676 | 12 | ;;; GNU Guix is distributed in the hope that it will be useful, but |
00e219d1 LC |
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 | |
233e7676 | 18 | ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. |
00e219d1 LC |
19 | |
20 | (define-module (guix config) | |
21 | #:export (%guix-package-name | |
22 | %guix-version | |
23 | %guix-bug-report-address | |
3441e164 | 24 | %guix-home-page-url |
0b0086e9 LC |
25 | |
26 | %storedir | |
27 | %localstatedir | |
28 | %sysconfdir | |
0b0086e9 | 29 | |
d8eea3d2 LC |
30 | %store-directory |
31 | %state-directory | |
7f9d184d | 32 | %store-database-directory |
3f40cfde | 33 | %config-directory |
0b0086e9 | 34 | |
d8eea3d2 | 35 | %system |
72153902 | 36 | %libz |
fea338c6 | 37 | %liblz |
fe0cff14 LC |
38 | %gzip |
39 | %bzip2 | |
40 | %xz)) | |
00e219d1 LC |
41 | |
42 | ;;; Commentary: | |
43 | ;;; | |
13cee334 LC |
44 | ;;; Compile-time configuration of Guix. When adding a substitution variable |
45 | ;;; here, make sure to equip (guix scripts pull) to substitute it. | |
00e219d1 LC |
46 | ;;; |
47 | ;;; Code: | |
48 | ||
49 | (define %guix-package-name | |
50 | "@PACKAGE_NAME@") | |
51 | ||
52 | (define %guix-version | |
53 | "@PACKAGE_VERSION@") | |
54 | ||
55 | (define %guix-bug-report-address | |
56 | "@PACKAGE_BUGREPORT@") | |
57 | ||
3441e164 LC |
58 | (define %guix-home-page-url |
59 | "@PACKAGE_URL@") | |
60 | ||
0b0086e9 LC |
61 | (define %storedir |
62 | "@storedir@") | |
63 | ||
64 | (define %localstatedir | |
65 | "@guix_localstatedir@") | |
66 | ||
67 | (define %sysconfdir | |
68 | "@guix_sysconfdir@") | |
69 | ||
d8eea3d2 | 70 | (define %store-directory |
1d6816f9 | 71 | (or (and=> (getenv "NIX_STORE_DIR") canonicalize-path) |
0b0086e9 | 72 | %storedir)) |
d8eea3d2 LC |
73 | |
74 | (define %state-directory | |
03d0e2d2 | 75 | ;; This must match `NIX_STATE_DIR' as defined in `nix/local.mk'. |
a87d66f3 | 76 | (or (getenv "GUIX_STATE_DIRECTORY") |
0b0086e9 | 77 | (string-append %localstatedir "/guix"))) |
d8eea3d2 | 78 | |
7f9d184d | 79 | (define %store-database-directory |
a87d66f3 | 80 | (or (getenv "GUIX_DATABASE_DIRECTORY") |
7f9d184d CR |
81 | (string-append %state-directory "/db"))) |
82 | ||
3f40cfde | 83 | (define %config-directory |
9dd674db | 84 | ;; This must match `GUIX_CONFIGURATION_DIRECTORY' as defined in `nix/local.mk'. |
0b0086e9 LC |
85 | (or (getenv "GUIX_CONFIGURATION_DIRECTORY") |
86 | (string-append %sysconfdir "/guix"))) | |
3f40cfde | 87 | |
d8eea3d2 LC |
88 | (define %system |
89 | "@guix_system@") | |
90 | ||
72153902 LC |
91 | (define %libz |
92 | "@LIBZ@") | |
93 | ||
fea338c6 PN |
94 | (define %liblz |
95 | "@LIBLZ@") | |
96 | ||
fe0cff14 LC |
97 | (define %gzip |
98 | "@GZIP@") | |
99 | ||
100 | (define %bzip2 | |
101 | "@BZIP2@") | |
102 | ||
103 | (define %xz | |
104 | "@XZ@") | |
105 | ||
00e219d1 | 106 | ;;; config.scm ends here |