(define-module (gnu packages backup)
#:use-module (guix packages)
#:use-module ((guix licenses) #:prefix license:)
+ #:use-module (guix gexp)
#:use-module (guix git-download)
#:use-module (guix download)
#:use-module (guix utils)
(define-public vorta
"1cl7kyh14h38xavbq23b8ifvk8abkiqdkpgaxfxvd223fm02zz26"))))
(build-system python-build-system)
(arguments
- `(#:imported-modules ((guix build qt-utils)
+ (list
+ #:imported-modules `((guix build qt-utils)
(guix build cmake-build-system)
(guix build qt-build-system)
,@%python-build-system-modules)
- #:modules ((guix build utils)
+ #:modules '((guix build utils)
(guix build python-build-system)
((guix build qt-build-system) #:prefix qt:))
- #:phases
- (modify-phases %standard-phases
- (add-after 'unpack 'patch-borg-path
- (lambda* (#:key inputs #:allow-other-keys)
- (substitute* "src/vorta/borg/borg_job.py"
- (("which\\('borg'\\)")
- (string-append "which('" ,#$(this-package-input borg)
- "/bin/borg')")))))
- ;; XXX This phase tries to write to $HOME
- (add-before 'sanity-check 'set-HOME
- (lambda _
- (setenv "HOME" "/tmp")))
- ;; Otherwise, the user interface's icons will be missing.
- (add-after 'wrap 'qt-wrap
- (assoc-ref qt:%standard-phases 'qt-wrap)))))
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-after 'unpack 'patch-borg-path
+ (lambda* (#:key inputs #:allow-other-keys)
+ (substitute* "src/vorta/borg/borg_job.py"
+ (("which\\('borg'\\)")
+ (string-append "which('" #$(this-package-input borg)
+ "/bin/borg')")))))
+ ;; XXX This phase tries to write to $HOME
+ (add-before 'sanity-check 'set-HOME
+ (lambda _
+ (setenv "HOME" "/tmp")))
+ ;; Otherwise, the user interface's icons will be missing.
+ (add-after 'wrap 'qt-wrap
+ (assoc-ref qt:%standard-phases 'qt-wrap)))))
(native-inputs
- (list python-pytest-mock
- python-pytest-qt
- python-pytest-runner
- python-setuptools-git))
+ (list python-pytest-mock
+ python-pytest-qt
+ python-pytest-runner
+ python-setuptools-git))
(inputs
- (list borg
- python-appdirs
- python-dateutil
- python-keyring
- python-paramiko
- python-peewee
- python-psutil
- python-pyqt
- python-secretstorage
- ;; XXX This is included so that the qt-wrap phase picks it up.
- qtsvg))
+ (list borg
+ python-appdirs
+ python-dateutil
+ python-keyring
+ python-paramiko
+ python-peewee
+ python-psutil
+ python-pyqt
+ python-secretstorage
+ ;; XXX This is included so that the qt-wrap phase picks it up.
+ qtsvg))
(home-page "https://github.com/borgbase/vorta")
(synopsis "Graphical backup client based on BorgBackup")
(description "Vorta is a graphical backup client based on the Borg backup