[elpa] externals/calibre 1c0bf191d5 35/76: Refresh Library buffer when calibre-library-columns is changed

[ELPA Syncer]

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

    Refresh Library buffer when calibre-library-columns is changed
    
    * calibre-db.el (calibre-library-columns): Move from calibre.el.
    Add explicit :group.
    Add :set which makes sure the Library buffer is refreshed when
    calibre-library-columns is modified.
    * calibre.el (calibre-library-columns): Move to calibre-db.el.
---
 calibre-db.el | 31 +++++++++++++++++++++++++++++++
 calibre.el    | 26 --------------------------
 2 files changed, 31 insertions(+), 26 deletions(-)

diff --git a/calibre-db.el b/calibre-db.el
index 60cd02163e..9d43190d5c 100644
--- a/calibre-db.el
+++ b/calibre-db.el
@@ -153,6 +153,37 @@ If FORCE is non-nil fetch book data from the database."
                       (calibre--books force)))
         (tabulated-list-print)))))
 
+(defcustom calibre-library-columns '((id . 4)
+                                     (title . 35)
+                                     (authors . 20)
+                                     (publishers . 10)
+                                     (series . 15)
+                                     (series-index . 3)
+                                     (tags . 10)
+                                     (formats . 10))
+  "The metadata fields to display in the library buffer.
+Each entry is a key identifying a metadata field and the width that
+column should have."
+  :type '(repeat (cons
+                  :tag "Column"
+                  (choice
+                   :tag "Attribute"
+                   (const :tag "ID" id)
+                   (const :tag "Title" title)
+                   (const :tag "Author(s)" authors)
+                   (const :tag "Publisher(s)" publishers)
+                   (const :tag "Series" series)
+                   (const :tag "Series Index" series-index)
+                   (const :tag "Tags" tags)
+                   (const :tag "Formats" formats))
+                  (integer :tag "Width")))
+  :set (lambda (symbol value)
+         (set-default symbol value)
+         (calibre-library--set-header)
+         (calibre-library--refresh))
+  :package-version '("calibre" . "0.1.0")
+  :group 'calibre)
+
 (defun calibre-library--set-header ()
   "Set the header of the Library buffer."
   (setf tabulated-list-format (calibre-library--header-format)))
diff --git a/calibre.el b/calibre.el
index b33531dbfb..bc4cdb6c9c 100644
--- a/calibre.el
+++ b/calibre.el
@@ -46,32 +46,6 @@
                                    (directory :tag "Location")))
   :package-version '("calibre" . "0.1.0"))
 
-(defcustom calibre-library-columns '((id . 4)
-                                     (title . 35)
-                                     (authors . 20)
-                                     (publishers . 10)
-                                     (series . 15)
-                                     (series-index . 3)
-                                     (tags . 10)
-                                     (formats . 10))
-  "The metadata fields to display in the library buffer.
-Each entry is a key identifying a metadata field and the width that
-column should have."
-  :type '(repeat (cons
-                  :tag "Column"
-                  (choice
-                   :tag "Attribute"
-                   (const :tag "ID" id)
-                   (const :tag "Title" title)
-                   (const :tag "Author(s)" authors)
-                   (const :tag "Publisher(s)" publishers)
-                   (const :tag "Series" series)
-                   (const :tag "Series Index" series-index)
-                   (const :tag "Tags" tags)
-                   (const :tag "Formats" formats))
-                  (integer :tag "Width")))
-  :package-version '("calibre" . "0.1.0"))
-
 (defun calibre--library-names ()
   "Return a list of the names of defined libraries."
   (mapcar #'car calibre-libraries))