Swap two faces

Swap two faces

[João Távora]

Does anyone know a good way to swap the attribute values of two emacs faces?
The following (naive) code doesn't seem to work:

(defun joaot/swap-faces (a b)
  (let* ((face-plist-fn (lambda (sym)
                          (loop for (prop val) on (symbol-plist sym) by #'cddr
                                when (string-match "^face\\($\\|-\\)"
(symbol-name prop))
                                append (list prop val))))
         (set-props-fn (lambda (props sym)
                         (loop for (prop val) on props by #'cddr
                               do (put sym prop val))))
         (a-props (funcall face-plist-fn a))
         (b-props (funcall face-plist-fn b)))
    (funcall set-props-fn a-props b)
    (funcall set-props-fn b-props a)))

the properties are swapped but the faces itself apparently remain
intact according
to `describe-face'.

Thanks,
-- 
João Távora

Re: Swap two faces

[Emanuel Berg]

Mr. Távora <joaotavora@gmail.com> writes:

> Does anyone know a good way to swap the attribute values of two
> Emacs faces?

Check out this function:

(copy-face OLD-FACE NEW-FACE &optional FRAME NEW-FRAME)

Perhaps you need a temporary face to make the switch, as well.

-- 
Emanuel Berg - programmer (hire me! CV below)
computer projects: http://user.it.uu.se/~embe8573
internet activity: http://home.student.uu.se/embe8573

Re: Swap two faces

[João Távora]

Thanks,

I'll try it out. According to the docstring though, it seems this
function shouldn't won't swap the customization options.

But maybe combined with my plist-swapping code it will,
I'll try it out.

Bye,
Joao

On Wed, Jul 17, 2013 at 8:45 AM, Emanuel Berg <embe8573@student.uu.se> wrote:
> Mr. Távora <joaotavora@gmail.com> writes:
>
>> Does anyone know a good way to swap the attribute values of two
>> Emacs faces?
>
> Check out this function:
>
> (copy-face OLD-FACE NEW-FACE &optional FRAME NEW-FRAME)
>
> Perhaps you need a temporary face to make the switch, as well.
>
> --
> Emanuel Berg - programmer (hire me! CV below)
> computer projects: http://user.it.uu.se/~embe8573
> internet activity: http://home.student.uu.se/embe8573



-- 
João Távora