From ff05a492f480dbd3b9b7b5e215b563486d3939e3 Mon Sep 17 00:00:00 2001 From: Pierre Neidhardt Date: Thu, 4 Feb 2021 21:06:05 +0100 Subject: [PATCH] Emacs/Guix: Don't dump channel specs anymore. Guix can now generate them from an existing profile. --- .emacs.d/lisp/init-guix.el | 16 +--------------- 1 file changed, 1 insertion(+), 15 deletions(-) diff --git a/.emacs.d/lisp/init-guix.el b/.emacs.d/lisp/init-guix.el index d653c7c5..4e2bdc95 100644 --- a/.emacs.d/lisp/init-guix.el +++ b/.emacs.d/lisp/init-guix.el @@ -145,12 +145,6 @@ If MANIFEST is nil, it is queried from the manifests found in `ambrevar/guix-man (dolist (mode '(normal insert)) (evil-global-set-key mode (kbd "C-x c g") #'ambrevar/guix-edit-manifest))) -(defun ambrevar/guix-save-channel-specs (dest) - "Save current Guix channel specification to DEST." - (call-process "guix" - nil `(:file ,dest) nil - "describe" "--format=channels")) - (defun ambrevar/guix-find-channel-from-manifest (pattern) "Return the channel specification file matching PATTERN in `ambrevar/guix-channel-spec-directory'." @@ -219,15 +213,7 @@ If MANIFEST is nil, it is queried from the manifests found in `ambrevar/guix-man "/" manifest-name))) " "))) manifests) - " ; ")) - (unless channel - ;; TODO: Only do this when manifest install has succeeded. - (dolist (manifest-pair manifests) - (let ((manifest-name (cl-first manifest-pair))) - (ambrevar/guix-save-channel-specs - (format "%s/guix-%s-channels.scm" - ambrevar/guix-channel-spec-directory - manifest-name))))))) + " ; ")))) (defun ambrevar/guix-install-manifest (&optional manifest channel) "Install Guix manifest to `ambrevar/guix-extra-profiles'.