nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

system: grub: Use the native Guile-Cairo and Guile-SVG. 

* gnu/system/grub.scm (svg->png): Use 'ungexp-native' aka. #+ when
referring to GUILE-CAIRO, GUILE-SVG, and SVG.
This commit is contained in:
Ludovic Courtès 2017-05-08 17:20:12 +02:00
parent 4d8fd825a8
commit 76f429ad9b
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gnu/system/grub.scm
View File

@ -144,15 +144,15 @@ denoting a file name."
(with-imported-modules '((gnu build svg)) (with-imported-modules '((gnu build svg))
#~(begin #~(begin
;; We need these two libraries. ;; We need these two libraries.
(add-to-load-path (string-append #$guile-rsvg (add-to-load-path (string-append #+guile-rsvg
"/share/guile/site/" "/share/guile/site/"
(effective-version))) (effective-version)))
(add-to-load-path (string-append #$guile-cairo (add-to-load-path (string-append #+guile-cairo
"/share/guile/site/" "/share/guile/site/"
(effective-version))) (effective-version)))
(use-modules (gnu build svg)) (use-modules (gnu build svg))
(svg->png #$svg #$output (svg->png #+svg #$output
#:width #$width #:width #$width
#:height #$height))))) #:height #$height)))))