fonts - ユーザーフレンドリーな名前からXのようなフォント名を取得するには?

Question

「Courier New」のようなフォント名がある場合、 「- -courier- -*- - ...」のような名前を取得するにはどうすればよいですか? 最初の 2 つのセクション、製造元とファミリに興味があります。

ありがとうございました。

PS 標準の Xlib 関数を使用できます。他のライブラリに依存したくありません。