#!@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!)
  (run-guix-main))
ts?id=63666a348af5ef5190cbe9611c40f2b9188b7967'>guix: Let Emacs detect “scripts/guix.in” appropriate mode.</a><span class='msg-avail'>...</span></td><td>Mathieu Lirzin</td></tr>
<tr><td><span title='2018-01-23 15:01:15 +0100'>2018-01-23</span></td><td><a href='/guix/commit/scripts?id=6f774d481839f87178c5895ac2d661e141f879b8'>guix: Refactor script.</a><span class='msg-avail'>...</span></td><td>Mathieu Lirzin</td></tr>
<tr><td><span title='2018-01-23 10:13:16 +0100'>2018-01-23</span></td><td><a href='/guix/commit/scripts?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='2017-03-20 23:26:18 +0100'>2017-03-20</span></td><td><a href='/guix/commit/scripts?id=9437fd7399425ed281e1bfc13240288ba9078caa'>build: Install .go files to $libdir/guile/X.Y.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2016-04-06 23:21:26 +0200'>2016-04-06</span></td><td><a href='/guix/commit/scripts?id=7cffaeb60473e25a7ef8c1a8cb36e1531191873a'>challenge: Really exit with non-zero upon hash mismatch.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2014-06-14 22:55:59 +0200'>2014-06-14</span></td><td><a href='/guix/commit/scripts?id=243cea2461e3f260cef2c702689252a54858fdfc'>guix: Look for "guix-packages" messages in $localedir.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2013-10-12 22:29:31 +0200'>2013-10-12</span></td><td><a href='/guix/commit/scripts?id=39e9f95d059e61a735a52f866d4c175906826744'>guix: Add missing call to 'bindtextdomain'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2013-09-27 00:46:17 +0200'>2013-09-27</span></td><td><a href='/guix/commit/scripts?id=dadee6cd6e775741d85e8b968e7f1ce3123385a4'>Run 'guix' with '--no-auto-compile'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2013-02-21 10:27:34 +0100'>2013-02-21</span></td><td><a href='/guix/commit/scripts?id=525ca3e912507d45e1df29e7ab88b090f8d19dd4'>guix: Make sure UPDATES-DIR is valid.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2013-02-20 23:47:16 +0100'>2013-02-20</span></td><td><a href='/guix/commit/scripts?id=f651b477b701d086402c18665eca68b26c3bec6b'>Add "guix pull".</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2013-02-16 22:17:37 -0500'>2013-02-16</span></td><td><a href='/guix/commit/scripts?id=e49951eb3e1e1a8e7bad6d7471483e70b0865352'>Replace individual scripts with master 'guix' script.</a><span class='msg-avail'>...</span></td><td>Mark H Weaver</td></tr>