~ruther/guix-local

470fa47daa62043607d47cd6fb88a365ccfda1a3 — Fabio Natali 2 years ago 16c7130
gnu: borgmatic: Update to 1.8.9.

* gnu/packages/backup.scm (borgmatic): Update to 1.8.9.
[arguments]: Apply guix style.
[native-inputs]: Apply guix style.
[inputs]: Apply guix style.

Change-Id: Ic9eb3c9439dc0aade3e4aae0fbe8e2c7bec49754
Signed-off-by: jgart <jgart@dismail.de>
1 files changed, 32 insertions(+), 29 deletions(-)

M gnu/packages/backup.scm
M gnu/packages/backup.scm => gnu/packages/backup.scm +32 -29
@@ 1315,42 1315,45 @@ compression parameters used by Gzip.")
(define-public borgmatic
  (package
    (name "borgmatic")
    (version "1.7.12")
    (version "1.8.9")
    (source
     (origin
       (method url-fetch)
       (uri (pypi-uri "borgmatic" version))
       (sha256
        (base32 "0720wvs3h2w8h28d7mpvjfp0q37dnrwf1y2ik3y4yr9csih7fmgh"))))
        (base32 "1xmqv0gg2ic7lp5kmygr9f6qkabsr86mma7pigan12vk2bcdbw31"))))
    (build-system python-build-system)
    (arguments
     (list #:phases
           #~(modify-phases %standard-phases
               (add-after 'unpack 'configure
                 (lambda* (#:key inputs #:allow-other-keys)
                   ;; Set absolute store path to borg.
                   (substitute* "borgmatic/commands/borgmatic.py"
                     (("\\.get\\('local_path', 'borg'\\)")
                      (string-append ".get('local_path', '"
                                     (search-input-file inputs "bin/borg")
                                     "')")))
                   (substitute* "tests/unit/commands/test_borgmatic.py"
                     (("(module.get_local_path.+ == )'borg'" all start)
                      (string-append start "'"
                                     (search-input-file inputs "bin/borg")
                                     "'")))))
               (replace 'check
                 (lambda* (#:key tests? #:allow-other-keys)
                   (when tests?
                     ;; Tests require the installed executable.
                     (setenv "PATH" (string-append #$output "/bin"
                                                   ":" (getenv "PATH")))
                     (invoke "pytest")))))))
    (inputs
     (list borg python-colorama python-jsonschema python-requests
           python-ruamel.yaml-0.16))
    (native-inputs
     (list python-flexmock python-pytest python-pytest-cov))
     (list
      #:phases #~(modify-phases %standard-phases
                   (add-after 'unpack 'configure
                     (lambda* (#:key inputs #:allow-other-keys)
                       ;; Set absolute store path to borg.
                       (substitute* "borgmatic/commands/borgmatic.py"
                         (("\\.get\\('local_path', 'borg'\\)")
                          (string-append ".get('local_path', '"
                                         (search-input-file inputs "bin/borg")
                                         "')")))
                       (substitute* "tests/unit/commands/test_borgmatic.py"
                         (("(module.get_local_path.+ == )'borg'" all start)
                          (string-append start "'"
                                         (search-input-file inputs "bin/borg")
                                         "'")))))
                   (replace 'check
                     (lambda* (#:key tests? #:allow-other-keys)
                       (when tests?
                         ;; Tests require the installed executable.
                         (setenv "PATH"
                                 (string-append #$output "/bin" ":"
                                                (getenv "PATH")))
                         (invoke "pytest")))))))
    (inputs (list borg
                  python-apprise
                  python-colorama
                  python-jsonschema
                  python-requests
                  python-ruamel.yaml))
    (native-inputs (list python-flexmock python-pytest python-pytest-cov))
    (home-page "https://torsion.org/borgmatic/")
    (synopsis "Simple, configuration-driven backup software")
    (description