From 67e3ea90c5196125f35e285690f28355d41181af Mon Sep 17 00:00:00 2001
From: L  p R n  d n <guix@lprndn.info>
Date: Fri, 23 Aug 2019 19:36:01 +0200
Subject: [PATCH 10/11] gnu: Add xfce4-screensaver.

---
 gnu/packages/xfce.scm | 46 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)

diff --git a/gnu/packages/xfce.scm b/gnu/packages/xfce.scm
index e41e5caf10..98918883ce 100644
--- a/gnu/packages/xfce.scm
+++ b/gnu/packages/xfce.scm
@@ -1118,3 +1118,49 @@ of data to either CD/DVD/BD.")
    (description
     "Mousepad is a graphical text editor for Xfce based on Leafpad.")
    (license gpl2+)))
+
+(define-public xfce4-screensaver
+  (package
+   (name "xfce4-screensaver")
+   (version "0.1.8")
+   (source (origin
+            (method url-fetch)
+            (uri (string-append "http://archive.xfce.org/src/apps/"
+                                "xfce4-screensaver/"
+                                (version-major+minor version)
+                                "/xfce4-screensaver-"
+                                version ".tar.bz2"))
+            (sha256
+             (base32
+              "1mv0r150yb29kji2rr2462g9p574bqjax1lb6bzcqgpxlmg08mj0"))))
+   (build-system gnu-build-system)
+   (arguments
+    `(#:phases
+      (modify-phases %standard-phases
+         (add-after 'unpack 'fix-dbus-1-path
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((out (assoc-ref outputs "out"))
+                    (dbus-dir (string-append out "/share/dbus-1/services")))
+             (substitute* "configure"
+               (("dbus-1") ""))))))))
+   (native-inputs
+    `(("pkg-config" ,pkg-config)
+      ("intltool" ,intltool)
+      ("glib" ,glib)                    ; glib-compile-schemas
+      ("glib:bin" ,glib "bin")))        ; glib-compile-schemas
+   (inputs
+    `(("dbus-glib" ,dbus-glib)
+      ("libux-pam" ,linux-pam)
+      ("elogind" ,elogind)
+      ("garcon" ,garcon)
+      ("libxklavier" ,libxklavier)
+      ("libwnxk" ,libwnck)
+      ("libxscrnsaver" ,libxscrnsaver)
+      ("xfconf" ,xfconf)))
+   (home-page "https://docs.xfce.org/apps/screensaver/start")
+   ;; TODO
+   (synopsis "Screensaver for the Xfce desktop")
+   (description
+    "Xfce Screensaver is a screen saver and locker that aims to have simple,
+ sane, secure defaults and be well integrated with the Xfce desktop. ")
+   (license gpl2+)))
-- 
2.22.0