gnu: libdmapsharing: Remove patch-docbook-xml phase.

* gnu/packages/gnome.scm (libdmapsharing) [arguments]: Remove patch-docbook-xml
phase.  Use gexps.
[inputs]: Remove labels.

gnu/packages/gnome.scm

@@ -550,23 +550,11 @@ in JavaScript.")
     (build-system glib-or-gtk-build-system)
     (outputs '("out" "doc"))
     (arguments
-     `(#:tests? #f                      ; Tests require networking.
-       #:configure-flags
-       (list
-        "--disable-static"
-        (string-append "--with-html-dir="
-                       (assoc-ref %outputs "doc")
-                       "/share/gtk-doc/html"))
-       #:phases
-       (modify-phases %standard-phases
-         (add-after 'unpack 'patch-docbook-xml
-           (lambda* (#:key inputs #:allow-other-keys)
-             (with-directory-excursion "doc"
-               (substitute* "libdmapsharing-4.0-docs.xml"
-                 (("http://www.oasis-open.org/docbook/xml/4.3/")
-                  (string-append (assoc-ref inputs "docbook-xml")
-                                 "/xml/dtd/docbook/"))))
-             #t)))))
+     (list #:tests? #f                  ; Tests require networking.
+           #:configure-flags
+           #~(list "--disable-static"
+                   (string-append "--with-html-dir=" #$output:doc
+                                  "/share/gtk-doc/html"))))
     (native-inputs
      (list check
            docbook-xml-4.3
@@ -575,11 +563,11 @@ in JavaScript.")
            pkg-config
            vala))
     (inputs
-     `(("avahi" ,avahi)
-       ("librsvg" ,librsvg)
-       ("gee" ,libgee)
-       ("gst-plugins-base" ,gst-plugins-base)
-       ("gtk+" ,gtk+)))
+     (list avahi
+           librsvg
+           libgee
+           gst-plugins-base
+           gtk+))
     (propagated-inputs
      (list glib glib-networking gstreamer libsoup-minimal-2))
     (synopsis "Media management library")