04/04: gnu: Add swaylock.

[guix-commits]

rhelling pushed a commit to branch master
in repository guix.

commit b0805973cd1c08fe031bfed312e570697a665494
Author: Rutger Helling <address@hidden>
Date:   Mon Mar 11 20:22:00 2019 +0100

    gnu: Add swaylock.
    
    * gnu/packages/wm.scm (swaylock): New variable.
---
 gnu/packages/wm.scm | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm
index fe4e0f4..27848ea 100644
--- a/gnu/packages/wm.scm
+++ b/gnu/packages/wm.scm
@@ -1221,3 +1221,33 @@ modules for building a Wayland compositor.")
     (synopsis "Idle management daemon for Wayland compositors")
     (description "Swayidle is a idle management daemon for Wayland 
compositors.")
     (license license:expat))) ; MIT license
+
+(define-public swaylock
+  (package
+    (name "swaylock")
+    (version "1.3")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://github.com/swaywm/swaylock.git";)
+             (commit version)))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "093nv1y9wyg48rfxhd36qdljjry57v1vkzrlc38mkf6zvsq8j7wb"))))
+    (build-system meson-build-system)
+    (inputs `(("cairo" ,cairo)
+              ("gdk-pixbuf" ,gdk-pixbuf)
+              ("libxkbcommon" ,libxkbcommon)
+              ;("linux-pam" ,linux-pam) ; FIXME: Doesn't work.
+              ("wayland" ,wayland)))
+    (native-inputs `(
+                     ("git" ,git)
+                     ("pango" ,pango)
+                     ("pkg-config" ,pkg-config)
+                     ("scdoc" ,scdoc)
+                     ("wayland-protocols" ,wayland-protocols)))
+    (home-page "https://github.com/swaywm/sway";)
+    (synopsis "Screen locking utility for Wayland compositors")
+    (description "Swaylock is a screen locking utility for Wayland 
compositors.")
+    (license license:expat))) ; MIT license