33/35: gnu: Add sbcl-mcclim-extensions.

[guix-commits]

glv pushed a commit to branch master
in repository guix.

commit 8e0e7f3566e6869dee1a216bf256bb6bca9f6e96
Author: Guillaume Le Vaillant <glv@posteo.net>
AuthorDate: Fri Jul 17 14:47:11 2020 +0200

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

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index 6ea2446..f3afaf0 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -13235,3 +13235,28 @@ specification}, a toolkit for writing GUIs in Common 
Lisp.")
     (arguments
      '(#:asd-file "Extensions/layouts/mcclim-layouts.asd"
        #:asd-system-name "mcclim-layouts/tab"))))
+
+(define-public sbcl-mcclim-extensions
+  (package
+    (inherit sbcl-clim-lisp)
+    (name "sbcl-mcclim-extensions")
+    (inputs
+     `(("clim-pdf" ,sbcl-clim-pdf)
+       ("clim-postscript" ,sbcl-clim-postscript)
+       ("conditional-commands" ,sbcl-conditional-commands)
+       ("mcclim-bezier" ,sbcl-mcclim-bezier)
+       ("mcclim-bitmaps" ,sbcl-mcclim-bitmaps)
+       ("mcclim-franz" ,sbcl-mcclim-franz)
+       ("mcclim-layouts-tab" ,sbcl-mcclim-layouts-tab)
+       ("swank" ,cl-slime-swank))) ; For drei-mcclim
+    (arguments
+     '(#:asd-file "mcclim.asd"
+       #:asd-system-name "mcclim/extensions"
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'unpack 'fix-asd-system-names
+           (lambda _
+             (substitute* "mcclim.asd"
+               (("mcclim-layouts/tab")
+                "mcclim-layouts-tab"))
+             #t)))))))