From 9eab7882252b0d92373b9834294e04418c93e820 Mon Sep 17 00:00:00 2001 From: Quentin Aristote Date: Sat, 20 Nov 2021 14:48:31 +0100 Subject: correct and add interactive message to update-entry --- local/bibli-paris/bibli-paris.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/local/bibli-paris/bibli-paris.el b/local/bibli-paris/bibli-paris.el index 9d250ce..1a4d2e5 100644 --- a/local/bibli-paris/bibli-paris.el +++ b/local/bibli-paris/bibli-paris.el @@ -240,10 +240,14 @@ at the central library." ;;;###autoload (defun bibli-paris/update-entry () "Update the schedule and quote of the entry at point." - (interactive + (interactive) (deferred:$ + (deferred:call 'message + "Fetching holdings for %s (%s) ..." + (bibli-paris/get-entry-title) + (bibli-paris/get-entry-author)) (bibli-paris/fetch-entry-holdings-by-id (bibli-paris/get-entry-recnum)) - (deferred:nextc it 'bibli-paris/update-entry-from)))) + (deferred:nextc it 'bibli-paris/update-entry-from))) (defun bibli-paris/async-update-entries-at-points (pom-recnum-seq) "Update all entries specified by their positions and record numbers in -- cgit v1.2.3