;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2019 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/>.

(define-module (gnu build bootloader)
  #:use-module (guix build utils)
  #:use-module (guix utils)
  #:use-module (ice-9 binary-ports)
  #:use-module (ice-9 format)
  #:use-module (rnrs </td></tr></table>
<table class='tabs'><tr><td>
<a href='/guix/about/'>about</a><a href='/guix/'>summary</a><a href='/guix/refs/?id=2d78b27711d44f39fabf170d044b45247af7babe'>refs</a><a href='/guix/log/gnu/packages/check.scm'>log</a><a class='active' href='/guix/tree/gnu/packages/check.scm?id=2d78b27711d44f39fabf170d044b45247af7babe'>tree</a><a href='/guix/commit/gnu/packages/check.scm?id=2d78b27711d44f39fabf170d044b45247af7babe'>commit</a><a href='/guix/diff/gnu/packages/check.scm?id=2d78b27711d44f39fabf170d044b45247af7babe'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/packages/check.scm'>
<input type='hidden' name='id' value='2d78b27711d44f39fabf170d044b45247af7babe'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/tree/?id=2d78b27711d44f39fabf170d044b45247af7babe'>root</a>/<a href='/guix/tree/gnu?id=2d78b27711d44f39fabf170d044b45247af7babe'>gnu</a>/<a href='/guix/tree/gnu/packages?id=2d78b27711d44f39fabf170d044b45247af7babe'>packages</a>/<a href='/guix/tree/gnu/packages/check.scm?id=2d78b27711d44f39fabf170d044b45247af7babe'>check.scm</a></div><div class='content'>blob: 913c803a242b9cc83b50b6f06b35248ece1999c6 (<a href='/guix/about/gnu/packages/check.scm?id=2d78b27711d44f39fabf170d044b45247af7babe'>about</a>) (<a href='/guix/plain/gnu/packages/check.scm?id=2d78b27711d44f39fabf170d044b45247af7babe'>plain</a>)
<div class='error'>blob size (114KB) exceeds display size limit (100KB).</div></div> <!-- class=content -->
                         <div class=footer>generated by
                             <a href="https://git.zx2c4.com/cgit/about/">
                                 cgit
                             </a>
                         </div>
                        </div> <!-- id=cgit -->
</body>
</html>
 (setenv "TMPDIR" esp)

    (mkdir-p efi-directory)
    (invoke grub-mkstandalone "-O" (car efi-targets)
            "-o" (string-append efi-directory "/"
                                (cdr efi-targets))
            ;; Graft the configuration file onto the image.
            (string-append "boot/grub/grub.cfg=" grub-config))))

(define (install-efi-loader grub-efi esp)
  "Install in ESP directory the given GRUB-EFI bootloader.  Configure it to
load the Grub bootloader located in the 'Guix_image' root partition."
  (let ((grub-config "grub.cfg"))
    (call-with-output-file grub-config
      (lambda (port)
        ;; Create a tiny configuration file telling the embedded grub where to
        ;; load the real thing.  XXX This is quite fragile, and can prevent
        ;; the image from booting when there's more than one volume with this
        ;; label present.  Reproducible almost-UUIDs could reduce the risk
        ;; (not eliminate it).
        (format port
                "insmod part_msdos~@
               search --set=root --label Guix_image~@
               configfile /boot/grub/grub.cfg~%")))
    (install-efi grub-efi grub-config esp)
    (delete-file grub-config)))