#!@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"))
      (apply guix-main (command-line))))

  (maybe-augment-load-paths!)
  (run-guix-main))
<td><span title='2023-12-14 23:12:24 +0100'>2023-12-14</span></td><td><a href='/guix/commit/gnu/services/mail.scm?id=b681e339fa37f2a26763458ee56b31af1d6a7ec5'>services: Add rspamd-service-type.</a><span class='msg-avail'>...</span></td><td>Thomas Ieong</td></tr>
<tr><td><span title='2023-05-11 13:21:45 +0200'>2023-05-11</span></td><td><a href='/guix/commit/gnu/services/mail.scm?id=2df5d4fd18a2fbcb8066a50e2da8ec64635f5162'>system: pam: Let PAM extensions add shepherd requirements.</a><span class='msg-avail'>...</span></td><td>Josselin Poiret</td></tr>
<tr><td><span title='2023-03-03 17:55:34 +0100'>2023-03-03</span></td><td><a href='/guix/commit/gnu/services/mail.scm?id=c6cbce9ad8ee5fa7b51d8abea83ddc3dd07fa3c6'>services: mail: Deprecate 'dovecot-service' procedure.</a><span class='msg-avail'>...</span></td><td>Bruno Victal</td></tr>
<tr><td><span title='2022-12-20 16:56:04 +0100'>2022-12-20</span></td><td><a href='/guix/commit/gnu/services/mail.scm?id=00f48860e9df4e83ed9527e3a9f267787ddefee5'>services: opensmtpd: Add 'shepherd-requirement' field.</a><span class='msg-avail'>...</span></td><td>Bruno Victal</td></tr>
<tr><td><span title='2022-12-20 16:56:03 +0100'>2022-12-20</span></td><td><a href='/guix/commit/gnu/services/mail.scm?id=3011e8ae11f6fce87ee5c7f9c702f9d2e10a0e54'>services: opensmtpd: Use 'match-record' instead of 'match'.</a><span class='msg-avail'>...</span></td><td>Bruno Victal</td></tr>
<tr><td><span title='2022-11-02 16:57:36 +0100'>2022-11-02</span></td><td><a href='/guix/commit/gnu/services/mail.scm?id=853b49c4192b75fca8775920c2db88a0e395da7c'>gnu: dovecot: Use standard mkdir-p/perms.</a><span class='msg-avail'>...</span></td><td>Julien Lepiller</td></tr>
<tr><td><span title='2022-08-01 14:08:08 +0200'>2022-08-01</span></td><td><a href='/guix/commit/gnu/services/mail.scm?id=dd3cf144028ccd4e12b32133846525e97101d9cd'>services: opensmtpd: Make commands setgid to "smtpq" by default.</a><span class='msg-avail'>...</span></td><td>Maya</td></tr>
<tr><td><span title='2022-06-24 23:18:21 +0200'>2022-06-24</span></td><td><a href='/guix/commit/gnu/services/mail.scm?id=6505f727e1824391b888dd0c2c60cf64ec66955a'>services: configuration: Remove 'validate-configuration'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-06-24 23:18:20 +0200'>2022-06-24</span></td><td><a href='/guix/commit/gnu/services/mail.scm?id=fb7e6ccba7cc243cd96cdc3fde3daa9a5f08e531'>services: configuration: Report the location of field type errors.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-04-29 18:07:16 +0200'>2022-04-29</span></td><td><a href='/guix/commit/gnu/services/mail.scm?id=9d7248cd87fbda8c717341a8092780782bef0820'>services: Add missing 'description' fields.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>