diff mbox

[v2,13/13] gnu: Add sbcl-stumpwm-with-slynk.

Message ID 20161003024139.19975-14-ajpatter@uwaterloo.ca
State New
Headers

Commit Message

Andy Patterson Oct. 3, 2016, 2:41 a.m. UTC 
  * gnu/packages/lisp.scm (sbcl-stumpwm+slynk): New variable.
---
 gnu/packages/lisp.scm | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
diff mbox

Patch

diff --git a/gnu/packages/lisp.scm b/gnu/packages/lisp.scm
index 05c3101..52903d1 100644
--- a/gnu/packages/lisp.scm
+++ b/gnu/packages/lisp.scm
@@ -1132,3 +1132,27 @@  history.")
   (package
     (inherit (sbcl-package->ecl-package sbcl-slynk))
     (outputs '("out"))))
+
+(define-public sbcl-stumpwm+slynk
+  (package
+    (inherit sbcl-slynk)
+    (name "sbcl-stumpwm-with-slynk")
+    (native-inputs `(("stumpwm" ,sbcl-stumpwm)
+                     ("slynk" ,sbcl-slynk)
+                     ,@(package-inputs sbcl-slynk)))
+    (outputs '("out"))
+    (arguments
+     (substitute-keyword-arguments
+         `(#:binary? #t
+           #:entry-program
+           '((stumpwm:stumpwm)
+             0)
+           ,@(package-arguments sbcl-slynk))
+       ((#:image-dependencies dependencies)
+         ``("stumpwm"
+            "slynk"
+            ,@,dependencies))
+       ((#:phases _)
+        (match (memq #:phases (package-arguments sbcl-stumpwm))
+          ((#:phases phases . _)
+           phases)))))))