ryuslash/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix stumpwm packages

Browse source 
The latest ‘stumpwm’ package has removed the “lib” output. All things using the
‘stumpwm:lib’ output need to switch to just using ‘stumpwm’.

I've added the ‘stumpwm+swank’ package definition because in my package
repository it depends on ‘stumpwm:lib’ and this way I can update it more easily.
This commit is contained in:
Tom Willemse 2024-07-01 14:18:40 -07:00
parent eec1396d42
commit b3e3f9292c
2 changed files with 35 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
oni/home/services/stumpwm.scm
View file

@ -56,7 +56,6 @@
(define (add-stumpwm-packages config)
(append (list sbcl
(home-stumpwm-configuration-package config)
(list stumpwm "lib")
(home-stumpwm-configuration-stumpish-package config))))
(define (home-stumpwm-extensions original-config extension-configs)

35
oni/packages/stumpwm.scm Normal file
View file

@ -0,0 +1,35 @@
(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)
("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)))))))