branch: externals/calibre
commit 188a3da504693bca40453b3baa2c9efb857b1d70
Author: Kjartan Óli Ágústsson <[email protected]>
Commit: Kjartan Óli Ágústsson <[email protected]>
Add functions to add and remove books
* calibre-library.el
(calibre-library-add-book,
calibre-library-add-books,
calibre-remove-books,
calibre-library--process-sentinel,
calibre-library--execute): Created
---
calibre-library.el | 35 +++++++++++++++++++++++++++++++++++
1 file changed, 35 insertions(+)
diff --git a/calibre-library.el b/calibre-library.el
index a51e3fde23..f74d94e4dc 100644
--- a/calibre-library.el
+++ b/calibre-library.el
@@ -32,6 +32,41 @@
(calibre--books)))
(tabulated-list-print))))
+;;;###autoload
+(defun calibre-library-add-book (file)
+ "Add FILE to the Calibre library."
+ (interactive "f")
+ (unless (executable-find "calibredb"))
+ (calibre-add-books (list file)))
+
+(defun calibre-library-add-books (files)
+ "Add FILES to the Calibre library."
+ (calibre-library--execute `("add" ,@(mapcar #'expand-file-name files))))
+
+(defun calibre-remove-books (books)
+ "Remove BOOKS from the Calibre library."
+ (let ((ids (mapcar #'int-to-string (mapcar #'calibre-book-id books))))
+ (calibre-library--execute `("remove" ,(string-join ids ",")))))
+
+(defun calibre-library--process-sentinel (_ event)
+ "Process filter for Calibre library operations.
+EVENT is the process event, see Info node
+`(elisp)Sentinels'"
+ (if (string= event "finished\n")
+ (if (get-buffer calibre-library-buffer)
+ (calibre-library--refresh))
+ (error "Calibre process failed %S" event)))
+
+(cl-defun calibre-library--execute (args &optional (sentinel
#'calibre-library--process-sentinel))
+ "Execute calibredb with arguments ARGS.
+ARGS should be a list of strings. SENTINEL is a process sentinel to install."
+ (if (not (executable-find calibre-calibredb-executable))
+ (error "Could not find calibredb")
+ (make-process
+ :name "calibre"
+ :command `("calibredb" "--with-library" ,calibre-library-dir ,@args)
+ :sentinel sentinel)))
+
(defun calibre-library-mark-remove (&optional _num)
"Mark a book for removal and move to the next line."
(interactive "p" calibre-library-mode)
