Oops, wrong thread. 2013/2/26 42 147 <aeus...@gmail.com>
> Set it to 20, thanks. > > Hopefully I never need to hit the 26 limit. > > > 2012/11/29 Nick Dokos <nicholas.do...@hp.com> > >> 42 147 <aeus...@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 >> > >
