From 0050876bcf5c44340322bd3a7ef3418a50766644 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=E5=AE=8B=E6=96=87=E6=AD=A6?= Date: Sat, 28 Jan 2017 12:30:50 +0800 Subject: [PATCH] gnu: assword: Wrap with the GObject typelib of GTK+. Fixes . * gnu/packages/password-utils.scm (assword)[inputs]: Add 'gtk+'. [arguments]: Add 'wrap-assword' phase. --- gnu/packages/password-utils.scm | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/gnu/packages/password-utils.scm b/gnu/packages/password-utils.scm index feb6848e09..0a3b4b64e7 100644 --- a/gnu/packages/password-utils.scm +++ b/gnu/packages/password-utils.scm @@ -36,6 +36,7 @@ #:use-module (gnu packages compression) #:use-module (gnu packages glib) #:use-module (gnu packages gnupg) + #:use-module (gnu packages gtk) #:use-module (gnu packages guile) #:use-module (gnu packages linux) #:use-module (gnu packages man) @@ -240,6 +241,15 @@ random passwords that pass the checks.") #:tests? #f #:phases (modify-phases %standard-phases + (add-after 'install 'wrap-assword + (lambda* (#:key outputs #:allow-other-keys) + (let ((prog (string-append + (assoc-ref outputs "out") + "/bin/assword")) + (gi-typelib-path (getenv "GI_TYPELIB_PATH"))) + (wrap-program prog + `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))) + #t))) (add-after 'install 'manpage (lambda* (#:key outputs #:allow-other-keys) (and @@ -255,7 +265,8 @@ random passwords that pass the checks.") (native-inputs `(("txt2man" ,txt2man))) (inputs - `(("python-xdo" ,python-xdo) + `(("gtk+" ,gtk+) + ("python-xdo" ,python-xdo) ("python-gpg" ,python-gpg) ("python-pygobject" ,python-pygobject))) (propagated-inputs