me
/
guix
Archived
1
0
Fork 0
Code

gnu: deja-dup: update to 45.2. 

* gnu/packages/gnome.scm (deja-dup): Update to 45.2.
[arguments]: Convert to list of G-Expressions.

Change-Id: I60823287827b0690796fec7955bcf9682acd88b3
Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>
master
Vivien Kraus 2024-01-14 13:11:03 +01:00 committed by Liliana Marie Prikler
parent f5f345153c
commit 3aef72ec5b
No known key found for this signature in database
GPG Key ID: 442A84B8C70E2F87
1 changed files with 37 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

73
gnu/packages/gnome.scm
View File

@ -1823,50 +1823,51 @@ configuration files for the GNOME menu, as well as a simple menu editor.")
(define-public deja-dup (define-public deja-dup
(package (package
(name "deja-dup") (name "deja-dup")
(version "43.4") (version "45.2")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://gitlab.gnome.org/World/deja-dup/-/archive/" (uri (string-append "https://gitlab.gnome.org/World/deja-dup/-/archive/"
version "/deja-dup-" version ".tar.bz2")) version "/deja-dup-" version ".tar.bz2"))
(sha256 (sha256
(base32 (base32
"1mr2g009w0zm5rj8dg1k77c7zdwylih2yszm8vh8wkw6al6bzfh3")))) "000cwy1haiglkvn5plmhrs2a1fhpcpw6z4mdzck7ybmky795amza"))))
(build-system meson-build-system) (build-system meson-build-system)
(arguments (arguments
`(#:glib-or-gtk? #t (list
#:configure-flags #:glib-or-gtk? #t
(list #:configure-flags
;; Otherwise, the RUNPATH will lack the final path component. #~(list
(string-append "-Dc_link_args=-Wl,-rpath=" ;; Otherwise, the RUNPATH will lack the final path component.
(assoc-ref %outputs "out") "/lib/deja-dup")) (string-append "-Dc_link_args=-Wl,-rpath="
#:phases (assoc-ref %outputs "out") "/lib/deja-dup"))
(modify-phases %standard-phases #:phases
(add-after 'unpack 'patch-paths #~(modify-phases %standard-phases
(lambda* (#:key inputs #:allow-other-keys) (add-after 'unpack 'patch-paths
(let ((python (assoc-ref inputs "python"))) (lambda* (#:key inputs #:allow-other-keys)
(substitute* '("libdeja/duplicity/DuplicityInstance.vala" (let ((python (assoc-ref inputs "python")))
"libdeja/tests/scripts/instance-error.test") (substitute* '("libdeja/duplicity/DuplicityInstance.vala"
(("/bin/rm") "libdeja/tests/scripts/instance-error.test")
(which "rm"))) (("/bin/rm")
(substitute* "libdeja/tests/runner.vala" (which "rm")))
(("/bin/sh") (substitute* "libdeja/tests/runner.vala"
(which "sh"))) (("/bin/sh")
(substitute* "libdeja/tests/scripts/instance-error.test" (which "sh")))
(("`which python3`") (substitute* "libdeja/tests/scripts/instance-error.test"
(string-append python "/bin/python3")))))) (("`which python3`")
(add-after 'unpack 'patch-libgpg-error (string-append python "/bin/python3"))))))
(lambda* (#:key inputs #:allow-other-keys) (add-after 'unpack 'patch-libgpg-error
(let ((libgpg-error (assoc-ref inputs "libgpg-error"))) (lambda* (#:key inputs #:allow-other-keys)
(substitute* "meson.build" (let ((libgpg-error (assoc-ref inputs "libgpg-error")))
(("(gpgerror_libs = ).*" _ var) (substitute* "meson.build"
(format #f "~a '-L~a/lib -lgpg-error'\n" var libgpg-error)))))) (("(gpgerror_libs = ).*" _ var)
(add-after 'install 'wrap-program (format #f "~a '-L~a/lib -lgpg-error'\n" var libgpg-error))))))
(lambda* (#:key inputs outputs #:allow-other-keys) (add-after 'install 'wrap-program
;; Add duplicity to the search path (lambda* (#:key inputs outputs #:allow-other-keys)
(wrap-program (string-append (assoc-ref outputs "out") ;; Add duplicity to the search path
"/bin/deja-dup") (wrap-program (string-append (assoc-ref outputs "out")
`("PATH" ":" prefix "/bin/deja-dup")
(,(string-append (assoc-ref inputs "duplicity") "/bin"))))))))) `("PATH" ":" prefix
(,(dirname (search-input-file inputs "/bin/duplicity"))))))))))
(inputs (inputs
(list bash-minimal (list bash-minimal
duplicity duplicity