TakeV/guix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

gnu: sbcl-mcclim-fonts-truetype: Fix build.

Browse source 
* gnu/packages/lisp-xyz.scm (sbcl-mcclim-fonts-truetype)[inputs]: Add
  font-dejavu.
  [arguments]: Add 'fix-paths' phase and don't disable test phase.
This commit is contained in:
Guillaume Le Vaillant 2020-07-19 11:33:52 +02:00
parent fd7b950858
commit 1c5901ae4e
No known key found for this signature in database
GPG key ID: 6BE8208ADF21FE3F
1 changed files with 14 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
gnu/packages/lisp-xyz.scm
View file

@ -54,6 +54,7 @@ (define-module (gnu packages lisp-xyz)
#:use-module (gnu packages compression)
#:use-module (gnu packages databases)
#:use-module (gnu packages enchant)
#:use-module (gnu packages fonts)
#:use-module (gnu packages fontutils)
#:use-module (gnu packages glib)
#:use-module (gnu packages gtk)
@ -12875,13 +12876,22 @@ (define-public sbcl-mcclim-fonts-truetype
("cl-paths-ttf" ,sbcl-cl-paths-ttf)
("cl-vectors" ,sbcl-cl-vectors)
("clim-basic" ,sbcl-clim-basic)
("font-dejavu" ,font-dejavu)
("zpb-ttf" ,sbcl-zpb-ttf)))
(arguments
'(#:asd-file "./Extensions/fonts/mcclim-fonts.asd"
'(#:asd-file "Extensions/fonts/mcclim-fonts.asd"
#:asd-system-name "mcclim-fonts/truetype"
;; Tests want access to user's fonts, which are not available in
;; build container.
#:tests? #f))))
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-paths
(lambda* (#:key inputs #:allow-other-keys)
;; mcclim-truetype uses DejaVu as default font and
;; sets the path at build time.
(substitute* "Extensions/fonts/fontconfig.lisp"
(("/usr/share/fonts/truetype/dejavu/")
(string-append (assoc-ref inputs "font-dejavu")
"/share/fonts/truetype/")))
#t)))))))
(define-public sbcl-mcclim-fonts-clx-truetype
(package