[elpa] externals/calibre 832e91827d 63/76: Move calibre--library to calibre-util

[ELPA Syncer]

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

    Move calibre--library to calibre-util
    
    * calibre-util.el: Require calibre to fix byte compilation warning.
    (calibre--library): Create/Move from somewhere.
    (calibre-select-library): Declare function.
---
 calibre-util.el | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/calibre-util.el b/calibre-util.el
index 03974626a1..6c171422dc 100644
--- a/calibre-util.el
+++ b/calibre-util.el
@@ -23,6 +23,7 @@
 ;; circular dependency issues.
 
 ;;; Code:
+(require 'calibre)
 (require 'calibre-book)
 
 (defun calibre-util-find-book (book seq)
@@ -76,5 +77,16 @@ discard any modifications."
      (unwind-protect (progn ,@body)
        (calibre-library--restore-marks marks))))
 
+(defvar calibre--library nil
+  "The active library.")
+
+(declare-function calibre-select-library "calibre-core.el")
+(defun calibre--library ()
+  "Return the active library.
+If no library is active, prompt the user to select one."
+  (unless calibre--library
+    (calibre-select-library))
+  (alist-get calibre--library calibre-libraries nil nil #'string=))
+
 (provide 'calibre-util)
 ;;; calibre-util.el ends here