Re: "clean" starting point for custom-theme-set-faces

[Alex Kost]

Sam Halliday (2014-09-17 14:00 +0400) wrote:

> Hi all,
>
> I'm creating a custom colour theme for emacs inspired by IntelliJ's Darcula. 
> Work in progress here:
>
>   https://github.com/fommil/unix/blob/master/.emacs.d/lisp/Darkula-theme.el
>
>
> But there are a couple of things that confuse me about emacs faces, even 
> after reading the documentation and I'd appreciate some guidance:
>
> 1. When a theme is loaded, what are the default "inherit" values for all the 
> faces that I'm defining? Is there an implicit "inherit" based on what that 
> face was before the theme was loaded?
>    I've found that I need to override a lot of things with e.g. ":underline 
> nil" when actually I want to be defining my faces from a clean slate, 
> inheriting from "default" without having to explicitly write that.

IIUC you are faced with the old behavior of applying faces that will be
"fixed" in Emacs 24.4.  I wrote something about that here:
<https://github.com/alezost/alect-themes/#emacs-2431-and-earlier>.

> 2. How do I re-use attributes inside custom-theme-set-faces? I can't put the 
> list of faces inside a (let ) because custom-theme-set-faces is expecting one 
> parameter per face. Ideally I'd like to define a bunch of things in some form 
> of data structure so that I don't have to repeat the values, and also so that 
> I can parametrise the theme. (e.g. I could have a function that returns my 
> theme with a permutation on font-lock colours)

I think you can do something like this:

(let ((faces `((default ...)
               (cursor  ...)
               ...)))
  (apply 'custom-theme-set-faces 'Darkula faces))