[elpa] externals/calibre b237fd2e5e 05/10: Allow searching by title

[ELPA Syncer]

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

    Allow searching by title
    
    * calibre-core.el (calibre--get-filter-items): Allow filtering by title.
    (calibre-core--get-titles, calibre-cli--get-titles): Create
    (calibre-cli--get-series): Adjust indentation.
    * calibre-db.el (calibre-db--get-titles, calibre-db--get-title-books):
    Create
    * calibre-search.el (calibre-library-search-title,
    calibre-search-chose-title): Create
---
 calibre-core.el   | 15 +++++++++++++--
 calibre-db.el     | 11 +++++++++++
 calibre-search.el |  3 +++
 3 files changed, 27 insertions(+), 2 deletions(-)

diff --git a/calibre-core.el b/calibre-core.el
index 95131de047..ff29f73641 100644
--- a/calibre-core.el
+++ b/calibre-core.el
@@ -215,6 +215,7 @@ BOOK is a `calibre-book'."
                            filters)))
     (seq-let (_ field value) filter
       (cl-case field
+        (title (calibre-core--interface get-title-books value))
         (author (calibre-core--interface get-author-books value))
         (tag (calibre-core--interface get-tag-books value))
         (publisher (calibre-core--interface get-publisher-books value))
@@ -245,6 +246,10 @@ FILTERS should be a list of vectors, for the exact 
contents see
                                         books)
                     books))))
 
+(defun calibre-core--get-titles ()
+  "Return a list of the titles in the active library."
+  (calibre-core--interface get-titles))
+
 (defun calibre-core--get-authors ()
   "Return a list of the authors in the active library."
   (calibre-core--interface get-authors))
@@ -269,6 +274,12 @@ FILTERS should be a list of vectors, for the exact 
contents see
 ;; These functions should be in calibre-cli.el, but they require
 ;; calibre--books because the calibredb interface does not expose the
 ;; ability get this information.
+(defun calibre-cli--get-titles ()
+  "Return a list of the titles in the active library."
+  (cl-remove-duplicates
+   (mapcar #'calibre-book-title (calibre--books))
+   :test #'string=))
+
 (defun calibre-cli--get-authors ()
   "Return a list of the authors in the active library."
   (cl-reduce #'cl-union (mapcar #'calibre-book-authors (calibre--books))))
@@ -284,8 +295,8 @@ FILTERS should be a list of vectors, for the exact contents 
see
 (defun calibre-cli--get-series ()
   "Return a list of the series in the active library."
   (remq nil (cl-remove-duplicates
-            (mapcar #'calibre-book-series (calibre--books))
-            :test #'string=)))
+             (mapcar #'calibre-book-series (calibre--books))
+             :test #'string=)))
 
 (defun calibre-cli--get-publishers ()
   "Return a list of the publishers in the active library."
diff --git a/calibre-db.el b/calibre-db.el
index 0ea6b2336a..26ba2d1809 100644
--- a/calibre-db.el
+++ b/calibre-db.el
@@ -88,6 +88,11 @@ WHERE books.id = ?"
                                "SELECT format FROM data WHERE book = ?"
                                `[,id]))))
 
+(defun calibre-db--get-titles ()
+  "Return a list of the titles in the active library."
+  (flatten-list (sqlite-select (calibre--db)
+                               "SELECT title FROM books;")))
+
 (defun calibre-db--get-authors ()
   "Return a list of the authors in the active library."
   (flatten-list (sqlite-select (calibre--db)
@@ -138,6 +143,12 @@ FROM books
 LEFT JOIN books_series_link sl ON books.id = sl.book
 LEFT JOIN series ON sl.series = series.id;"))))
 
+(defun calibre-db--get-title-books (title)
+  "Return the id's of books whose title is TITLE."
+  (flatten-list (sqlite-select (calibre--db)
+                               "SELECT id FROM books WHERE title = ?"
+                               `[,title])))
+
 (defun calibre-db--get-author-books (author)
   "Return the id's of books written by AUTHOR."
   (flatten-list (sqlite-select (calibre--db)
diff --git a/calibre-search.el b/calibre-search.el
index c4facae03b..57067e430e 100644
--- a/calibre-search.el
+++ b/calibre-search.el
@@ -45,6 +45,7 @@ will not be appended to the calibre-db--get-FIELD function's 
name."
                                         field
                                         (if plural "" "s")))))))
 
+(calibre-search--choice-function "title")
 (calibre-search--choice-function "author" t)
 (calibre-search--choice-function "publisher")
 (calibre-search--choice-function "tag")
@@ -68,6 +69,7 @@ ARGS is the argument list of a transient command."
                                      calibre-library--filters))
      (calibre-library--refresh)))
 
+(calibre-library--search-function "title")
 (calibre-library--search-function "author")
 (calibre-library--search-function "publisher")
 (calibre-library--search-function "series")
@@ -87,6 +89,7 @@ ARGS is the argument list of a transient command."
   ["Arguments"
    ("-e" "Exclude" "--exclude")]
   ["Search"
+   ("T" "Title" calibre-library-search-title)
    ("a" "Author" calibre-library-search-author)
    ("p" "Publisher" calibre-library-search-publisher)
    ("t" "Tag" calibre-library-search-tag)