branch: externals/emms
commit 1989d6abbc27c950ba3493928ae4cdd5133c7dc5
Author: Erica Lina <erical...@proton.me>
Commit: Erica Lina <erical...@proton.me>
update defcustom for covers.
---
emms-browser.el | 15 +++++++++++++--
1 file changed, 13 insertions(+), 2 deletions(-)
diff --git a/emms-browser.el b/emms-browser.el
index 4ddc042b7a..1a1a5d8c5c 100644
--- a/emms-browser.el
+++ b/emms-browser.el
@@ -238,7 +238,12 @@ Can be either a list of small, medium and large images
(large
currently not used), a function which takes a directory and one
of the symbols `small', `medium' or `large', and should return a
path to the cover, or nil to turn off cover loading."
- :type '(choice list function boolean))
+ :type '(choice (list :tag "Cover image names"
+ (string :tag "Small cover")
+ (string :tag "Medium cover")
+ (string :tag "Large cover"))
+ function
+ (const :tag "No cover loading")))
(defcustom emms-browser-covers-file-extensions
'("jpg" "jpeg" "png" "gif" "bmp")
@@ -252,7 +257,13 @@ emms-browser is required."
(defcustom emms-browser-default-covers nil
"A list of default images to use if a cover isn't found."
- :type 'list)
+ :type '(choice (const :tag "No defaults" nil)
+ (list (radio :tag "Small cover" (file :must-match t)
+ (const :tag "No default" nil))
+ (radio :tag "Medium cover" (file :must-match t)
+ (const :tag "No default" nil))
+ (radio :tag "Large cover" (file :must-match t)
+ (const :tag "No default" nil)))))
(defcustom emms-browser-comparison-test
(if (fboundp 'define-hash-table-test)
