ui: Factorize bug-report information in `--help'.
[jackhill/guix/guix.git] / guix / config.scm.in
1 ;;; Guix --- Nix package management from Guile. -*- coding: utf-8 -*-
2 ;;; Copyright (C) 2012, 2013 Ludovic Courtès <ludo@gnu.org>
3 ;;;
4 ;;; This file is part of Guix.
5 ;;;
6 ;;; 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 ;;; 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 Guix. If not, see <http://www.gnu.org/licenses/>.
18
19 (define-module (guix config)
20 #:export (%guix-package-name
21 %guix-version
22 %guix-bug-report-address
23 %guix-home-page-url
24 %store-directory
25 %state-directory
26 %system
27 %libgcrypt
28 %nixpkgs
29 %nix-instantiate))
30
31 ;;; Commentary:
32 ;;;
33 ;;; Compile-time configuration of Guix.
34 ;;;
35 ;;; Code:
36
37 (define %guix-package-name
38 "@PACKAGE_NAME@")
39
40 (define %guix-version
41 "@PACKAGE_VERSION@")
42
43 (define %guix-bug-report-address
44 "@PACKAGE_BUGREPORT@")
45
46 (define %guix-home-page-url
47 "@PACKAGE_URL@")
48
49 (define %store-directory
50 "@storedir@")
51
52 (define %state-directory
53 ;; This must match `NIX_STATE_DIR' as defined in `daemon.am'.
54 "@guix_localstatedir@/nix")
55
56 (define %system
57 "@guix_system@")
58
59 (define %libgcrypt
60 "@LIBGCRYPT@")
61
62 (define %nixpkgs
63 (if (string=? "@NIXPKGS@" "")
64 #f
65 "@NIXPKGS@"))
66
67 (define %nix-instantiate
68 "@NIX_INSTANTIATE@")
69
70 ;;; config.scm ends here