[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
03/03: gnu: Add sbcl-stumpwm-disk.
From: |
guix-commits |
Subject: |
03/03: gnu: Add sbcl-stumpwm-disk. |
Date: |
Fri, 12 Mar 2021 09:08:47 -0500 (EST) |
glv pushed a commit to branch master
in repository guix.
commit 2e5ac371e799cb91354ffafaf8af2da37d11fa3f
Author: Sharlatan Hellseher <sharlatanus@gmail.com>
AuthorDate: Thu Mar 11 21:25:21 2021 +0000
gnu: Add sbcl-stumpwm-disk.
* gnu/packages/wm.scm: (sbcl-stumpwm-disk): New variable.
Signed-off-by: Guillaume Le Vaillant <glv@posteo.net>
---
gnu/packages/wm.scm | 20 ++++++++++++++++++++
1 file changed, 20 insertions(+)
diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm
index d6a967b..9cab0cb 100644
--- a/gnu/packages/wm.scm
+++ b/gnu/packages/wm.scm
@@ -2020,6 +2020,26 @@ layouts in StumpWM.")
(description "Modeline support for CPU info.")
(license license:gpl3+)))
+(define-public sbcl-stumpwm-disk
+ (package
+ (inherit stumpwm-contrib)
+ (name "sbcl-stumpwm-disk")
+ (arguments
+ '(#:asd-systems '("disk")
+ #:tests? #f
+ #:phases
+ (modify-phases %standard-phases
+ (add-after 'unpack 'chdir
+ (lambda _ (chdir "modeline/disk") #t)))))
+ (inputs
+ `(("stumpwm" ,stumpwm "lib")
+ ("cl-diskspace" ,sbcl-cl-diskspace)
+ ("cl-mount-info" ,sbcl-cl-mount-info)))
+ (home-page "https://github.com/stumpwm/stumpwm-contrib")
+ (synopsis "StumpWM modeline support to show disk usage")
+ (description "StumpWM modeline support to show disk usage")
+ (license (list license:gpl2+ license:gpl3+))))
+
(define-public sbcl-stumpwm-mem
(package
(inherit stumpwm-contrib)