Tom Willemse
f31be59621
The originating commit in the Guix project doesn't explain why exactly this is the right way to go about it, but this package doesn't build with that stage included.
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 'remove-temporary-cache)
|
|
(delete 'cleanup)))))))
|