chenyanming / calibredb.el

Emacs calibre client - An Ebook Management Solution in Emacs.
GNU General Public License v3.0
323 stars 17 forks source link

error: (wrong-type-argument sequencep calibredb-virtual-library-alist) #56

Closed declantsien closed 2 years ago

declantsien commented 2 years ago

Is this a mistake or am I using it wrong? Seems like a simple fix

  mapcar(cdr calibredb-virtual-library-alist)
  (-contains\? (mapcar #'cdr 'calibredb-virtual-library-alist) calibredb-search-filter)
  (if (-contains\? (mapcar #'cdr 'calibredb-virtual-library-alist) calibredb-search-filter) nil (setq calibredb-virtual-library-name calibredb-virtual-library-default-name))
  (let ((inhibit-read-only t) (standard-output (current-buffer))) (erase-buffer) (if (-contains\? (mapcar #'cdr 'calibredb-virtual-library-alist) calibredb-search-filter) nil (setq calibredb-virtual-library-name calibredb-virtual-library-default-name)) (calibredb-search--update-list) (let ((--dolist-tail-- calibredb-search-entries)) (while --dolist-tail-- (let ((entry (car --dolist-tail--))) (funcall calibredb-search-print-entry-function entry) (insert "\n") (setq --dolist-tail-- (cdr --dolist-tail--))))) (goto-char (point-min)) (setq calibredb-search-last-update (float-time)))
  (progn (let ((inhibit-read-only t) (standard-output (current-buffer))) (erase-buffer) (if (-contains\? (mapcar #'cdr 'calibredb-virtual-library-alist) calibredb-search-filter) nil (setq calibredb-virtual-library-name calibredb-virtual-library-default-name)) (calibredb-search--update-list) (let ((--dolist-tail-- calibredb-search-entries)) (while --dolist-tail-- (let ((entry (car --dolist-tail--))) (funcall calibredb-search-print-entry-function entry) (insert "\n") (setq --dolist-tail-- (cdr --dolist-tail--))))) (goto-char (point-min)) (setq calibredb-search-last-update (float-time))))
  (if force (progn (let ((inhibit-read-only t) (standard-output (current-buffer))) (erase-buffer) (if (-contains\? (mapcar #'cdr 'calibredb-virtual-library-alist) calibredb-search-filter) nil (setq calibredb-virtual-library-name calibredb-virtual-library-default-name)) (calibredb-search--update-list) (let ((--dolist-tail-- calibredb-search-entries)) (while --dolist-tail-- (let ((entry ...)) (funcall calibredb-search-print-entry-function entry) (insert "\n") (setq --dolist-tail-- (cdr --dolist-tail--))))) (goto-char (point-min)) (setq calibredb-search-last-update (float-time)))))
  (save-current-buffer (set-buffer (calibredb-search-buffer)) (if force (progn (let ((inhibit-read-only t) (standard-output (current-buffer))) (erase-buffer) (if (-contains\? (mapcar #'cdr 'calibredb-virtual-library-alist) calibredb-search-filter) nil (setq calibredb-virtual-library-name calibredb-virtual-library-default-name)) (calibredb-search--update-list) (let ((--dolist-tail-- calibredb-search-entries)) (while --dolist-tail-- (let (...) (funcall calibredb-search-print-entry-function entry) (insert "\n") (setq --dolist-tail-- ...)))) (goto-char (point-min)) (setq calibredb-search-last-update (float-time))))))
  calibredb-search-update(:force)
  calibredb-search-keyword-filter("")
  calibredb-search-refresh-and-clear-filter()
  funcall-interactively(calibredb-search-refresh-and-clear-filter)
  command-execute(calibredb-search-refresh-and-clear-filter)