Как установить шрифт переменной высоты при запуске Emacs?

Question

Цель: установить шрифт с переменным шагом условно, доступными шрифтами при запуске.

Метод: set-face-font

Результат: не работает во время инициализации. Работает ли впоследствии.

Нежелательное поведение: шрифт с переменным шагом Helvetica после запуска

Желаемое поведение: шрифт с переменным шагом Palatino

Полный код:

#+begin_src elisp
(cond ((member "Palatino" (font-family-list)) (set-face-font 'variable-pitch "Palatino"))
        ((member "Garamond" (font-family-list)) (set-face-font 'variable-pitch "Garamond"))
        ((member "Georgia" (font-family-list)) (set-face-font 'variable-pitch "Georgia"))
        ((member "aakar" (font-family-list)) (set-face-font 'variable-pitch "aakar"))
        ((member "Times New Roman" (font-family-list)) (set-face-font 'variable-pitch "Times New Roman")))
#+end_src

Теория: во время инициализации он не работает, потому что переменная высота тона является частью пользовательских наборных граней, а «Ваш файл инициализации должен содержать только один такой экземпляр». Мой читает

#+begin_src elisp
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(org-date ((t (:foreground "#7590db" :underline t :height 0.8 :width normal))))
 '(org-special-keyword ((t (:foreground "#bc6ec5" :height 0.7 :width condensed)))))
#+end_src

Я предполагаю, что во время инициализации возникает конфликт, но после этого код работает правильно.

Вопрос: Мое решение запустить код после запуска неуклюже. Есть лучший способ сделать это? Я видел много умных решений проблем со шрифтами, но ни одно из них не помогло. 'variable-pitch не является переменной, и это то, что я хочу использовать.

Цель состоит в том, чтобы иметь один персональный слой Spacemacs, который работает в любой Nix-подобной системе без установки шрифтов, и устанавливает режим Orgи правильно кодируйте шрифты.

Системная информация:

#+begin_quote
#### System Info :computer:
- OS: darwin
- Emacs: 26.2
- Spacemacs: 0.200.13
- Spacemacs branch: master (rev. 8c0b8c344)
- Graphic display: t
- Distribution: spacemacs
- Editing style: emacs
- Completion: helm
- Layers:
```elisp
(html emacs-lisp syntax-checking git autohotkey javascript helm org better-defaults
      (colors :variables colors-enable-nyan-cat-progress-bar t)
      (spell-checking :variables ispell-program-name "/usr/local/bin/ispell")
      markdown personal outshine)
```
- System configuration features: NOTIFY ACL GNUTLS LIBXML2 ZLIB TOOLKIT_SCROLL_BARS NS MODULES THREADS
#+end_quote