02/02: gnu: qtpass: Wrap binary.

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit 73d9caba79b63e8ac714b8b851b7ae92a3878eca
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Wed Jun 10 16:21:18 2020 +0300

    gnu: qtpass: Wrap binary.
    
    * gnu/packages/password-utils.scm (qtpass)[arguments]: Import qt-utils
    modules. Add phase to wrap qtpass binary.
---
 gnu/packages/password-utils.scm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/password-utils.scm b/gnu/packages/password-utils.scm
index 8e1339e..6bd1e94 100644
--- a/gnu/packages/password-utils.scm
+++ b/gnu/packages/password-utils.scm
@@ -594,7 +594,12 @@ key URIs using the standard otpauth:// scheme.")
          "0748hjvhjrybi33ci3c8hcr74k9pdrf5jv8npf9hrsrmdyy1kr9x"))))
     (build-system gnu-build-system)
     (arguments
-     `(#:phases
+     `(#:modules ((guix build gnu-build-system)
+                  (guix build qt-utils)
+                  (guix build utils))
+       #:imported-modules (,@%gnu-build-system-modules
+                            (guix build qt-utils))
+       #:phases
        (modify-phases %standard-phases
          (replace 'configure
            (lambda* (#:key inputs outputs #:allow-other-keys)
@@ -630,6 +635,10 @@ key URIs using the standard otpauth:// scheme.")
                             (string-append icons "/qtpass-icon.svg"))
                (install-file "qtpass.1" man)
                #t)))
+         (add-after 'install 'wrap-qt
+           (lambda* (#:key outputs #:allow-other-keys)
+             (wrap-qt-program (assoc-ref outputs "out") "qtpass")
+             #t))
          (add-before 'check 'check-setup
            ;; Make Qt render "offscreen", required for tests.
            (lambda _