Set it to 20, thanks. Hopefully I never need to hit the 26 limit. 2012/11/29 Nick Dokos > 42 147 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 >