branch: externals/calibre
commit 0e7221461be77e866fc21ec53f2f7e68bd64d7ee
Author: Kjartan Óli Ágústsson <[email protected]>
Commit: Kjartan Óli Ágústsson <[email protected]>
Add ability to use CLI interface instead of SQLite
* calibre-cli.el:
(calibre-cli--get-books):
(calibre-cli--make-book):
(calibre-cli--parse-authors):
(calibre-cli--parse-timestamp):
(calibre-cli--parse-formats):
(calibre-cli--parse-path):
(calibre-cli--parse-file-name):
(calibre-cli--search-operation):
(calibre-cli--get-series-books):
(calibre-cli--get-publisher-books):
(calibre-cli--get-format-books):
(calibre-cli--get-tag-books):
(calibre-cli--get-author-books):
(calibre-cli--get-calibre-cli-books):
Create.
---
calibre-cli.el | 114 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 114 insertions(+)
diff --git a/calibre-cli.el b/calibre-cli.el
new file mode 100644
index 0000000000..2ec96fc128
--- /dev/null
+++ b/calibre-cli.el
@@ -0,0 +1,114 @@
+;;; calibre-cli.el --- Fallback CLI interface when SQLite is not available
-*- lexical-binding: t; -*-
+
+;; Copyright (C) 2023 Kjartan Oli Agustsson
+
+;; This file is part of calibre.el.
+
+;; calibre.el is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; calibre.el is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with calibre.el. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+;; This file contains an interface to calibre using calibredb and JSON
+;; parsing instead of SQLite. This interface is significantly slower
+;; than the SQLite interface, and should therefore only be used when
+;; SQLite support is not available.
+
+;;; Code:
+(require 'calibre)
+(require 'calibre-book)
+(require 'calibre-util)
+
+(defun calibre-cli--get-books ()
+ "Return all books in the Calibre library `calibre-library-dir'."
+ (let ((json (with-temp-buffer
+ (call-process calibre-calibredb-executable
+ nil
+ t
+ nil
+ "list"
+ "--with-library"
+ (calibre--library)
+ "-f"
+ "all"
+ "--for-machine")
+ (goto-char (point-min))
+ (json-parse-buffer :object-type 'alist :array-type 'list))))
+ (mapcar #'calibre-cli--make-book json)))
+
+(defun calibre-cli--make-book (json)
+ "Make a `calibre-book' from JSON."
+ (let-alist json
+ (calibre-book :id .id
+ :title .title
+ :authors (calibre-cli--parse-authors .authors)
+ :publisher .publisher
+ :series .series
+ :series-index .series_index
+ :timestamp (calibre-cli--parse-timestamp .timestamp)
+ :pubdate (calibre-cli--parse-timestamp .pubdate)
+ :last-modified (calibre-cli--parse-timestamp .last_modified)
+ :tags .tags
+ :formats (calibre-cli--parse-formats .formats)
+ :path (calibre-cli--parse-path .formats)
+ :file-name (calibre-cli--parse-file-name .formats))))
+
+(defun calibre-cli--parse-authors (authors)
+ "Parse AUTHORS a string, into a list of authors.
+AUTHORS should be a comma separated string."
+ (string-split authors ","))
+
+(defun calibre-cli--parse-timestamp (timestamp)
+ "Parse TIMESTAMP into a Lisp timestamp."
+ (iso8601-parse timestamp))
+
+(defun calibre-cli--parse-formats (files)
+ "Return the formats of the book whose files are FILES."
+ (mapcar (lambda (f)
+ (intern (file-name-extension f)))
+ files))
+
+(defun calibre-cli--parse-path (files)
+ "Return the path within the library of the book whose files are FILES."
+ (string-replace (calibre--library)
+ ""
+ (file-name-directory (car files))))
+
+(defun calibre-cli--parse-file-name (files)
+ "Return the File Name of the book whose files are FILES."
+ (file-name-base (car files)))
+
+(defmacro calibre-cli--search-operation (field)
+ "Create a function to search for books matching FIELD."
+ `(defun ,(intern (format "calibre-cli--get-%s-books" field)) (,field)
+ (with-temp-buffer
+ (call-process calibre-calibredb-executable
+ nil
+ t
+ nil
+ "search"
+ "--with-library"
+ (calibre--library)
+ (format ,(format "%s:%%s" field) ,field))
+ (mapcar #'cl-parse-integer
+ (string-split
+ (buffer-substring-no-properties (point-min) (point-max))
+ ",")))))
+
+(calibre-cli--search-operation series)
+(calibre-cli--search-operation publisher)
+(calibre-cli--search-operation format)
+(calibre-cli--search-operation tag)
+(calibre-cli--search-operation author)
+
+(provide 'calibre-cli)
+;;; calibre-cli.el ends here
