2024-08-16 14:29:19 +00:00
|
|
|
(ns dda.backup.backup
|
|
|
|
(:require
|
|
|
|
[orchestra.core :refer [defn-spec]]
|
|
|
|
[clojure.spec.alpha :as s]
|
2024-08-16 15:36:28 +00:00
|
|
|
[dda.backup.backup.domain :as domain]
|
2024-08-20 16:06:24 +00:00
|
|
|
[dda.backup.restic :as restic]
|
2024-08-16 15:36:28 +00:00
|
|
|
[dda.backup.infrastructure :as i]))
|
|
|
|
|
2024-08-20 16:06:24 +00:00
|
|
|
(s/def ::backup-file-config
|
|
|
|
(s/merge ::restic/restic-config
|
|
|
|
(s/keys :req-un [::domain/files]
|
|
|
|
:opt-un [])))
|
2024-08-16 15:36:28 +00:00
|
|
|
|
2024-08-20 16:06:24 +00:00
|
|
|
(defn-spec backup-file! nil?
|
|
|
|
[config ::backup-file-config]
|
|
|
|
(let [config-w-defaults (merge restic/default config)]
|
|
|
|
(restic/unlock! config-w-defaults)
|
2024-08-16 15:36:28 +00:00
|
|
|
(i/execute!
|
2024-08-16 17:13:11 +00:00
|
|
|
(domain/backup-files-command config-w-defaults)
|
2024-08-16 15:36:28 +00:00
|
|
|
config-w-defaults)
|
2024-08-20 16:06:24 +00:00
|
|
|
(restic/forget! config-w-defaults)
|
2024-08-16 15:36:28 +00:00
|
|
|
))
|