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'.