diff options
| -rw-r--r-- | compat-28.el | 33 |
1 files changed, 17 insertions, 16 deletions
diff --git a/compat-28.el b/compat-28.el index 0c399b4..1b1d6de 100644 --- a/compat-28.el +++ b/compat-28.el @@ -285,22 +285,23 @@ and BLUE, is normalized to have its value in [0,65535]." ;; [0] http://www.nic.funet.fi/pub/X11/X11R4/DOCS/color/Xcms.text ;; [1] https://gitlab.freedesktop.org/xorg/lib/libx11/-/blob/master/src/xcms/LRGB.c#L1392 ((string-match - (rx bos "rgbi:" (* space) - (group (? (or "-" "+")) - (or (: (+ digit) (? "." (* digit))) - (: "." (+ digit))) - (? "e" (? (or "-" "+")) (+ digit))) - "/" (* space) - (group (? (or "-" "+")) - (or (: (+ digit) (? "." (* digit))) - (: "." (+ digit))) - (? "e" (? (or "-" "+")) (+ digit))) - "/" (* space) - (group (? (or "-" "+")) - (or (: (+ digit) (? "." (* digit))) - (: "." (+ digit))) - (? "e" (? (or "-" "+")) (+ digit))) - eos) + ;; (rx bos "rgbi:" (* space) + ;; (group (? (or "-" "+")) + ;; (or (: (+ digit) (? "." (* digit))) + ;; (: "." (+ digit))) + ;; (? "e" (? (or "-" "+")) (+ digit))) + ;; "/" (* space) + ;; (group (? (or "-" "+")) + ;; (or (: (+ digit) (? "." (* digit))) + ;; (: "." (+ digit))) + ;; (? "e" (? (or "-" "+")) (+ digit))) + ;; "/" (* space) + ;; (group (? (or "-" "+")) + ;; (or (: (+ digit) (? "." (* digit))) + ;; (: "." (+ digit))) + ;; (? "e" (? (or "-" "+")) (+ digit))) + ;; eos) + "\\`rgbi:[[:space:]]*\\([+-]?\\(?:[[:digit:]]+\\(?:\\.[[:digit:]]*\\)?\\|\\.[[:digit:]]+\\)\\(?:e[+-]?[[:digit:]]+\\)?\\)/[[:space:]]*\\([+-]?\\(?:[[:digit:]]+\\(?:\\.[[:digit:]]*\\)?\\|\\.[[:digit:]]+\\)\\(?:e[+-]?[[:digit:]]+\\)?\\)/[[:space:]]*\\([+-]?\\(?:[[:digit:]]+\\(?:\\.[[:digit:]]*\\)?\\|\\.[[:digit:]]+\\)\\(?:e[+-]?[[:digit:]]+\\)?\\)\\'" spec) (let ((r (round (* (string-to-number (match-string 1 spec)) 65535))) (g (round (* (string-to-number (match-string 2 spec)) 65535))) |