 (require 'ar-vsetq)
 (require 'ar-csetq)
+(require 'faces)
 
 (when (display-graphic-p)
   ;; No title. See init.el for initial value.

                                       distance)))
                      (push atom faces))))))
    (delete-dups faces))))

        (when (and (stringp g)
                   (not (string= "unspecified" g)))
          (cl-return g))))))

(defun ar/list-faces--for-color (color &optional distance)
  "Return all faces with COLOR as fg or bg withing DISTANCE."
