13/14: gnu: gnome-user-share: Update package definition.

[guix-commits]

dannym pushed a commit to branch wip-desktop
in repository guix.

commit 8c0846ffbdba9e958b0fe583ceb524624123d9c6
Author: Raghav Gururajan <raghavgururajan@disroot.org>
AuthorDate: Thu Aug 6 21:22:32 2020 -0400

    gnu: gnome-user-share: Update package definition.
    
    * gnu/packages/gnome.scm (gnome-user-share) [version]: Update to 3.34.0.
    [source]<origin>[sha256]: Modify base32.
    [arguments]<#:configure-flags>[-Dsystemd]: Remove flag.
    [-Dsystemduserunitdir]: New flag.
    [-Dhttpd]: New flag.
    [-Dmodules_path]: New flag.
    [native-inputs]: Remove gtk+:bin and yelp-tools.
    [inputs]: Add httpd and libselinux. Remove gnome-bluetooth,
    libcanberra and libnotify.
    
    Signed-off-by: Danny Milosavljevic <dannym@scratchpost.org>
---
 gnu/packages/gnome.scm | 79 +++++++++++++++++++++++++++-----------------------
 1 file changed, 42 insertions(+), 37 deletions(-)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index fb5875c..ef4643f 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -1696,43 +1696,48 @@ way to prepare a new system.")
 
 (define-public gnome-user-share
   (package
-   (name "gnome-user-share")
-   (version "3.33.1")
-   (source (origin
-            (method url-fetch)
-            (uri (string-append "mirror://gnome/sources/" name "/"
-                                (version-major+minor version) "/"
-                                name "-" version ".tar.xz"))
-            (sha256
-             (base32
-              "0lf790pyamdyj7180ils8vizjl8brxcg7jsm1iavfp9ay4wa8mz7"))))
-   (build-system meson-build-system)
-   (arguments
-    `(#:glib-or-gtk? #t
-      #:configure-flags
-       `("-Dsystemd=false"
-         ;; Enable nautilus extension for file sharing.
-         "-Dnautilus_extension=true")))
-   (native-inputs
-    `(("gettext" ,gettext-minimal)
-      ("glib:bin" ,glib "bin")
-      ("gobject-introspection" ,gobject-introspection)
-      ("gtk+:bin" ,gtk+ "bin")
-      ("pkg-config" ,pkg-config)
-      ("yelp-tools" ,yelp-tools)))
-   (inputs
-    `(("glib" ,glib)
-      ("gnome-bluetooth" ,gnome-bluetooth)
-      ("gtk+" ,gtk+)
-      ("libcanberra" ,libcanberra)
-      ("libnotify" ,libnotify)
-      ("nautilus" ,nautilus)))      ; For nautilus extension.
-   (synopsis "File sharing for GNOME desktop")
-   (description "GNOME User Share is a small package that binds together
-various free software projects to bring easy to use user-level file
-sharing to the masses.")
-   (home-page "https://gitlab.gnome.org/GNOME/gnome-user-share";)
-   (license license:gpl2+)))
+    (name "gnome-user-share")
+    (version "3.34.0")
+    (source
+     (origin
+       (method url-fetch)
+       (uri
+        (string-append "mirror://gnome/sources/" name "/"
+                       (version-major+minor version) "/"
+                       name "-" version ".tar.xz"))
+       (sha256
+        (base32 "04r9ck9v4i0d31grbli1d4slw2d6dcsfkpaybkwbzi7wnj72l30x"))))
+    (build-system meson-build-system)
+    (arguments
+     `(#:glib-or-gtk? #t     ; To wrap binaries and/or compile schemas
+       #:configure-flags
+       (list
+        (string-append "-Dsystemduserunitdir="
+                       (getcwd))
+        "-Dnautilus_extension=true"
+        (string-append "-Dhttpd="
+                       (assoc-ref %build-inputs "httpd")
+                       "/bin/httpd")
+        (string-append "-Dmodules_path="
+                       (assoc-ref %build-inputs "httpd")
+                       "/modules/"))))
+    (native-inputs
+     `(("gettext" ,gettext-minimal)
+       ("glib:bin" ,glib "bin")
+       ("gobject-introspection" ,gobject-introspection)
+       ("pkg-config" ,pkg-config)))
+    (inputs
+     `(("glib" ,glib)
+       ("gtk+" ,gtk+)
+       ("httpd" ,httpd)
+       ("libnautilus-extension" ,nautilus)
+       ("libselinux" ,libselinux)))
+    (synopsis "File sharing for GNOME desktop")
+    (description "GNOME User Share is a small package that binds together 
various
+free software projects to bring easy to use user-level file sharing to the
+masses.")
+    (home-page "https://gitlab.gnome.org/GNOME/gnome-user-share";)
+    (license license:gpl2+)))
 
 (define-public sushi
   (package