« [Fonts]フォント関連のフォルダを開く | トップページ | [Fonts]フォントコレクションを作成する »

[Fonts]フォントライブラリを作成する

ダウンロード - make20new20font20library.scpt.zip


#!/usr/bin/env osascript
----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
#
#
#
#
# com.cocolog-nifty.quicktimer.icefloe
----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
##自分環境がos12なので2.8にしているだけです
use AppleScript version "2.8"
use framework "Foundation"
use scripting additions


####設定項目
set strMyFontFontLibraryName to "新しいライブラリ"


###############起動を待つ(FontBookの提携必須)
tell application "Font Book" to launch
repeat
try
tell application "Font Book"
activate
properties
end tell
exit repeat
on error
delay 0.5
end try
end repeat
########フォントライブラリの一覧を取得
tell application "Font Book"
properties
set listFontLibrary to name of every font library as list
end tell
####同名のライブラリあるか?確認する
set boolSameLibrary to 0
repeat with objFontLibrary in listFontLibrary
set strFontLibrary to objFontLibrary as text
if strFontLibrary is strMyFontFontLibraryName then
set boolSameLibrary to 1
end if
end repeat
####同名のライブラリが無ければ作る
if boolSameLibrary is 0 then
tell application "Font Book"
make new font library with properties {name:strMyFontFontLibraryName}
end tell
end if
####↑作った場合名称が編集可能な状態になるので確定させる
delay 1
tell application "Font Book"
set (selected collections) to font domain "User"
end tell

|

« [Fonts]フォント関連のフォルダを開く | トップページ | [Fonts]フォントコレクションを作成する »

AppleScript Fonts」カテゴリの記事