フォントのPostScript NameからDisplayed Nameを取得

AppleScript名：フォントのPostScript NameからDisplayed Nameを取得

— Created 2017-11-01 by Takaaki Naganoya
— Modified 2017-11-02 by Shane Stanley
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "AppKit"

property NSFontManager : a reference to current application’s NSFontManager
property NSFont : a reference to current application’s NSFont

set aName to "YuMin_36pKn-Medium"
set dName to getDisplayedNameOfFont(aName) of me
–>　　"游明朝体+36ポかなミディアム"

on getDisplayedNameOfFont(aName)
　　set aFont to current application’s NSFont’s fontWithName:aName |size|:9.0
　　set aDispName to (aFont’s displayName()) as string
　　return aDispName
end getDisplayedNameOfFont