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

login
register
mail settings
Submitter Andy Patterson
Date Oct. 7, 2016, 8:07 a.m.
Message ID <20161007040757.7b933589@uwaterloo.ca>
Download mbox | patch
Permalink /patch/16331/
State New
Headers show

Comments

Andy Patterson - Oct. 7, 2016, 8:07 a.m.
From 18ed767219311a348fe58f4a7e7f8bdb3dbfde9a Mon Sep 17 00:00:00 2001
From: Andy Patterson <ajpatter@uwaterloo.ca>
Date: Fri, 7 Oct 2016 03:37:02 -0400
Subject: [PATCH v3 11/12] gnu: Add sbcl-stumpwm-with-slynk.

* gnu/packages/lisp.scm (sbcl-stumpwm+slynk): New variable.
---
 gnu/packages/lisp.scm | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)

Patch

diff --git a/gnu/packages/lisp.scm b/gnu/packages/lisp.scm
index 60c7673..458862c 100644
--- a/gnu/packages/lisp.scm
+++ b/gnu/packages/lisp.scm
@@ -1039,3 +1039,32 @@  history.")
            (((names . paths) ...)
             (union-build (assoc-ref %outputs "out")
                          paths))))))))
+
+(define-public sbcl-stumpwm+slynk
+  (package
+    (inherit sbcl-stumpwm)
+    (name "sbcl-stumpwm-with-slynk")
+    (outputs '("out"))
+    (native-inputs
+     `(("stumpwm" ,sbcl-stumpwm)
+       ("slynk" ,sbcl-slynk)))
+    (arguments
+     (substitute-keyword-arguments (package-arguments sbcl-stumpwm)
+       ((#:phases phases)
+        `(modify-phases ,phases
+           (replace 'build-program
+             (lambda* (#:key lisp inputs outputs #:allow-other-keys)
+               (define program (string-append (assoc-ref outputs "out")
+                                              "/bin/stumpwm"))
+               (build-program lisp program
+                              #:inputs inputs
+                              #:entry-program '((stumpwm:stumpwm) 0)
+                              #:dependencies '("stumpwm"
+                                               ,@slynk-systems))
+               #t))
+           (delete 'copy-source)
+           (delete 'build)
+           (delete 'check)
+           (delete 'link-dependencies)
+           (delete 'cleanup)
+           (delete 'create-symlinks)))))))