#!@GUILE@ --no-auto-compile
-*- scheme -*-
!#
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013 Mark H Weaver <mhw@netris.org>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

;; IMPORTANT: We must avoid loading any modules from Guix here,
;; because we need to adjust the guile load paths first.
;; It's okay to import modules from core Guile though.
(use-modules (ice-9 regex)
             (srfi srfi-26))

(let ()
  (define-syntax-rule (push! elt v) (set! v (cons elt v)))

  (define config-lookup
    (let ((config '(("prefix"         . "@prefix@")
                    ("datarootdir"    . "@datarootdir@")
                    ("guilemoduledir" . "@guilemoduledir@")
                    ("localedir"      . "@localedir@")))
          (var-ref-regexp (make-regexp "\\$\\{([a-z]+)\\}")))
      (define (expand-var-ref match)
        (lookup (match:substring match 1)))
      (define (expand str)
        (regexp-substitute/global #f var-ref-regexp str
                                  'pre expand-var-ref 'post))
      (define (lookup name)
        (expand (assoc-ref config name)))
      lookup))

  (define (maybe-augment-load-paths!)
    (unless (getenv "GUIX_UNINSTALLED")
      (let ((module-dir (config-lookup "guilemoduledir")))
        (push! module-dir %load-path)
        (push! module-dir %load-compiled-path))
      (let ((updates-dir (and=> (or (getenv "XDG_CONFIG_HOME")
                                    (and=> (getenv "HOME")
                                           (cut string-append <> "/.config")))
                                (cut string-append <> "/guix/latest"))))
        (when (and updates-dir (file-exists? updates-dir))
          (push! updates-dir %load-path)
          (push! updates-dir %load-compiled-path)))))

  (define (run-guix-main)
    (let ((guix-main (module-ref (resolve-interface '(guix ui))
                                 'guix-main)))
      (bindtextdomain "guix" (config-lookup "localedir"))
      (bindtextdomain "guix-packages" (config-lookup "localedir"))
      (apply guix-main (command-line))))

  (maybe-augment-load-paths!)

  ;; XXX: It would be more convenient to change it to:
  ;;   (exit (run-guix-main))
  ;; but since the 'guix' command is not updated by 'guix pull', we cannot
  ;; really do it now.
  (run-guix-main))
.</span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2019-01-17 14:04:20 +0100'>2019-01-17</span></td><td><a href='/guix/commit/configure.ac?id=d0f3a672dcbdfefd3556b6a21985ff0e35eed3be'>gnu: Add graphical installer support.</a><span class='msg-avail'>...</span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2019-01-09 14:47:53 +0100'>2019-01-09</span></td><td><a href='/guix/commit/configure.ac?id=0991fd53367907908fbd901a9fbe79540e4e4527'>build: Require Guile 2.2.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-12-02 17:56:05 -0600'>2018-12-02</span></td><td><a href='/guix/commit/configure.ac?id=6776af04d4b65c5a9a07784307a6abe395b6f480'>Make Guile-JSON a required dependency.</a><span class='msg-avail'>...</span></td><td>Eric Bavier</td></tr>
<tr><td><span title='2018-10-12 15:18:41 +0200'>2018-10-12</span></td><td><a href='/guix/commit/configure.ac?id=dde49cfe5312b95f44060155256036532f3cb22a'>build: Fine-tune the forbidden M4 patterns.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-10-12 15:18:41 +0200'>2018-10-12</span></td><td><a href='/guix/commit/configure.ac?id=28f436a904cbfc2d7bb6e5e8d91de23c03b134b0'>build: Remove obsolete reference to 'GUIX_ASSERT_LIBGCRYPT_USABLE'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-09-04 17:25:11 +0200'>2018-09-04</span></td><td><a href='/guix/commit/configure.ac?id=ca719424455465fca4b872c371daf2a46de88b33'>Switch to Guile-Gcrypt.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-06-18 23:19:51 +0200'>2018-06-18</span></td><td><a href='/guix/commit/configure.ac?id=e8cb9c01c684bed2f47767f0b322f3d40d89781a'>build: Remove checks for 'nix-instantiate'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-06-14 11:16:58 +0200'>2018-06-14</span></td><td><a href='/guix/commit/configure.ac?id=c5a2e1ffcb029f50c4c18352cf378b61c41c625e'>build: Require Guile-SQLite3.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-06-01 15:35:15 +0200'>2018-06-01</span></td><td><a href='/guix/commit/configure.ac?id=d59e75f3b5b82692bd250a1a3a9965397bb588c5'>build: Check for Guile-SQLite3.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-04-19 21:30:30 +0200'>2018-04-19</span></td><td><a href='/guix/commit/configure.ac?id=b9fe8fd662180e64156d2b95a671242c20f0acfc'>gnu: doc: Allow documentation to be translated.</a><span class='msg-avail'>...</span></td><td>Julien Lepiller</td></tr>
<tr><td><span title='2018-02-26 18:19:34 +0100'>2018-02-26</span></td><td><a href='/guix/commit/configure.ac?id=1d84d7bf6052c0c80bd212d4524876576e9817d4'>build: Require Guile &gt;= 2.0.13.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-02-07 15:41:23 +0100'>2018-02-07</span></td><td><a href='/guix/commit/configure.ac?id=b617a9fe239ea645c816d6afcb81d5476f760d84'>etc: Add SELinux policy for the daemon.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2018-01-23 10:13:16 +0100'>2018-01-23</span></td><td><a href='/guix/commit/configure.ac?id=cba386c1295b7054df22dfb4662b1b92f668e2c0'>build: Expand ‘scripts/guix’ at Make time.</a><span class='msg-avail'>...</span></td><td>Mathieu Lirzin</td></tr>
<tr><td><span title='2018-01-16 16:00:20 +0100'>2018-01-16</span></td><td><a href='/guix/commit/configure.ac?id=b83fc85f9f40d9a5dff5b0d3ef38c1b93bd4c7e3'>etc: Add completions for fish.</a><span class='msg-avail'>...</span></td><td>ng0</td></tr>
<tr><td><span title='2018-01-06 14:45:01 +0100'>2018-01-06</span></td><td><a href='/guix/commit/configure.ac?id=142182514b84ee233bc27e574df2ca2074291525'>build: Detect broken 'equal?' in Guile 2.2.1.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-10-09 18:56:15 -0500'>2017-10-09</span></td><td><a href='/guix/commit/configure.ac?id=05c4e379b7a9911b47bc4cff8dc1aa7b432e83b6'>build: Update automake version requirement to 1.14.</a><span class='msg-avail'>...</span></td><td>Eric Bavier</td></tr>
<tr><td><span title='2017-09-05 20:57:12 +0200'>2017-09-05</span></td><td><a href='/guix/commit/configure.ac?id=a4c1e99ed95c5032f8e6201fb7bcf1692f9c92c8'>build: Negate ‘--disable-daemon’ help string.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>