Tweak dim foregrounds further

(pcase-dolist (`(,sym ,color)
               eighters-palette)
  (when (string-match-p "\\`fg-[a-z]*\\'" (symbol-name sym))
    (when-let* ((sym-dim (intern (concat
                                  (symbol-name sym)
                                  "-dim")))
                (dim-cdr (alist-get sym-dim eighters-palette))
                (new-color (eighters-hsl-to-hex
                            (car (apply 'color-rgb-to-hsl
                                        (color-name-to-rgb color)))
                            0.30 0.60)))
      (message "%s → %s" sym-dim new-color)
      (setcar dim-cdr new-color))))

0 files changed, 0 insertions, 0 deletions