19/35: gnu: Add sbcl-mcclim-render.

[guix-commits]

glv pushed a commit to branch master
in repository guix.

commit 6b40a9afb75c7683eb07dd522e981e194d76424d
Author: Guillaume Le Vaillant <g...@posteo.net>
AuthorDate: Fri Jul 17 13:45:43 2020 +0200

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

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index 9ff37ac..3aca2cf 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -13021,3 +13021,25 @@ specification}, a toolkit for writing GUIs in Common 
Lisp.")
                (("mcclim-fonts/clx-freetype")
                 "mcclim-fonts-clx-freetype"))
              #t)))))))
+
+(define-public sbcl-mcclim-render
+  (package
+    (inherit sbcl-clim-lisp)
+    (name "sbcl-mcclim-render")
+    (inputs
+     `(("alexandria" ,sbcl-alexandria)
+       ("cl-vectors" ,sbcl-cl-vectors)
+       ("clim-basic" ,sbcl-clim-basic)
+       ("mcclim-backend-common" ,sbcl-mcclim-backend-common)
+       ("mcclim-fonts-truetype" ,sbcl-mcclim-fonts-truetype)
+       ("swank" ,cl-slime-swank))) ; For drei-mcclim
+    (arguments
+     '(#:asd-file "Extensions/render/mcclim-render.asd"
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'unpack 'fix-asd-system-names
+           (lambda _
+             (substitute* "Extensions/render/mcclim-render.asd"
+               (("mcclim-fonts/truetype")
+                "mcclim-fonts-truetype"))
+             #t)))))))