Thoroughly adapt to Modus v4

😵‍💫

Trying to get back the sense of sharp contrast I had before.

Snippets from *scratch* in case I need to recompute some of these:

(defun my/color-hsl-to-rgbhex (h s l)
  (apply
   'color-rgb-to-hex
   `(,@(color-hsl-to-rgb h s l) 2)))

(defun my/color-hs1-l2 (c1 c2)
  (pcase-let ((`(,h1 ,s1 _) (apply 'color-rgb-to-hsl
                                 (color-name-to-rgb c1)))
              (`(_ _ ,l2) (apply 'color-rgb-to-hsl
                                   (color-name-to-rgb c2))))
    (message "hue %.3f with s %.3f l %.3f" h1 s1 l2)
    (apply 'color-rgb-to-hex
           `(,@(color-hsl-to-rgb h1 s1 l2) 2))))

(defun my/modus-rgb (key palette)
  (let ((value (car (alist-get key palette))))
    (if (stringp value)
        value
      (car (alist-get value palette)))))

(list-colors-display
 (list (my/modus-rgb 'bg-completion modus-vivendi-palette)
       (my/color-hs1-l2 (my/modus-rgb 'bg-completion modus-vivendi-palette)
                        "#303030")
       (my/color-hs1-l2 (my/modus-rgb 'bg-completion modus-vivendi-palette)
                        "#202020")))

(pcase-dolist (`(,sym ,val)
               modus-vivendi-palette)
  (when-let ((color (and (string-match "bg-\\(.*\\)-subtle" (symbol-name sym))
                         (match-string 1 (symbol-name sym))))
             (darker (color-darken-name val 40.0)))
    (message "%s (%s): %.2f"
             color
             val
             (modus-themes-contrast val (car (alist-get (intern color) modus-vivendi-palette))))
    (message "%s (%s): %.2f"
             color
             darker
             (modus-themes-contrast darker
                                    (car (alist-get (intern color) modus-vivendi-palette))))))

(dolist (diffkind '(removed changed))
  (dolist (suffix '("" "-faint" "-refine"))
    (insert (format "(bg-%s%s \"%s\")\n"
                    ))))

(list-colors-display
 (seq-map (pcase-lambda (`(,h ,l))
            (apply 'color-rgb-to-hex `(,@(color-hsl-to-rgb h 1.0 l) 2)))
          '((0.00 0.04)
            (0.00 0.08)
            (0.00 0.16)
            (0.59 0.04)
            (0.59 0.08)
            (0.59 0.16)
            (0.12 0.04)
            (0.12 0.08)
            (0.12 0.16))))

0 files changed, 0 insertions, 0 deletions