From: Leo Famulari <leo@famulari.name>
To: 52659@debbugs.gnu.org
Subject: [bug#52659] [PATCH v3 2/2] gnu: Add Vorta.
Date: Sun, 19 Dec 2021 14:35:28 -0500 [thread overview]
Message-ID: <5b38cd43b84536e5ec9879ce036625700e783d0d.1639942526.git.leo@famulari.name> (raw)
In-Reply-To: <b960924583def5400b477d3eea839c78ec8cf950.1639942526.git.leo@famulari.name>
* gnu/packages/backup.scm (vorta): New variable.
---
gnu/packages/backup.scm | 67 ++++++++++++++++++++++++++++++++++++++++-
1 file changed, 66 insertions(+), 1 deletion(-)
diff --git a/gnu/packages/backup.scm b/gnu/packages/backup.scm
index fdb84898bb..2a47b759d7 100644
--- a/gnu/packages/backup.scm
+++ b/gnu/packages/backup.scm
@@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014, 2015, 2020 Eric Bavier <bavier@posteo.net>
;;; Copyright © 2014 Ian Denhardt <ian@zenhack.net>
-;;; Copyright © 2015, 2016, 2017 Leo Famulari <leo@famulari.name>
+;;; Copyright © 2015, 2016, 2017, 2021 Leo Famulari <leo@famulari.name>
;;; Copyright © 2017–2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be>
;;; Copyright © 2017, 2021 Arun Isaac <arunisaac@systemreboot.net>
@@ -40,6 +40,7 @@
(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)
@@ -47,6 +48,7 @@ (define-module (gnu packages backup)
#:use-module (guix build-system gnu)
#:use-module (guix build-system go)
#:use-module (guix build-system python)
+ #:use-module (guix build-system qt)
#:use-module (gnu packages)
#:use-module (gnu packages acl)
#:use-module (gnu packages autotools)
@@ -76,12 +78,15 @@ (define-module (gnu packages backup)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages protobuf)
#:use-module (gnu packages python)
+ #:use-module (gnu packages python-check)
#:use-module (gnu packages python-crypto)
#:use-module (gnu packages python-web)
#:use-module (gnu packages python-xyz)
+ #:use-module (gnu packages qt)
#:use-module (gnu packages rsync)
#:use-module (gnu packages serialization)
#:use-module (gnu packages ssh)
+ #:use-module (gnu packages time)
#:use-module (gnu packages tls)
#:use-module (gnu packages valgrind)
#:use-module (gnu packages xml))
@@ -1181,3 +1186,63 @@ (define-public borgmatic
your databases too. Monitor it all with integrated third-party services.
borgmatic is powered by borg.")
(license license:gpl3+)))
+
+(define-public vorta
+ (package
+ (name "vorta")
+ (version "0.8.2")
+ (source (origin
+ (method url-fetch)
+ (uri (pypi-uri "vorta" version))
+ (sha256
+ (base32
+ "1cl7kyh14h38xavbq23b8ifvk8abkiqdkpgaxfxvd223fm02zz26"))))
+ (build-system python-build-system)
+ (arguments
+ (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)
+ (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)))))
+ (native-inputs
+ (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))
+ (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
+tool. It supports the use of remote backup repositories. It can perform
+scheduled backups, and has a graphical tool for browsing and extracting the Borg
+archives.")
+ (license license:gpl3+)))
--
2.34.0
next prev parent reply other threads:[~2021-12-19 19:36 UTC|newest]
Thread overview: 14+ messages / expand[flat|nested] mbox.gz Atom feed top
2021-12-19 17:41 [bug#52659] Vorta GUI for Borg backup Leo Famulari
2021-12-19 17:44 ` [bug#52659] [PATCH 1/2] gnu: Add python-pytest-faulthandler Leo Famulari
2021-12-19 17:44 ` [bug#52659] [PATCH 2/2] gnu: Add Vorta Leo Famulari
2021-12-19 17:52 ` Leo Famulari
2021-12-19 18:56 ` [bug#52659] [WIP v2 1/4] gnu: Add python-pytest-faulthandler Leo Famulari
2021-12-19 18:56 ` [bug#52659] [WIP v2 2/4] gnu: Add Vorta Leo Famulari
2021-12-19 18:56 ` [bug#52659] [WIP v2 3/4] Vorta: patch Borg invocation Leo Famulari
2021-12-19 18:56 ` [bug#52659] [WIP v2 4/4] WIP: Vorta: Use gexps instead of (assoc-ref ...) Leo Famulari
2021-12-19 19:35 ` [bug#52659] [PATCH v3 1/2] gnu: Add python-pytest-faulthandler Leo Famulari
2021-12-19 19:35 ` Leo Famulari [this message]
[not found] ` <87v8zjoed4.fsf@disroot.org>
2021-12-20 17:55 ` [bug#52659] [PATCH v3 2/2] gnu: Add Vorta Leo Famulari
2021-12-20 19:40 ` Xinglu Chen
2021-12-20 19:51 ` Leo Famulari
2022-01-26 19:18 ` bug#52659: " Leo Famulari
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://guix.gnu.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=5b38cd43b84536e5ec9879ce036625700e783d0d.1639942526.git.leo@famulari.name \
--to=leo@famulari.name \
--cc=52659@debbugs.gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/guix.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).