Sean Whitton <[email protected]> writes: >>> which is not good code. Is there any alternative? >> >> (defface org-hide >> (mapcar >> (pcase-lambda (`(,term ,bg)) >> `(((background ,bg) (type ,term)) >> (:foreground ,(pcase bg ('light "white") ('dark "black")) >> ,@(when term '(:inherit fixed-pitch))))) >> (let (args) >> (dolist (term '(ns w32 nil) args) >> (dolist (bg '(light dark)) >> (push (list term bg) args))))) > > Ah, right, it's evaluated. > > Thanks, I'll prepare a new patch at some point.
It has been a while. Do you still have plans to work on the patch? -- Ihor Radchenko // yantar92, Org mode maintainer, Learn more about Org mode at <https://orgmode.org/>. Support Org development at <https://liberapay.com/org-mode>, or support my work at <https://liberapay.com/yantar92>
