[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#45829: 28.0.50; Some tweaks to the color widget, from wid-edit+.el
From: |
Mauro Aranda |
Subject: |
bug#45829: 28.0.50; Some tweaks to the color widget, from wid-edit+.el |
Date: |
Tue, 12 Jan 2021 19:23:03 -0300 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/28.0.50 (gnu/linux) |
tags 45829 patch
quit
(CCing Drew)
I attach one patch with the changes, and one patch with a test for the
new :match function.
Opinions?
>From 8a3a2f8b92708175c62a3b4efd7eb00228c5011a Mon Sep 17 00:00:00 2001
From: Drew Adams <drew.adams@oracle.com>
Date: Tue, 12 Jan 2021 19:14:19 -0300
Subject: [PATCH] Tweaks to the color widget (Bug#45829)
* lisp/wid-edit.el (widget-color-match, widget-color-validate): New
functions.
(color): Use the new functions. Base size on longest defined color
name.
---
lisp/wid-edit.el | 18 ++++++++++++++++--
1 file changed, 16 insertions(+), 2 deletions(-)
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index 8b10d71dcb..19e58f5345 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -4024,17 +4024,18 @@ widget-boolean-prompt-value
;;; The `color' Widget.
-;; Fixme: match
(define-widget 'color 'editable-field
"Choose a color name (with sample)."
:format "%{%t%}: %v (%{sample%})\n"
:value-create 'widget-color-value-create
- :size 10
+ :size (1+ (apply #'max (mapcar #'length (defined-colors))))
:tag "Color"
:value "black"
:completions (or facemenu-color-alist (defined-colors))
:sample-face-get 'widget-color-sample-face-get
:notify 'widget-color-notify
+ :match #'widget-color-match
+ :validate #'widget-color-validate
:action 'widget-color-action)
(defun widget-color-value-create (widget)
@@ -4083,6 +4084,19 @@ widget-color-notify
(overlay-put (widget-get widget :sample-overlay)
'face (widget-apply widget :sample-face-get))
(widget-default-notify widget child event))
+
+(defun widget-color-match (_widget value)
+ "Non-nil if VALUE is a defined color or a RGB hex string."
+ (and (stringp value)
+ (or (color-defined-p value)
+ (string-match-p "^#\\([[:xdigit:]]\\{3\\}\\)\\{1,4\\}$" value))))
+
+(defun widget-color-validate (widget)
+ "Check that WIDGET's value is a valid color."
+ (let ((value (widget-value widget)))
+ (unless (widget-color-match widget value)
+ (widget-put widget :error (format "Invalid color: %S" value))
+ widget)))
;;; The Help Echo
--
2.29.2
>From 5d6bc24b3b16307361d6411e1b4f1e3735664125 Mon Sep 17 00:00:00 2001
From: Mauro Aranda <maurooaranda@gmail.com>
Date: Tue, 12 Jan 2021 19:19:21 -0300
Subject: [PATCH] Add test for the widget-color-match function (Bug#45829)
* test/lisp/wid-edit-tests.el (widget-test-color-match): New test.
---
test/lisp/wid-edit-tests.el | 11 +++++++++++
1 file changed, 11 insertions(+)
diff --git a/test/lisp/wid-edit-tests.el b/test/lisp/wid-edit-tests.el
index 17fdfefce8..c410b8e367 100644
--- a/test/lisp/wid-edit-tests.el
+++ b/test/lisp/wid-edit-tests.el
@@ -322,4 +322,15 @@ widget-test-widget-move
(widget-backward 1)
(should (string= "Second" (widget-value (widget-at))))))
+(ert-deftest widget-test-color-match ()
+ "Test that the :match function for the color widget works."
+ (let* ((widget (widget-convert 'color)))
+ (should (widget-apply widget :match "red"))
+ (should (widget-apply widget :match "#fa3"))
+ (should (widget-apply widget :match "#ff0000"))
+ (should (widget-apply widget :match "#111222333"))
+ (should (widget-apply widget :match "#111122223333"))
+ (should-not (widget-apply widget :match "someundefinedcolorihope"))
+ (should-not (widget-apply widget :match "#11223"))))
+
;;; wid-edit-tests.el ends here
--
2.29.2
- bug#45829: 28.0.50; Some tweaks to the color widget, from wid-edit+.el, Mauro Aranda, 2021/01/12
- bug#45829: 28.0.50; Some tweaks to the color widget, from wid-edit+.el,
Mauro Aranda <=
- bug#45829: 28.0.50; Some tweaks to the color widget, from wid-edit+.el, Basil L. Contovounesios, 2021/01/15
- bug#45829: 28.0.50; Some tweaks to the color widget, from wid-edit+.el, Eli Zaretskii, 2021/01/16
- bug#45829: 28.0.50; Some tweaks to the color widget, from wid-edit+.el, Mauro Aranda, 2021/01/16
- bug#45829: 28.0.50; Some tweaks to the color widget, from wid-edit+.el, Lars Ingebrigtsen, 2021/01/19
- bug#45829: 28.0.50; Some tweaks to the color widget, from wid-edit+.el, Mauro Aranda, 2021/01/19