me
/
guix
Archived
1
0
Fork 0
Code

gnu: borgmatic: Use G-expressions. 

* gnu/packages/backup.scm (borgmatic)[arguments]:
Rewrite as G-expressions.
master
Tobias Geerinckx-Rice 2022-01-06 00:18:29 +01:00
parent 2c9bc8408e
commit 38ee3d616d
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 18 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
gnu/packages/backup.scm
View File

@ -38,6 +38,7 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu packages backup) (define-module (gnu packages backup)
#:use-module (guix gexp)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses) #:prefix license:)
#:use-module (guix git-download) #:use-module (guix git-download)
@ -1152,21 +1153,21 @@ compression parameters used by Gzip.")
(base32 "0pvqlj17vp81i7saxqh5hsaxqz29ldrjd7bcssh4g1h0ikmnaf2r")))) (base32 "0pvqlj17vp81i7saxqh5hsaxqz29ldrjd7bcssh4g1h0ikmnaf2r"))))
(build-system python-build-system) (build-system python-build-system)
(arguments (arguments
`(#:phases (list #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'configure (add-after 'unpack 'configure
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
;; Set absolute store path to borg. ;; Set absolute store path to borg.
(substitute* "borgmatic/commands/borgmatic.py" (substitute* "borgmatic/commands/borgmatic.py"
(("location\\.get\\('local_path', 'borg'\\)") (("location\\.get\\('local_path', 'borg'\\)")
(string-append "location.get('local_path', '" (string-append "location.get('local_path', '"
(assoc-ref inputs "borg") "/bin/borg" (search-input-file inputs "bin/borg")
"')"))))) "')")))))
(replace 'check (replace 'check
(lambda* (#:key tests? inputs outputs #:allow-other-keys) (lambda* (#:key tests? #:allow-other-keys)
(when tests? (when tests?
;; Tests require the installed executable. ;; Tests require the installed executable.
(setenv "PATH" (string-append (assoc-ref outputs "out") "/bin" (setenv "PATH" (string-append #$output "/bin"
":" (getenv "PATH"))) ":" (getenv "PATH")))
(invoke "pytest"))))))) (invoke "pytest")))))))
(inputs (inputs