Browse Source

config: Export the raw installation directories.

* guix/config.scm.in (%storedir, %localstatedir)
(%sysconfdir, %sbindir): New variables.
(%store-directory): Use %STOREDIR.
(%state-directory): Use %LOCALSTATEDIR.
(%config-directory): Use %SYSCONFDIR.
(%guix-register-program): Use %SBINDIR.
version-0.11.0
Ludovic Courtès 6 years ago
parent
commit
0b0086e94c
No known key found for this signature in database GPG Key ID: 90B11993D9AEBB5
  1. 30
      guix/config.scm.in

30
guix/config.scm.in

@ -21,10 +21,17 @@
%guix-version
%guix-bug-report-address
%guix-home-page-url
%storedir
%localstatedir
%sysconfdir
%sbindir
%store-directory
%state-directory
%config-directory
%guix-register-program
%system
%libgcrypt
%libz
@ -51,21 +58,36 @@
(define %guix-home-page-url
"@PACKAGE_URL@")
(define %storedir
"@storedir@")
(define %localstatedir
"@guix_localstatedir@")
(define %sysconfdir
"@guix_sysconfdir@")
(define %sbindir
"@guix_sbindir@")
(define %store-directory
(or (and=> (getenv "NIX_STORE_DIR") canonicalize-path)
"@storedir@"))
%storedir))
(define %state-directory
;; This must match `NIX_STATE_DIR' as defined in `nix/local.mk'.
(or (getenv "NIX_STATE_DIR") "@guix_localstatedir@/guix"))
(or (getenv "NIX_STATE_DIR")
(string-append %localstatedir "/guix")))
(define %config-directory
;; This must match `GUIX_CONFIGURATION_DIRECTORY' as defined in `nix/local.mk'.
(or (getenv "GUIX_CONFIGURATION_DIRECTORY") "@guix_sysconfdir@/guix"))
(or (getenv "GUIX_CONFIGURATION_DIRECTORY")
(string-append %sysconfdir "/guix")))
(define %guix-register-program
;; The 'guix-register' program.
(or (getenv "GUIX_REGISTER") "@guix_sbindir@/guix-register"))
(or (getenv "GUIX_REGISTER")
(string-append %sbindir "/guix-register")))
(define %system
"@guix_system@")

Loading…
Cancel
Save