From 168bb6380938b7e28116fdf3ec7429751b30484d Mon Sep 17 00:00:00 2001 From: Mauro Aranda Date: Mon, 6 Nov 2023 08:04:41 -0300 Subject: [PATCH] Improve tags in custom-icon widget * lisp/cus-edit.el (custom-icon-value-create): Give more informative tags. (Bug#57113) --- lisp/cus-edit.el | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 4b8de6b9468..bebb2f6f681 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -5477,12 +5477,22 @@ custom-icon-value-create (symbol (widget-get widget :value)) (tag (widget-get widget :tag)) (type '(repeat - (list (choice (const :tag "Images" image) + :tag "Specifications by type" + (list :tag "Single specification" + (choice :tag "Type" + (const :tag "Images" image) (const :tag "Colorful Emojis" emoji) (const :tag "Monochrome Symbols" symbol) (const :tag "Text Only" text)) - (repeat string) - plist))) + (repeat :tag "Alternatives" + (string :tag "File or text")) + (plist :tag "Extra properties" + :key-type (choice + (const :tag "Face" :face) + (const :tag "Height" :height) + (const :tag "Width" :width) + (const :tag "Rotation" :rotation) + (symbol :tag "Key")))))) (prefix (widget-get widget :custom-prefix)) (last (widget-get widget :custom-last)) (style (widget-get widget :custom-style)) -- 2.34.1