~ruther/guix-local

86fcb344b959fed7a5d592709e8625bb816a86ad — Maxim Cournoyer 3 years ago 2f79fd9 
gnu: authenticator: Patch to build with a recent meson.

* gnu/packages/gnome.scm (authenticator)
[arguments]: Use gexps.  Remove #:meson argument.  Add 'patch-meson.build
phase.  Use search-input-file in python-and-gi-wrap phase.
patch browse .tar.gz .zip 
1 files changed, 20 insertions(+), 17 deletions(-)

M gnu/packages/gnome.scm

M gnu/packages/gnome.scm => gnu/packages/gnome.scm +20 -17
@@ 10249,23 10249,26 @@ specified duration and save it as a GIF encoded animated image file.")
        (base32 "1c4r9rnrz5gazrfg0z2rcwax4nscs7z391bcjcl74k6ln3blwzpr"))))
    (build-system meson-build-system)
    (arguments
     `(#:meson ,meson-0.59
       #:glib-or-gtk? #t
       #:phases
       (modify-phases %standard-phases
         (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
           (lambda* (#:key inputs outputs #:allow-other-keys)
             (let ((prog (string-append (assoc-ref outputs "out")
                                        "/bin/authenticator"))
                   (pylib (string-append (assoc-ref outputs "out")
                                         "/lib/python"
                                         ,(version-major+minor
                                           (package-version
                                            (this-package-input "python")))
                                         "/site-packages")))
               (wrap-program prog
                 `("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH") ,pylib))
                 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))))))))
     (list
      #:glib-or-gtk? #t
      #:phases
      #~(modify-phases %standard-phases
          (add-after 'unpack 'patch-meson.build
            (lambda _
              (substitute* "data/meson.build"
                (("^  'desktop',.*") "")
                (("^  'appdata',.*") ""))))
          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
            (lambda* (#:key inputs outputs #:allow-other-keys)
              (let ((prog (search-input-file outputs "bin/authenticator"))
                    (pylib (string-append #$output "/lib/python"
                                          #$(version-major+minor
                                             (package-version
                                              (this-package-input "python")))
                                          "/site-packages")))
                (wrap-program prog
                  `("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH") ,pylib))
                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))))))))
    (native-inputs
     (list desktop-file-utils
           gettext-minimal