aboutsummaryrefslogtreecommitdiff
path: root/kbg/services/mcron.scm
diff options
context:
space:
mode:
Diffstat (limited to 'kbg/services/mcron.scm')
-rw-r--r--kbg/services/mcron.scm61
1 files changed, 0 insertions, 61 deletions
diff --git a/kbg/services/mcron.scm b/kbg/services/mcron.scm
deleted file mode 100644
index 4b5af849..00000000
--- a/kbg/services/mcron.scm
+++ /dev/null
@@ -1,61 +0,0 @@
-(define-module (kbg services mcron)
- #:use-module (kbg)
- #:use-module (kbg private-data)
- #:use-module (guix gexp)
- #:use-module (gnu)
- #:use-module (gnu home)
- #:use-module (gnu home services)
- #:use-module (gnu home services mcron)
- #:use-module (gnu services)
- #:use-module (gnu packages)
- #:use-module (gnu packages backup)
- #:use-module (gnu packages guile-xyz)
- #:use-module (mcron base)
- #:use-module (mcron job-specifier)
- #:export (mcron-service))
-
-(define borg-backup-job
- #~(job "0 * 0 0 0"
- (lambda ()
- (system (string-append borg "/bin/borg")
- "create"
- "--stats"
- "--progress"
- "--show-rc"
- "--compression lz4"
- "--exclude-caches"
- "--exclude 'node_modules'"
- "--exclude '/home/*/.cache/*'"
- "--exclude '/home/*/tmp/*'"
- "--exclude '/home/*/guixtest/*'"
- "--exclude '/home/*/.var/*'"
- "--exclude '/home/*/.config/Element/*'"
- "--exclude '/home/*/.config/Signal/*'"
- "--exclude '/home/*/.config/Slack/*'"
- "--exclude '/home/*/.local/share/Zeal/*'"
- "--remote-ratelimit 2048"
- (string-append %borg-repository "::$(hostname)-$(uuidgen --time)"
- "/home/kb/")))
- "Borg Backup Creation"))
-
-(define borg-backup-prune-job
- #~(job "10 * 0 0 0"
- (lambda ()
- (system (string-append borg "/bin/borg")
- "prune"
- "--stats"
- "--progress"
- "--show-rc"
- "--keep-hourly=24"
- "--keep-daily=7"
- "--keep-weakly=4"
- "--keep-monthly=6"
- "--keep-yearly=2"
- "--prefix=$(hostname)"
- %borg-repository))
- "Borg Backup Pruning"))
-
-(define mcron-service
- (list (simple-service 'home-mcron
- home-mcron-service-type
- (list borg-backup-job borg-backup-prune-job))))