gnu: Add r-flowsom.

[jackhill/guix/guix.git] / guix / config.scm.in

diff --git a/guix/config.scm.in b/guix/config.scm.in
index 4835c6e..0ada0f3 100644 (file)
--- a/guix/config.scm.in
+++ b/guix/config.scm.in
@@ -1,5 +1,6 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2012, 2013 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2017 Caleb Ristvedt <caleb.ristvedt@cune.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -21,20 +22,27 @@
             %guix-version
             %guix-bug-report-address
             %guix-home-page-url
+
+            %storedir
+            %localstatedir
+            %sysconfdir
+
             %store-directory
             %state-directory
+            %store-database-directory
             %config-directory
+
             %system
-            %libgcrypt
-            %nixpkgs
-            %nix-instantiate
+            %libz
+            %liblz
             %gzip
             %bzip2
             %xz))
 
 ;;; Commentary:
 ;;;
-;;; Compile-time configuration of Guix.
+;;; Compile-time configuration of Guix.  When adding a substitution variable
+;;; here, make sure to equip (guix scripts pull) to substitute it.
 ;;;
 ;;; Code:
 
@@ -50,30 +58,41 @@
 (define %guix-home-page-url
   "@PACKAGE_URL@")
 
-(define %store-directory
+(define %storedir
   "@storedir@")
 
+(define %localstatedir
+  "@guix_localstatedir@")
+
+(define %sysconfdir
+  "@guix_sysconfdir@")
+
+(define %store-directory
+  (or (and=> (getenv "NIX_STORE_DIR") canonicalize-path)
+      %storedir))
+
 (define %state-directory
-  ;; This must match `NIX_STATE_DIR' as defined in `daemon.am'.
-  "@guix_localstatedir@/nix")
+  ;; This must match `NIX_STATE_DIR' as defined in `nix/local.mk'.
+  (or (getenv "GUIX_STATE_DIRECTORY")
+      (string-append %localstatedir "/guix")))
+
+(define %store-database-directory
+  (or (getenv "GUIX_DATABASE_DIRECTORY")
+      (string-append %state-directory "/db")))
 
 (define %config-directory
-  ;; This must match `NIX_CONF_DIR' as defined in `daemon.am'.
-  (or (getenv "NIX_CONF_DIR") "@guix_sysconfdir@/guix"))
+  ;; This must match `GUIX_CONFIGURATION_DIRECTORY' as defined in `nix/local.mk'.
+  (or (getenv "GUIX_CONFIGURATION_DIRECTORY")
+      (string-append %sysconfdir "/guix")))
 
 (define %system
   "@guix_system@")
 
-(define %libgcrypt
-  "@LIBGCRYPT@")
-
-(define %nixpkgs
-  (if (string=? "@NIXPKGS@" "")
-      #f
-      "@NIXPKGS@"))
+(define %libz
+  "@LIBZ@")
 
-(define %nix-instantiate
-  "@NIX_INSTANTIATE@")
+(define %liblz
+  "@LIBLZ@")
 
 (define %gzip
   "@GZIP@")