13/35: gnu: Add sbcl-mcclim-fonts-clx-truetype.

[guix-commits]

glv pushed a commit to branch master
in repository guix.

commit fc77c14182aa01d4861914538bfa947868ce3566
Author: Guillaume Le Vaillant <glv@posteo.net>
AuthorDate: Fri Jul 17 11:19:35 2020 +0200

    gnu: Add sbcl-mcclim-fonts-clx-truetype.
    
    * gnu/packages/lisp-xyz.scm (sbcl-mcclim-fonts-clx-truetype): New variable.
---
 gnu/packages/lisp-xyz.scm | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index d6aebfe..9859c8e 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -12882,3 +12882,23 @@ specification}, a toolkit for writing GUIs in Common 
Lisp.")
        ;; Tests want access to user's fonts, which are not available in
        ;; build container.
        #:tests? #f))))
+
+(define-public sbcl-mcclim-fonts-clx-truetype
+  (package
+    (inherit sbcl-clim-lisp)
+    (name "sbcl-mcclim-fonts-clx-truetype")
+    (inputs
+     `(("mcclim-clx" ,sbcl-mcclim-clx)
+       ("mcclim-fonts-truetype" ,sbcl-mcclim-fonts-truetype)
+       ("swank" ,cl-slime-swank))) ; For drei-mcclim
+    (arguments
+     '(#:asd-file "./Extensions/fonts/mcclim-fonts.asd"
+       #:asd-system-name "mcclim-fonts/clx-truetype"
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'unpack 'fix-asd-system-names
+           (lambda _
+             (substitute* "Extensions/fonts/mcclim-fonts.asd"
+               ((":depends-on \\(#:mcclim-fonts/truetype")
+                ":depends-on (#:mcclim-fonts-truetype"))
+             #t)))))))