files/emacs: add vin/guix-deploy function

1 files changed, 9 insertions, 2 deletions

diff --git a/epistemia/files/emacs/.config/emacs/init.el b/epistemia/files/emacs/.config/emacs/init.el
index 3f4afda..052e191 100644
--- a/epistemia/files/emacs/.config/emacs/init.el
+++ b/epistemia/files/emacs/.config/emacs/init.el
@@ -388,7 +388,7 @@
 (use-package guix)
 
 (defun vin/guix-system-reconfigure ()
-  "Runs `guix system reconfigure` to reconfigure the current system."
+  "Reconfigure the current GuixSD system."
   (interactive)
   (let* ((hostname (car (split-string (system-name) "\\.")))
          (cfgdir "/data/src/public/guixsd-config"))
@@ -397,12 +397,19 @@
                                  cfgdir hostname))))
 
 (defun vin/guix-home-reconfigure ()
-  "Runs `guix home reconfigure` to reconfigure the current user's profile."
+  "Reconfigure the current guix-home profile."
   (interactive)
   (let* ((cfgdir "/data/src/public/guixsd-config"))
     (message "Running guix home reconfigure")
     (async-shell-command (format "guix home reconfigure %s/epistemia/home/config.scm"
                                  cfgdir))))
+(defun vin/guix-deploy ()
+  "Deploy configuration to defined GuixSD servers."
+  (interactive)
+  (let* ((cfgdir "/data/src/public/guixsd-config"))
+    (message "Running guix home reconfigure")
+    (async-shell-command (format "guix deploy %s/epistemia/deploy.scm"
+                                 cfgdir))))
 
 ;; TODO: skeletor.el remake my templates? at least for org-mode
 (use-package skeletor)