03/05: gnu: deja-dup: Let deja-dup find duplicity.

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit 5a6411f684cc65c4ea30bfbf17bf2deb9d56ba9b
Author: Vivien Kraus <vivien@planete-kraus.eu>
AuthorDate: Thu Oct 14 17:30:09 2021 +0200

    gnu: deja-dup: Let deja-dup find duplicity.
    
    * gnome.scm (deja-dup)[phases]: Wrap deja-dup to include duplicity
    in PATH.
    [inputs]: Add bash-minimal.
    
    Signed-off-by: Efraim Flashner <efraim@flashner.co.il>
---
 gnu/packages/gnome.scm | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index 5d8840e..7ac2ff2 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -1773,9 +1773,17 @@ configuration files for the GNOME menu, as well as a 
simple menu editor.")
            (lambda _
              (substitute* "data/post-install.sh"
                (("gtk-update-icon-cache") "true"))
-             #t)))))
+             #t))
+         (add-after 'install 'wrap-program
+           (lambda* (#:key inputs outputs #:allow-other-keys)
+             ;; Add duplicity to the search path
+             (wrap-program (string-append (assoc-ref outputs "out")
+                                          "/bin/deja-dup")
+               `("PATH" ":" prefix
+                 (,(string-append (assoc-ref inputs "duplicity") 
"/bin")))))))))
     (inputs
-     `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
+     `(("bash-minimal" ,bash-minimal)
+       ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
        ("duplicity" ,duplicity)
        ("python" ,python)
        ("python-pygobject" ,python-pygobject)