diff options
| -rw-r--r-- | suweren/home.scm | 6 | ||||
| -rw-r--r-- | suweren/update.scm | 40 |
2 files changed, 44 insertions, 2 deletions
diff --git a/suweren/home.scm b/suweren/home.scm index b474aa0..4d4c789 100644 --- a/suweren/home.scm +++ b/suweren/home.scm @@ -9,7 +9,8 @@ #:use-module (gnu services) #:use-module (nongnu packages mozilla) #:use-module (suweren home services) - #:use-module (suweren services sound)) + #:use-module (suweren services sound) + #:use-module (suweren update)) (define-public %home-environment (let ((bash (service home-bash-service-type @@ -23,6 +24,7 @@ (services (list bash dbus pipewire - shepherd))) + shepherd + update-commands))) (home-environment (packages packages) (services services))))) diff --git a/suweren/update.scm b/suweren/update.scm new file mode 100644 index 0000000..05c0376 --- /dev/null +++ b/suweren/update.scm @@ -0,0 +1,40 @@ +(define-module (suweren update) + #:use-module (gnu home services shells) + #:use-module (gnu services)) + +(define-public update-commands + (let* ((and "&& ") + (collect-garbage "sudo guix gc -d 7d ") + (pull-guix "guix pull ") + (reconfigure-home (string-append "guix home " + "delete-generations 7d ; " + "guix home " + "reconfigure -e " + "'(@ (people marekpasnikowski)" + " home)'")) + (reconfigure-system (string-append "sudo guix system " + "delete-generations 7d ;" + "sudo guix system " + "reconfigure -e " + "'(@ (systems ayase " + "system-configuration) ayase)'")) + + (update-system (string-append pull-guix + and + reconfigure-system + and + reconfigure-home + and + collect-garbage)) + + (aliases `(("collect-garbage" . ,collect-garbage) + ("pull-guix" . ,pull-guix) + ("reconfigure-home" . ,reconfigure-home) + ("reconfigure-system" . ,reconfigure-system) + ("update-system" . ,update-system))) + + (value (home-bash-extension (aliases aliases)))) + + (simple-service 'update-commands + home-bash-service-type + value))) |