branch: externals/calibre
commit a750735b8905d14244646d4f615da2ccfc2d6d51
Author: Kjartan Óli Ágústsson <[email protected]>
Commit: Kjartan Óli Ágústsson <[email protected]>
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)
