[elpa] externals/calibre a750735b89 33/76: Add ability to revert Library buffer

[ELPA Syncer]

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

    Add ability to revert Library buffer
    
    * calibre-library.el
    (calibre-library--find-book, calibre-library--revert): Create
---
 calibre-library.el | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/calibre-library.el b/calibre-library.el
index 7e5b5db7da..b24919870d 100644
--- a/calibre-library.el
+++ b/calibre-library.el
@@ -93,6 +93,22 @@ ARGS should be a list of strings.  SENTINEL is a process 
sentinel to install."
   (calibre--books t)
   (calibre-library--refresh))
 
+(defun calibre-library--find-book (book)
+  "Move point to the line representing BOOK."
+  (goto-char (point-min))
+        (while (not (or (eobp)
+                        (= (calibre-book-id (tabulated-list-get-id))
+                           (calibre-book-id book))))
+          (forward-line)))
+
+(defun calibre-library--revert ()
+  "Refresh the contents of the Library buffer without moving point."
+  (let ((pos (tabulated-list-get-id)))
+    (calibre-library--refresh t)
+    (if (not pos)
+        (goto-char (point-max))
+      (calibre-library--find-book pos))))
+
 (defun calibre-library-open-book (book)
   "Open BOOK in its preferred format."
   (interactive (list (tabulated-list-get-id)) calibre-library-mode)