commit 5f298dc8c020bb5f2f28b02c949c6db3629bfc41 parent be281ea8291bd94acf31883b5a84d12b6a89066b Author: vin <git@vineetk.net> Date: Tue, 28 Apr 2026 16:04:41 -0400 files/emacs: add guix reconfigure helper functions Diffstat:
| M | epistemia/files/emacs/.config/emacs/init.el | | | 19 | ++++++++++++++++++- |
1 file changed, 18 insertions(+), 1 deletion(-)
diff --git a/epistemia/files/emacs/.config/emacs/init.el b/epistemia/files/emacs/.config/emacs/init.el @@ -366,9 +366,26 @@ (use-package geiser) (use-package geiser-guile) -;; TODO: Guix.el -- to replace the guix cli +;; Guix.el -- to replace the guix cli (TODO replacement for guix shell via eshell) (use-package guix) +(defun vin/guix-system-reconfigure () + "Runs `guix system reconfigure` to reconfigure the current system." + (interactive) + (let* ((hostname (car (split-string (system-name) "\\."))) + (cfgdir "/data/src/public/guixsd-config")) + (message (format "Running guix system reconfigure for %s" hostname)) + (async-shell-command (format "sudo guix system reconfigure -L %s --skip-checks %s/epistemia/systems/%s.scm" + cfgdir cfgdir hostname)))) + +(defun vin/guix-home-reconfigure () + "Runs `guix home reconfigure` to reconfigure the current user's profile." + (interactive) + (let* ((cfgdir "/data/src/public/guixsd-config")) + (message "Running guix home reconfigure") + (async-shell-command (format "guix home reconfigure -L %s %s/epistemia/home/config.scm" + cfgdir cfgdir)))) + ;; TODO: skeletor.el remake my templates? at least for org-mode (use-package skeletor)