From bab58dd6262a716350297dabb701532f61d23d7a Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Mon, 24 May 2021 20:28:39 -0700
Subject: Initial commit

---
 oni/packages/stumpwm.scm | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 oni/packages/stumpwm.scm

(limited to 'oni/packages/stumpwm.scm')

diff --git a/oni/packages/stumpwm.scm b/oni/packages/stumpwm.scm
new file mode 100644
index 0000000..21ce63c
--- /dev/null
+++ b/oni/packages/stumpwm.scm
@@ -0,0 +1,34 @@
+(define-module (oni packages stumpwm)
+  #:use-module (guix packages)
+  #:use-module (guix utils)
+  #:use-module (gnu packages wm)
+  #:use-module (gnu packages lisp-xyz))
+
+(define-public stumpwm+swank
+  (package
+    (inherit stumpwm)
+    (name "stumpwm-with-swank")
+    (outputs '("out"))
+    (inputs
+     `(("stumpwm" ,stumpwm "lib")
+       ("swank" ,sbcl-slime-swank)))
+    (arguments
+     (substitute-keyword-arguments (package-arguments stumpwm)
+       ((#:phases phases)
+        `(modify-phases ,phases
+           (replace 'build-program
+             (lambda* (#:key inputs outputs #:allow-other-keys)
+               (let* ((out (assoc-ref outputs "out"))
+                      (program (string-append out "/bin/stumpwm")))
+                 (setenv "HOME" "/tmp")
+                 (build-program program outputs
+                                #:entry-program '((stumpwm:stumpwm) 0)
+                                #:dependencies '("stumpwm" "swank")
+                                #:dependency-prefixes
+                                (map (lambda (input) (assoc-ref inputs input))
+                                     '("stumpwm" "swank")))
+                 #t)))
+           (delete 'copy-source)
+           (delete 'build)
+           (delete 'check)
+           (delete 'cleanup)))))))
-- 
cgit v1.2.3-54-g00ecf