diff options
| author | Oleg Pykhalov <go.wigust@gmail.com> | 2021-04-09 04:23:17 +0300 |
|---|---|---|
| committer | Oleg Pykhalov <go.wigust@gmail.com> | 2021-04-09 04:23:17 +0300 |
| commit | 1f23d5909c5c604afad62c8d7db5ef09aecd67ab (patch) | |
| tree | b5f37fa80338313ca3d1afb3d525da51681b82df | |
| parent | guix: stumpwm-next: Update to 20.11-1.ca3d065. (diff) | |
| download | guix-wigust-1f23d5909c5c604afad62c8d7db5ef09aecd67ab.tar.gz | |
guix: Add stumpwm-next packaes.
* guix/wigust/packages/lisp.scm (sbcl-stumpwm-next-ttf-fonts,
sbcl-stumpwm-next-globalwindows, sbcl-stumpwm-next-swm-gaps,
sbcl-stumpwm-next-stumptray): New variables.
| -rw-r--r-- | guix/wigust/packages/lisp.scm | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/guix/wigust/packages/lisp.scm b/guix/wigust/packages/lisp.scm index 893b9c5..ef1ebe0 100644 --- a/guix/wigust/packages/lisp.scm +++ b/guix/wigust/packages/lisp.scm @@ -61,6 +61,25 @@ #:use-module (ice-9 match) #:use-module (srfi srfi-1)) +(define-syntax define-stumpwm-next-package + (lambda (s) + "Convert stumpwm-checkout to stumpwm-next package." + (with-ellipsis + ::: + (syntax-case s () + ((_ var-name pkg) + #'(begin + (define-public var-name + (package + (inherit pkg) + (name (match (string-split (package-name pkg) #\-) + (("sbcl" "stumpwm" "checkout" package ...) + (string-join (append '("sbcl" "stumpwm" "next") package) "-")) + (a (string-join a "-")))) + (inputs + `(("stumpwm" ,stumpwm-next "lib") + ,@(alist-delete "stumpwm" (package-inputs pkg)))))))))))) + (define-public stumpwm-checkout (let ((commit "bd9151cda21313a928a1cf410a7c608bcc8459e8")) (package @@ -147,18 +166,27 @@ `(("stumpwm" ,stumpwm-checkout "lib") ("clx-truetype" ,sbcl-clx-truetype))))) +(define-stumpwm-next-package sbcl-stumpwm-next-ttf-fonts + sbcl-stumpwm-checkout-ttf-fonts) + (define-public sbcl-stumpwm-checkout-globalwindows (package (inherit sbcl-stumpwm-globalwindows) (inputs `(("stumpwm" ,stumpwm-checkout "lib"))))) +(define-stumpwm-next-package sbcl-stumpwm-next-globalwindows + sbcl-stumpwm-checkout-globalwindows) + (define-public sbcl-stumpwm-checkout-swm-gaps (package (inherit sbcl-stumpwm-swm-gaps) (inputs `(("stumpwm" ,stumpwm-checkout "lib"))))) +(define-stumpwm-next-package sbcl-stumpwm-next-swm-gaps + sbcl-stumpwm-checkout-swm-gaps) + (define-public sbcl-clx-xembed (let ((commit "a5c4b844d31ee68ffa58c933cc1cdddde6990743") (revision "1")) @@ -213,3 +241,6 @@ protocol that integrates with CLX.") (synopsis "") (description "") (license #f)))) + +(define-stumpwm-next-package sbcl-stumpwm-next-stumptray + sbcl-stumpwm-checkout-stumptray) |