From 631f07b4094d2e024d83cadb9cc2758982c2716b Mon Sep 17 00:00:00 2001 From: Pierre Neidhardt Date: Sat, 14 Nov 2020 11:17:15 +0100 Subject: [PATCH] Guix: Message about database at the right place. --- helm-system-packages-guix.el | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) diff --git a/helm-system-packages-guix.el b/helm-system-packages-guix.el index 428d046..be9a9c6 100644 --- a/helm-system-packages-guix.el +++ b/helm-system-packages-guix.el @@ -106,13 +106,14 @@ Requirements: Return the REPL output (including the error output) as a string." (let ((temp-file)) (unwind-protect - (progn + (let ((inhibit-message t)) + ;; Inhibit file saving message of temp-file since it's an + ;; implementation detail. (setq temp-file (make-temp-file "helm-system-packages-guix")) (with-temp-buffer (dolist (f (cons form more-forms)) (insert (helm-system-packages-guix-el->scheme-syntax f))) (write-region (point-min) (point-max) temp-file)) - (message "Building package database...") (with-output-to-string (with-current-buffer standard-output (process-file "guix" nil '(t t) nil "repl" temp-file)))) @@ -180,11 +181,13 @@ See `helm-system-packages-guix-database-index'.") (defun helm-system-packages-guix-get-database () (let* ((index (helm-system-packages-guix-database-index))) (or (gethash index helm-system-packages-guix--databases) - (let ((result (cl-sort - (read (helm-system-packages-generate-database)) - #'string< :key #'car))) - (puthash index result helm-system-packages-guix--databases) - result)))) + (progn + (message "Building package database...") + (let ((result (cl-sort + (read (helm-system-packages-generate-database)) + #'string< :key #'car))) + (puthash index result helm-system-packages-guix--databases) + result))))) (defun helm-system-packages-guix-cache (display-list) "Cache all package names with descriptions. "