[bug#49702] [PATCH v3] gnu: Add swaylock-effects.

[phodina via Guix-patches via <guix-patches@gnu.org>]

* gnu/packages/wm.scm (swaylock-effects): New variable.

diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm
index 957c5a0d5a..1cc68388b8 100644
--- a/gnu/packages/wm.scm
+++ b/gnu/packages/wm.scm
@@ -83,6 +83,7 @@
   #:use-module (gnu packages bison)
   #:use-module (gnu packages build-tools) ;for meson-0.55
   #:use-module (gnu packages calendar)
+  #:use-module (gnu packages commencement) ; for gcc>9
   #:use-module (gnu packages datastructures)
   #:use-module (gnu packages docbook)
   #:use-module (gnu packages documentation)
@@ -1617,6 +1618,31 @@ modules for building a Wayland compositor.")
     (description "Swaylock is a screen locking utility for Wayland compositors.")
     (license license:expat))) ; MIT license

+(define-public swaylock-effects
+  (let ((commit "5cb9579faaf5662b111f5722311b701eff1c1d00")
+        (revision "1"))
+    (package (inherit swaylock)
+             (name "swaylock-effects")
+             (version commit)
+             (source (origin
+                       (method git-fetch)
+                       (uri (git-reference
+                             (url "https://github.com/mortie/swaylock-effects")
+                             (commit version)))
+                       (file-name (git-file-name name version))
+                       (sha256
+                        (base32
+                         "036dkhfqgk7g9vbr5pxgrs66h5fz0rwdsc67i1w51aa9v01r35ca"))))
+             ; Requires gcc>=9 see the issue here
+             ; https://github.com/mortie/swaylock-effects/issues/26
+             (native-inputs `(("gcc", gcc-9)
+                              ,@(package-native-inputs swaylock)))
+             (synopsis "Screen locking utility for Wayland compositors with effects")
+             (description "@code{Swaylock-effects} is a fork of swaylock with additional
+features, such as the ability to take a screenshot as the background image,
+display a clock or apply image manipulation techniques to the background image.")
+             (home-page "https://github.com/mortie/swaylock-effects"))))
+
 (define-public swaybg
   (package
     (name "swaybg")
--
2.32.0