;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018 Ludovic Courtès <ludo@gnu.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/>.

;; Build Guix using Guix.

(use-modules (srfi srfi-26))

;; Add ~/.config/guix/current to the search path.
(eval-when (expand load eval)
  (and=> (or (getenv "XDG_CONFIG_HOME")
             (and=> (getenv "HOME")
                    (cut string-append <> "/.config/guix/current")))
         (lambda (current)
           (set! %load-path
             (cons (string-append current "/share/guile/site/"
                                  (effective-version))
                   %load-path))
           (set! %load-compiled-path
             (cons (string-append current "/lib/guile/" (effective-version)
                                  "/site-ccache")
                   %load-compiled-path)))))

(use-modules (guix) (guix ui)
             (guix git-download)
             (ice-9 match))

(match (command-line)
  ((program source)
   (with-error-handling
     (with-store store
       (let* ((script (string-append source "/build-aux/build-self.scm"))
              (build  (primitive-load script))
              (git?   (git-predicate source)))
         (run-with-store store
           ;; TODO: Extract #:version and #:commit using Guile-Git.
           (mlet* %store-monad ((source (interned-file source "guix-source"
                                                       #:select? git?
                                                       #:recursive? #t))
                                (drv    (build source #:pull-version 1)))
             (mbegin %store-monad
               (show-what-to-build* (list drv))
               (built-derivations (list drv))
               (with-monad %store-monad
                 (display (derivation->output-path drv))
                 (newline)
                 (return drv))))))))))
guix/commit/.dir-locals.el?id=d52e16d3b68b4f5e748b4d6014d4a9c207266ade'>deduplication: Use 'dynamic-wind' when changing permissions of the parent.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-06-16 16:10:47 +0200'>2020-06-16</span></td><td><a href='/guix/commit/.dir-locals.el?id=43badf261f4688c8a7a7a9004a4bff8acb205835'>channels: 'latest-channel-instance' authenticates Git checkouts.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-06-10 21:54:35 -0500'>2020-06-10</span></td><td><a href='/guix/commit/.dir-locals.el?id=8971f626f2e69987bea729307adb93a0be243234'>database: separate transaction-handling and retry-handling.</a><span class='msg-avail'>...</span></td><td>Caleb Ristvedt</td></tr>
<tr><td><span title='2020-06-10 21:54:35 -0500'>2020-06-10</span></td><td><a href='/guix/commit/.dir-locals.el?id=37545de4a3bf59611c184b31506fe9a16abe4c8b'>database: ensure update-or-insert is run within a transaction</a><span class='msg-avail'>...</span></td><td>Caleb Ristvedt</td></tr>
<tr><td><span title='2020-06-10 21:54:35 -0500'>2020-06-10</span></td><td><a href='/guix/commit/.dir-locals.el?id=5d6e2255286e591def122ec2f4a3cbda497fea21'>database: rewrite query procedures in terms of with-statement.</a><span class='msg-avail'>...</span></td><td>Caleb Ristvedt</td></tr>
<tr><td><span title='2020-06-06 23:28:49 +0200'>2020-06-06</span></td><td><a href='/guix/commit/.dir-locals.el?id=c39693d76099c159df856ffb5b2c43765fd6f2dd'>ui: 'display-search-results' automatically invokes the pager.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-06-05 22:54:06 +0200'>2020-06-05</span></td><td><a href='/guix/commit/.dir-locals.el?id=c83eedba2361c3831d3efb5ad63d5077d636fb28'>git-authenticate: Add tests.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-05-16 00:34:41 +0200'>2020-05-16</span></td><td><a href='/guix/commit/.dir-locals.el?id=644cb40cd83eff8a5bcdbd2d63887daa18228f41'>gexp: Add 'let-system'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-03-22 12:42:51 +0100'>2020-03-22</span></td><td><a href='/guix/commit/.dir-locals.el?id=041b340da409078951267b6a8c43b27716e6b7ec'>store: Add 'with-build-handler'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-03-12 18:32:15 +0100'>2020-03-12</span></td><td><a href='/guix/commit/.dir-locals.el?id=cf2ac04f13d9266c7c8a2ebd2e85ef593231ac9d'>gexp: Add 'with-parameters'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-11-29 15:54:20 +0100'>2019-11-29</span></td><td><a href='/guix/commit/.dir-locals.el?id=55e1dfa4dd189e010c541e3997b65434c702b4a5'>ui: Factorize 'with-profile-lock'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-11-19 10:51:52 +0100'>2019-11-19</span></td><td><a href='/guix/commit/.dir-locals.el?id=6fbd8fde2fad113dbfc90c8b1b55f7ead919a90a'>pull: Acquire a lock for the target profile.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-09-23 10:38:43 +0200'>2019-09-23</span></td><td><a href='/guix/commit/.dir-locals.el?id=873f6f1334ab06a69e768a8aea0054404237542f'>git: Add 'commit-difference'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-06-05 23:10:36 +0200'>2019-06-05</span></td><td><a href='/guix/commit/.dir-locals.el?id=b7178c22bf642919345095aff9e34e02c00d5762'>syscalls: Add 'with-file-lock' macro.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-05-27 22:47:24 +0200'>2019-05-27</span></td><td><a href='/guix/commit/.dir-locals.el?id=66229b04ae0ee05779b93d77900a062b8e0e8770'>publish: Add support for lzip.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-03-07 00:00:18 +0100'>2019-03-07</span></td><td><a href='/guix/commit/.dir-locals.el?id=a4678c6ba18d8dbd79d931f80426eebf61be7ebe'>database: Make 'register-items' transactional.</a><span class='msg-avail'>...</span></td><td>Caleb Ristvedt</td></tr>
<tr><td><span title='2019-01-11 12:14:38 +0100'>2019-01-11</span></td><td><a href='/guix/commit/.dir-locals.el?id=7804c45b9ce5a8edd06452d828249e588ae26263'>status: Add 'with-status-verbosity'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>