me
/
guix
Archived
1
0
Fork 0
Code

gnu: Add sbcl-stumpwm-with-slynk. 

* gnu/packages/lisp.scm (sbcl-stumpwm+slynk): New variable.

Signed-off-by: 宋文武 <iyzsong@gmail.com>
master
Andy Patterson 2016-10-07 04:07:57 -04:00 committed by 宋文武
parent e3e171ee81
commit 96784438f5
No known key found for this signature in database
GPG Key ID: 26525665AE727D37
1 changed files with 31 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
gnu/packages/lisp.scm
View File

@ -1041,3 +1041,34 @@ 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)
(let* ((out (assoc-ref outputs "out"))
(program (string-append out "/bin/stumpwm")))
(build-program lisp program
#:inputs inputs
#:entry-program '((stumpwm:stumpwm) 0)
#:dependencies '("stumpwm"
,@slynk-systems))
;; Remove unneeded file.
(delete-file (string-append out "/bin/stumpwm-exec.fasl"))
#t)))
(delete 'copy-source)
(delete 'build)
(delete 'check)
(delete 'link-dependencies)
(delete 'cleanup)
(delete 'create-symlinks)))))))