diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-11-08 00:30:52 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-11-08 01:05:35 +0100 |
| commit | 9b24c76802f54861681c32f026ec6c34236044cd (patch) | |
| tree | e332a04a7ab5e356d62fd2999d32434b780e403b /gnu/packages/grub.scm | |
| parent | ab11f0bed4084f19698752fa5451ea73a52400f9 (diff) | |
gnu: grub: Add dependency on GNU Unifont.
* gnu/packages/grub.scm (unifont): New variable.
(grub)[arguments]: Copy and unzip Unifont in 'patch-stuff' phase.
[native-inputs]: Add UNIFONT.
Diffstat (limited to 'gnu/packages/grub.scm')
| -rw-r--r-- | gnu/packages/grub.scm | 22 |
1 files changed, 19 insertions, 3 deletions
diff --git a/gnu/packages/grub.scm b/gnu/packages/grub.scm index 590041f0ff..5504f38225 100644 --- a/gnu/packages/grub.scm +++ b/gnu/packages/grub.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2013 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2013, 2014 Ludovic Courtès <ludo@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -57,6 +57,17 @@ ;; The manual fails to build with Texinfo 5.x. (native-inputs (alist-delete "texinfo" (package-native-inputs qemu))))) +(define unifont + ;; GNU Unifont, <http://gnu.org/s/unifont>. + ;; GRUB needs it for its graphical terminal, gfxterm. + (origin + (method url-fetch) + (uri + "http://unifoundry.com/pub/unifont-7.0.06/font-builds/unifont-7.0.06.bdf.gz") + (sha256 + (base32 + "0p2vhnc18cnbmb39vq4m7hzv4mhnm2l0a2s7gx3ar277fwng3hys")))) + (define-public grub (package (name "grub") @@ -74,10 +85,14 @@ '(#:configure-flags '("--disable-werror") #:phases (alist-cons-before 'patch-source-shebangs 'patch-stuff - (lambda _ + (lambda* (#:key inputs #:allow-other-keys) (substitute* "grub-core/Makefile.in" (("/bin/sh") (which "sh"))) + ;; Make the font visible. + (copy-file (assoc-ref inputs "unifont") "unifont.bdf.gz") + (system* "gunzip" "unifont.bdf.gz") + ;; TODO: Re-enable this test when we have Parted. (substitute* "tests/partmap_test.in" (("set -e") "exit 77"))) @@ -89,7 +104,8 @@ ;; ("libusb" ,libusb) ("ncurses" ,ncurses))) (native-inputs - `(("bison" ,bison) + `(("unifont" ,unifont) + ("bison" ,bison) ("flex" ,flex) ;; Dependencies for the test suite. The "real" QEMU is needed here, |