35 lines
1.3 KiB
Scheme
35 lines
1.3 KiB
Scheme
|
(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)))))))
|