aboutsummaryrefslogtreecommitdiff
path: root/kbg
diff options
context:
space:
mode:
authorKenny Ballou <kb@devnulllabs.io>2023-12-12 17:00:38 -0700
committerKenny Ballou <kb@devnulllabs.io>2023-12-16 08:47:49 -0700
commita25716c56c9ca42daa34a7fc688f3e6c117b817f (patch)
tree9f231bdfda02f4fcaeada0e2b014b75f0f5d8bb7 /kbg
parentaa4f2bb712c13570bb3c082aeefdc9148d3270ab (diff)
downloaddotfiles-a25716c56c9ca42daa34a7fc688f3e6c117b817f.tar.gz
dotfiles-a25716c56c9ca42daa34a7fc688f3e6c117b817f.tar.xz
config: home-mcron: use naked mcron by default
Signed-off-by: Kenny Ballou <kb@devnulllabs.io>
Diffstat (limited to 'kbg')
-rw-r--r--kbg/services/mcron.scm61
-rw-r--r--kbg/services/shepherd.scm1
2 files changed, 0 insertions, 62 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))))
diff --git a/kbg/services/shepherd.scm b/kbg/services/shepherd.scm
index e3f6efb9..ec1f5566 100644
--- a/kbg/services/shepherd.scm
+++ b/kbg/services/shepherd.scm
@@ -10,7 +10,6 @@
#:use-module (system repl server)
#:use-module (kbg services gnupg)
#:use-module (kbg services languagetool)
- #:use-module (kbg services mcron)
#:use-module (kbg services mpd)
#:use-module (kbg services parallel)
#:use-module (kbg services syncthing)