summary refs log tree commit diff
path: root/gnu/packages/wm.scm
diff options
context:
space:
mode:
authorGuillaume Le Vaillant <glv@posteo.net>2020-11-30 14:56:59 +0100
committerGuillaume Le Vaillant <glv@posteo.net>2020-11-30 15:00:27 +0100
commit275fcffc9b5f4deb516c510b26b07c13d6e47307 (patch)
tree486c660943542d4e309c214487353ae7df65a7ae /gnu/packages/wm.scm
parentf6c827c1c9ecc3dedd584d47d05ed6faa24e33ab (diff)
downloadguix-275fcffc9b5f4deb516c510b26b07c13d6e47307.tar.gz
gnu: Add sbcl-stumpwm-screenshot.
* gnu/packages/wm.scm (sbcl-stumpwm-screenshot): New variable.
Diffstat (limited to 'gnu/packages/wm.scm')
-rw-r--r--gnu/packages/wm.scm27
1 files changed, 27 insertions, 0 deletions
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"))