me
/
guix
Archived
1
0
Fork 0
Code

gnu: linux-libre: Use the GNU + Freedo boot logo. 

* gnu/packages/linux.scm (%boot-logo-patch): New variable.
  (linux-libre)[build-phase]: Apply it.
  [native-inputs]: Add it.
master
Ludovic Courtès 2014-07-07 22:50:45 +02:00
parent fa40e4d4ec
commit ac47a7c240
1 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
gnu/packages/linux.scm
View File

@ -158,10 +158,24 @@
`insmod', `lsmod', and more.") `insmod', `lsmod', and more.")
(license gpl2+))) (license gpl2+)))
(define %boot-logo-patch
;; Linux-Libre boot logo featuring Freedo and a gnu.
(origin
(method url-fetch)
(uri (string-append "http://www.fsfla.org/svn/fsfla/software/linux-libre/"
"lemote/gnewsense/branches/3.15/100gnu+freedo.patch"))
(sha256
(base32
"1hk9swxxc80bmn2zd2qr5ccrjrk28xkypwhl4z0qx4hbivj7qm06"))))
(define-public linux-libre (define-public linux-libre
(let* ((version "3.15") (let* ((version "3.15")
(build-phase (build-phase
'(lambda* (#:key system #:allow-other-keys #:rest args) '(lambda* (#:key system inputs #:allow-other-keys #:rest args)
;; Apply the neat patch.
(system* "patch" "-p1" "--batch"
"-i" (assoc-ref inputs "patch/freedo+gnu"))
(let ((arch (car (string-split system #\-)))) (let ((arch (car (string-split system #\-))))
(setenv "ARCH" (setenv "ARCH"
(cond ((string=? arch "i686") "i386") (cond ((string=? arch "i686") "i386")
@ -226,7 +240,8 @@
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs `(("perl" ,perl) (native-inputs `(("perl" ,perl)
("bc" ,bc) ("bc" ,bc)
("module-init-tools" ,module-init-tools))) ("module-init-tools" ,module-init-tools)
("patch/freedo+gnu" ,%boot-logo-patch)))
(arguments (arguments
`(#:modules ((guix build gnu-build-system) `(#:modules ((guix build gnu-build-system)
(guix build utils) (guix build utils)