From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:35321) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dYHdB-0004Gm-Dj for guix-patches@gnu.org; Thu, 20 Jul 2017 16:01:06 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dYHdA-0002eB-6F for guix-patches@gnu.org; Thu, 20 Jul 2017 16:01:05 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:47385) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1dYHdA-0002e7-26 for guix-patches@gnu.org; Thu, 20 Jul 2017 16:01:04 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1dYHd9-0006dZ-R3 for guix-patches@gnu.org; Thu, 20 Jul 2017 16:01:03 -0400 Subject: [bug#27705] [PATCH v3 3/4] gnu: Add grub-hybrid. Resent-Message-ID: From: Danny Milosavljevic Date: Thu, 20 Jul 2017 21:44:46 +0200 Message-Id: <20170720194447.796-4-dannym@scratchpost.org> In-Reply-To: <20170720194447.796-1-dannym@scratchpost.org> References: <20170720194447.796-1-dannym@scratchpost.org> 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: 27705@debbugs.gnu.org * gnu/packages/bootloaders.scm (grub-hybrid): New variable. --- gnu/packages/bootloaders.scm | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) diff --git a/gnu/packages/bootloaders.scm b/gnu/packages/bootloaders.scm index 7a91e32d9..9d18e7d9a 100644 --- a/gnu/packages/bootloaders.scm +++ b/gnu/packages/bootloaders.scm @@ -182,6 +182,30 @@ menu to select one of the installed operating systems.") "/bin/mcopy\""))) #t)))))))))) +(define-public grub-hybrid + (package + (inherit grub-efi) + (name "grub-hybrid") + (synopsis "GRand Unified Boot loader (hybrid version)") + (inputs + `(("grub" ,grub) + ,@(package-inputs grub-efi))) + (arguments + (substitute-keyword-arguments (package-arguments grub-efi) + ((#:phases phases) + `(modify-phases ,phases + (add-after 'install 'install-non-efi + (lambda* (#:key inputs outputs #:allow-other-keys) + (let ((input-dir (string-append (assoc-ref inputs "grub") "/lib/grub")) + (output-dir (string-append (assoc-ref outputs "out") "/lib/grub"))) + (for-each + (lambda (basename) + (if (not (string-prefix? "." basename)) + (symlink (string-append input-dir "/" basename) + (string-append output-dir "/" basename)))) + ((@@ (ice-9 ftw) scandir) input-dir)) + #t))))))))) + (define-public syslinux (let ((commit "bb41e935cc83c6242de24d2271e067d76af3585c")) (package