munsell.el

   1 (require 'munsell-conv)
   2 (require 'munsell-names)
   3
   4 (defun munsell-resolv-color (color)
   5   (munsell-split color (h-minor h-major v c)
   6     (munsell-lookup (munsell-round h-minor h-major v c 'round 'round 'round))
   7     (let ((p (assoc color munsell-named-color-alist)))
   8       (if p
   9           (cdr p)
  10         color))))
  11
  12 (defadvice modify-frame-parameters (before resolv-color activate)
  13   (ad-set-arg
  14    1
  15    (mapcar
  16     (lambda (p)
  17       (if (memq (car p)
  18          '(background-color
  19            foreground-color
  20            cursor-color
  21            mouse-color
  22            border-color))
  23           (cons
  24            (car p)
  25            (munsell-resolv-color (cdr p)))
  26         p))
  27            (ad-get-arg 1))))
  28
  29 (provide 'munsell)