From 275fcffc9b5f4deb516c510b26b07c13d6e47307 Mon Sep 17 00:00:00 2001 From: Guillaume Le Vaillant Date: Mon, 30 Nov 2020 14:56:59 +0100 Subject: gnu: Add sbcl-stumpwm-screenshot. * gnu/packages/wm.scm (sbcl-stumpwm-screenshot): New variable. --- gnu/packages/wm.scm | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm index 36eb58b713..653af37de7 100644 --- a/gnu/packages/wm.scm +++ b/gnu/packages/wm.scm @@ -1965,6 +1965,33 @@ layouts in StumpWM.") one in Emacs.") (license license:gpl3+))) +(define-public sbcl-stumpwm-screenshot + (package + (inherit stumpwm-contrib) + (name "sbcl-stumpwm-screenshot") + (inputs + `(("stumpwm" ,stumpwm "lib") + ("zpng" ,sbcl-zpng))) + (arguments + '(#:asd-systems '("screenshot") + #:tests? #f + #:phases + (modify-phases %standard-phases + (add-after 'unpack 'chdir + (lambda _ + (chdir "util/screenshot"))) + (add-after 'chdir 'fix-build + (lambda _ + (substitute* "screenshot.asd" + (("#:zpng") + "#:stumpwm #:zpng"))))))) + (home-page + "https://github.com/stumpwm/stumpwm-contrib/tree/master/util/screenshot") + (synopsis "Screenshots for StumpWM") + (description "This StumpWM module can take screenshots and store them as +PNG files.") + (license license:gpl3+))) + (define-public lemonbar (let ((commit "35183ab81d2128dbb7b6d8e119cc57846bcefdb4") (revision "1")) -- cgit 1.4.1