(require 'munsell-conv)
(require 'munsell-names)

(defun munsell-resolv-color (color)
  (munsell-split color (h v c)
    (munsell-lookup (munsell-round h v c 'round 'round 'round))
    (let ((p (assoc color munsell-named-color-alist)))
      (if p
	  (cdr p)
	color))))

(defadvice modify-frame-parameters (before resolv-color activate)
  (ad-set-arg
   1
   (mapcar
    (lambda (p)
      (if (memq (car p)
       	 '(background-color
       	   foreground-color
       	   cursor-color
       	   mouse-color
       	   border-color))
          (cons
           (car p)
           (munsell-resolv-color (cdr p)))
        p))
           (ad-get-arg 1))))

(provide 'munsell)