me
/
guix
Archived
1
0
Fork 0
Code

gnu: borg: Update to 1.4.0. 

* gnu/packages/backup.scm (borg): Update to 1.4.0.
[source]: Remove obsolete snippet components.
[arguments]: Export a newly required environment variable in the 'set-env'
phase. Adjust the custom 'install-doc' phase to install miscellaneous
documentation into a directory named after the package name and version.

Change-Id: I688bb4e6c67506226418b6b4a47595f2a10c10ae
master
Leo Famulari 2024-06-07 18:19:28 -04:00
parent b8fe6e3ba2
commit ff4e3b4b0e
No known key found for this signature in database
GPG Key ID: 6AAC1963757F47FF
1 changed files with 8 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
gnu/packages/backup.scm
View File

@ -675,14 +675,13 @@ detection, and lossless compression.")
(define-public borg (define-public borg
(package (package
(name "borg") (name "borg")
(version "1.2.8") (version "1.4.0")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "borgbackup" version)) (uri (pypi-uri "borgbackup" version))
(sha256 (sha256
(base32 "1aplj54x6hcyg3mnzscnwi07npy7nrws2246ss25ax6bsaq257fk")) (base32 "0agdyrmj7yy2vn0qghcpq458v9d09q9jvzzrszz6dyj3aqalak65"))
(modules '((guix build utils)))
(snippet (snippet
#~(begin #~(begin
;; Delete files generated by Cython. We used to have a regex that ;; Delete files generated by Cython. We used to have a regex that
@ -701,11 +700,7 @@ detection, and lossless compression.")
"src/borg/platform/linux.c" "src/borg/platform/linux.c"
"src/borg/platform/posix.c" "src/borg/platform/posix.c"
"src/borg/platform/syncfilerange.c" "src/borg/platform/syncfilerange.c"
"src/borg/platform/windows.c")) "src/borg/platform/windows.c"))))))
;; Remove bundled shared libraries.
(with-directory-excursion "src/borg/algorithms"
(for-each delete-file-recursively
(list "lz4" "xxh64" "zstd")))))))
(build-system python-build-system) (build-system python-build-system)
(arguments (arguments
(list (list
@ -716,10 +711,12 @@ detection, and lossless compression.")
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'set-env (add-after 'unpack 'set-env
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let ((openssl #$(this-package-input "openssl")) (let ((acl #$(this-package-input "acl"))
(openssl #$(this-package-input "openssl"))
(lz4 #$(this-package-input "lz4")) (lz4 #$(this-package-input "lz4"))
(xxhash #$(this-package-input "xxhash")) (xxhash #$(this-package-input "xxhash"))
(zstd #$(this-package-input "zstd"))) (zstd #$(this-package-input "zstd")))
(setenv "BORG_LIBACL_PREFIX" acl)
(setenv "BORG_OPENSSL_PREFIX" openssl) (setenv "BORG_OPENSSL_PREFIX" openssl)
(setenv "BORG_LIBLZ4_PREFIX" lz4) (setenv "BORG_LIBLZ4_PREFIX" lz4)
(setenv "BORG_LIBXXHASH_PREFIX" xxhash) (setenv "BORG_LIBXXHASH_PREFIX" xxhash)
@ -756,7 +753,8 @@ detection, and lossless compression.")
(add-after 'install 'install-doc (add-after 'install 'install-doc
(lambda _ (lambda _
(let ((man (string-append #$output "/share/man/man1")) (let ((man (string-append #$output "/share/man/man1"))
(misc (string-append #$output "/share/borg/misc"))) (misc (string-append #$output "/share/doc/borg-"
#$(package-version this-package))))
(for-each (cut install-file <> misc) (for-each (cut install-file <> misc)
'("docs/misc/create_chunker-params.txt" '("docs/misc/create_chunker-params.txt"
"docs/misc/borg-data-flow.png" "docs/misc/borg-data-flow.png"