I have code to change default color theme. I prefer this way because I add more classes then default font-lock.
(defmacro /construct-face (name comment &rest args)
"Define face and specify attributes."
(list 'progn
(list 'defface name nil comment)
(nconc (list 'set-face-attribute (list 'quote name) nil) args)))
(/construct-face ⋅function-name "Face to highlight functions."
:foreground "SlateBlue")
(setq font-lock-function-name-face '⋅function-name)
(/construct-face ⋅comment "Face to display comments"
:foreground "gray20"
:bold t)
(setq font-lock-comment-face '⋅comment)
Weirdness is that comment colors became gray, but function's names did not became purple. What is the difference and what should I try to check?