gnu: libdbusmenu: Update to 16.04.0-496.

* gnu/packages/gtk.scm (libdbusmenu): Update to 16.04.0-496.
[source]: Fetch using Breezy.
[arguments]: Use gexps.
[phases]: Delete trailing #t.
{remove-deprecated-gnome-common-macros}: New phase.
{patch-paths}: Likewise.
[inputs]: Use new style.
[native-inputs]: Likewise. Replace gnome-doc-utils with gnome-common.  Replace python-2 with
python-wrapper.  Add autoconf, automake, libtool, libxslt and which.

gnu/packages/gtk.scm

@@ -24,7 +24,7 @@
 ;;; Copyright © 2019 Giacomo Leidi <goodoldpaul@autistici.org>
 ;;; Copyright © 2020 Brendan Tildesley <mail@brendan.scot>
 ;;; Copyright © 2020 Guillaume Le Vaillant <glv@posteo.net>
-;;; Copyright © 2020, 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com>
+;;; Copyright © 2020, 2021, 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
 ;;; Copyright © 2021 Leo Famulari <leo@famulari.name>
 ;;; Copyright © 2021 Simon Streit <simon@netpanic.org>
 ;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be>
@@ -53,6 +53,7 @@ (define-module (gnu packages gtk)
   #:use-module (guix utils)
   #:use-module (guix packages)
   #:use-module (guix download)
+  #:use-module (guix bzr-download)
   #:use-module (guix git-download)
   #:use-module ((guix build utils) #:select (alist-replace))
   #:use-module (guix build-system cmake)
@@ -2544,64 +2545,85 @@ (define-public dragon-drop
    (license license:gpl3+)))
 
 (define-public libdbusmenu
-  (package
+  (let ((bzr-revision "496"))
-    (name "libdbusmenu")
+    (package
-    (version "16.04.0")
+      (name "libdbusmenu")
-    (source
+      (version (string-append "16.04.0" "-" bzr-revision))
-     (origin
+      (source
-       (method url-fetch)
+       (origin
-       (uri (string-append "https://launchpad.net/libdbusmenu/"
+         (method bzr-fetch)
-                           (version-major+minor version) "/" version
+         (uri (bzr-reference
-                           "/+download/libdbusmenu-" version ".tar.gz"))
+               (url "lp:libdbusmenu")
-       (sha256
+               (revision bzr-revision)))
-        (base32 "12l7z8dhl917iy9h02sxmpclnhkdjryn08r8i4sr8l3lrlm4mk5r"))))
+         (file-name (string-append name "-" version "-checkout"))
-    (build-system gnu-build-system)
+         (sha256
-    (arguments
+          (base32
-     `(#:configure-flags
+           "1rnp86r8f2xjcbk6jjl6np1qdhc3d7fj1c3ggn0gbv2kksc8r1bx"))))
-       '("--sysconfdir=/etc"
+      (build-system gnu-build-system)
-         "--localstatedir=/var"
+      (arguments
-         ;; The shebang of the generated test files should be patched before
+       (list
-         ;; enabling tests.
+        #:configure-flags
-         "--disable-tests")
+        #~(list "--sysconfdir=/etc"
-       #:make-flags
+                "--localstatedir=/var"
-       `(,(string-append "typelibdir=" (assoc-ref %outputs "out")
+                ;; The shebang of the generated test files should be patched
-                         "/lib/girepository-1.0"))
+                ;; before enabling tests.
-       #:phases
+                "--disable-tests")
-       (modify-phases %standard-phases
+        #:make-flags
-         (add-before 'configure 'do-not-treat-warnings-as-errors
+        #~(list (string-append "typelibdir=" #$output "/lib/girepository-1.0"))
-           (lambda _
+        #:phases
-             ;; Prevent the build from failing due to deprecation warnings
+        #~(modify-phases %standard-phases
-             ;; from newer GLib and GTK versions.
+            (add-after 'unpack 'remove-deprecated-gnome-common-macros
-             (substitute* (find-files "." "^Makefile.in$")
+              (lambda _
-               ((" -Werror")
+                ;; Adapted from a Debian patch to remove deprecated macros.
-                ""))
+                (substitute* "autogen.sh"
-             #t))
+                  (("^USE_GNOME2_MACROS.*") "")
-         (add-before 'configure 'set-environment
+                  (("^USE_COMMON_DOC_BUILD.*") ""))))
-           (lambda _
+            (add-after 'unpack 'patch-paths
-             (setenv "HAVE_VALGRIND_TRUE" "")
+              (lambda _
-             (setenv "HAVE_VALGRIND_FALSE" "#")
+                (substitute* "libdbusmenu-glib/Makefile.am"
-             #t)))))
+                  (("/bin/false")
-    (inputs
+                   "false")
-     `(("glib" ,glib)
+                  ;; (("\\$\\(srcdir)/clean-namespaces.xslt")
-       ("gtk+" ,gtk+)
+                  ;;  "clean-namespaces.xslt")
-       ("gtk+-2" ,gtk+-2)))
+                  )))
-    (native-inputs
+            (add-before 'configure 'do-not-treat-warnings-as-errors
-     `(("glib:bin" ,glib "bin")
+              (lambda _
-       ("gnome-doc-utils" ,gnome-doc-utils)
+                ;; Prevent the build from failing due to deprecation warnings
-       ("gobject-introspection" ,gobject-introspection)
+                ;; from newer GLib and GTK versions.
-       ("intltool" ,intltool)
+                (substitute* (find-files "." "^Makefile.in$")
-       ("json-glib" ,json-glib)
+                  ((" -Werror")
-       ("pkg-config" ,pkg-config)
+                   ""))))
-       ("python" ,python-2)
+            (add-before 'configure 'set-environment
-       ("vala" ,vala)))
+              (lambda _
-    (home-page "https://launchpad.net/libdbusmenu")
+                (setenv "HAVE_VALGRIND_TRUE" "")
-    (synopsis "Library for passing menus over DBus")
+                (setenv "HAVE_VALGRIND_FALSE" "#"))))))
-    (description "@code{libdbusmenu} passes a menu structure across DBus so
+      (inputs
+       (list glib
+             gtk+
+             gtk+-2))
+      (native-inputs
+       (list autoconf
+             automake
+             `(,glib "bin")
+             gobject-introspection
+             gnome-common
+             gtk-doc                    ;FIXME: propagate by gnome-common?
+             intltool
+             json-glib
+             libtool
+             libxslt
+             pkg-config
+             python-wrapper
+             which
+             vala))
+      (home-page "https://launchpad.net/libdbusmenupython")
+      (synopsis "Library for passing menus over DBus")
+      (description "@code{libdbusmenu} passes a menu structure across DBus so
 that a program can create a menu simply without worrying about how it is
 displayed on the other side of the bus.")
 
-    ;; Dual-licensed under either LGPLv2.1 or LGPLv3.
+      ;; Dual-licensed under either LGPLv2.1 or LGPLv3.
-    (license (list license:lgpl2.1 license:lgpl3))))
+      (license (list license:lgpl2.1 license:lgpl3)))))
 
 (define-public gtk-layer-shell
   (package