Re: Add a hook for color-theme switching

[stardiviner <numbchild@gmail.com>]

On 12/02/2017 12:14 AM, Drew Adams wrote:
> I don't understand the problem.  Are you saying that when
> you switch to another theme (presumably a custom theme)
> the appearance of face `hl-sexp-face' changes?
>
>> So I hope there is a hook for switching color-theme like
>> `color-theme-switch-hook' etc.
> Do you mean that after you switch to another theme you
> want to invoke some code?  What code would you invoke?
> Is the idea just to make face `hl-sexp-face' have or
> keep the appearance you want?
Here is an example showing what I want:

#+begin_src emacs-lisp
(add-hook 'color-theme-load-hook
          (lambda ()
            (set-face-attribute 'hl-sexp-face nil
                                :background (cl-case (alist-get
'background-mode (frame-parameters))
                                              ('light
                                               (color-darken-name
(face-background 'default) 7))
                                              ('dark
                                               (color-lighten-name
(face-background 'default) 4)))
                                )
            ))
#+end_src

Then the custom faces can be changed automatically according the
color-theme switching.