From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:39466) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dJzsj-0004wb-Qs for guix-patches@gnu.org; Sun, 11 Jun 2017 06:14:06 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dJzsg-0001b8-LU for guix-patches@gnu.org; Sun, 11 Jun 2017 06:14:05 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:37100) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1dJzsg-0001b2-HQ for guix-patches@gnu.org; Sun, 11 Jun 2017 06:14:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1dJzsg-0007fH-5g for guix-patches@gnu.org; Sun, 11 Jun 2017 06:14:02 -0400 Subject: bug#26339: "extlinux", "extlinux" gpt, bootloader-configuration without package nor installer Resent-Message-ID: Date: Sun, 11 Jun 2017 12:13:06 +0200 From: Danny Milosavljevic Message-ID: <20170611121306.3c0e36e9@scratchpost.org> In-Reply-To: <20170611115457.72395d51@scratchpost.org> References: <20170402134916.2871-1-m.othacehe@gmail.com> <20170610085327.1353-1-m.othacehe@gmail.com> <87lgozyl52.fsf@gnu.org> <8760g2oqzc.fsf@gmail.com> <20170611115457.72395d51@scratchpost.org> MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: quoted-printable List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: Mathieu Othacehe Cc: 26339@debbugs.gnu.org A possible gnu/bootloader/u-boot.scm: ;;; GNU Guix --- Functional package management for GNU ;;; Copyright =C2=A9 2017 David Craven ;;; Copyright =C2=A9 2017 Mathieu Othacehe ;;; Copyright =C2=A9 2017 Danny Milosavljevic ;;; ;;; 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 . (define-module (gnu bootloader u-boot) #:use-module (gnu bootloader extlinux) #:use-module (gnu bootloader) #:use-module (gnu system) #:use-module (gnu packages bootloaders) #:use-module (guix gexp) #:use-module (guix monads) #:use-module (guix records) #:use-module (guix utils) #:export (u-boot-bootloader)) ;;; ;;; Installation procedures. ;;; (define install-u-boot #~(lambda (bootloader device mount-point) (if bootloader (let ((u-boot-installer (string-append bootloader "/sbin/install-u-= boot")) ; doesn't actually exist yet. (installation-dir (string-append mount-point "/boot"))) (unless (zero? (system* u-boot-installer (string-append "--installdir=3D" installa= tion-dir) (string-append "--device" device)) (error "failed to install U-Boot"))))))) ;;; ;;; Bootloader definitions. ;;; (define u-boot-bootloader (bootloader (inherit extlinux-bootloader) (package #f) (name 'u-boot) (installer install-u-boot) (configuration-file "/boot/extlinux.conf")))