[elpa] externals/calibre c6d0201342 09/10: Capture calibredb output

[ELPA Syncer]

branch: externals/calibre
commit c6d02013423dec09c97235503f3c17416865ff73
Author: Kjartan Óli Ágústsson <kjartanoli@disroot.org>
Commit: Kjartan Óli Ágústsson <kjartanoli@disroot.org>

    Capture calibredb output
    
    * calibre-exec.el (calibre-exec--process-sentinel): Kill the process
    buffer if execution was successful.  This ensures that only the output
    of the failed command is present in the output buffer.
    (calibre-exec--execute): Call make-process with a :buffer argument.
---
 calibre-exec.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/calibre-exec.el b/calibre-exec.el
index 1c229ab4f6..c51ac1553b 100644
--- a/calibre-exec.el
+++ b/calibre-exec.el
@@ -31,7 +31,9 @@
 EVENT is the process event, see Info node
 `(elisp)Sentinels'"
   (if (string= event "finished\n")
-      (calibre-library--refresh t)
+      (progn
+        (kill-buffer "*calibre*")
+        (calibre-library--refresh t))
     (error "Calibre process failed %S" event))
   (if calibre-exec--commands
       (calibre-exec--next-command)
@@ -46,6 +48,7 @@ calibredb.  SENTINEL is a process sentinel to install."
     (make-process
      :name "calibre"
      :command `(,calibre-calibredb-executable "--with-library" 
,(calibre--library) ,@args)
+     :buffer (get-buffer-create "*calibre*")
      :sentinel sentinel)))
 
 (defun calibre-exec--next-command ()