Oops, wrong thread.

2013/2/26 42 147 <aeuster@gmail.com>

> Set it to 20, thanks.
>
> Hopefully I never need to hit the 26 limit.
>
>
> 2012/11/29 Nick Dokos <nicholas.dokos@hp.com>
>
>> 42 147 <aeuster@gmail.com> wrote:
>>
>> > Very nice.
>> >
>> > However, I'd like to write a function that toggles the color value
>> (without
>> > recourse to the customize menu), since it would be useful to highlight
>> the
>> > footnotes from time to time.
>> >
>>
>> Anything that can be done interactively can also be done
>> programatically. You know what face you are dealing with, you can get
>> its foreground color with face-foreground, and you can set it with
>> set-face-attribute. A crude implementation to show the basic outline:
>>
>> --8<---------------cut here---------------start------------->8---
>> (setq org-footnote-fg-color (face-foreground 'org-footnote))
>>
>> (setq org-text-fg-color (face-foreground 'default))
>>
>> (defun my-toggle-footnote-fg-color ()
>>   "Toggle the org-footnote face foreground color."
>>   (interactive)
>>   (let ((fg (face-foreground 'org-footnote)))
>>     (if (string-equal fg org-footnote-fg-color)
>>         (set-face-attribute 'org-footnote nil :foreground
>> org-text-fg-color)
>>       (set-face-attribute 'org-footnote nil :foreground
>> org-footnote-fg-color))))
>> --8<---------------cut here---------------end--------------->8---
>>
>> The difficulties start (but do not end) with footnotes in all sorts of
>> weird places (e.g. headlines) with all sorts of different
>> fontifications. You'd want to blend the footnote with its immediate
>> surroundings.
>>
>> Taking care of such situations (and various others that the above code
>> mishandles) is left as an exercise...
>>
>> Nick
>>
>
>