06/06: gnu: Add sbcl-stumpwm-screenshot.

[guix-commits]

glv pushed a commit to branch master
in repository guix.

commit 275fcffc9b5f4deb516c510b26b07c13d6e47307
Author: Guillaume Le Vaillant <glv@posteo.net>
AuthorDate: Mon Nov 30 14:56:59 2020 +0100

    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 36eb58b..653af37 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"))