Re: set ALL faces to one face

[Emanuel Berg]

Another face that isn't even affected by my function [last] to
set all faces to one color is `gnus-server-closed', no idea
why. `require' the file, as in (require 'gnus-srvr) doesn't
help. A fully autonomous face I guess... other faces for Gnus
are affected, including the close (?) `gnus-server-opened'.

(defun set-all-faces (fg &optional bg weight)
  (let ((faces))
    (mapatoms (lambda (s)
                (when (facep s)
                  (push (symbol-name s) faces) )))
    (dolist (f faces)
      (set-face-attribute (intern f) nil
                          :foreground fg)
                          :background (or bg "black")
                          :weight     (or weight 'normal)) ))
;; (set-all-faces "red")

https://dataswamp.org/~incal/emacs-init/my-faces.el

-- 
underground experts united
http://user.it.uu.se/~embe8573
https://dataswamp.org/~incal