複数フォントを列挙して最初に見つかったフォントを使う

こんな感じの関数を定義する:

(require 'cl)
(defun find-font (&rest fonts)
  "与えられたフォント FONTS で最初に見つかったフォントを返す"
  (find-if (lambda (f)
             (find-font (font-spec :name f)))
           fonts))

使い方:

(when window-system
  ;; 最初に見つかったフォントをデフォルトフォントに設定
  (let ((font (find-font "Ricty-11"
                         "Inconsolata-11"
                         "Monospace-11")))
    (if font (set-default-font font)))