デフォルトでインストールされているフォントにラベルを塗る: [FORCE]

デフォルトでインストールされているフォントにラベルを塗る

OSXのシステム
システムドメイン
/System/Library/Fonts
ローカルドメイン
/Library/Fonts

過去を含めて
純正フォントのリスト
リストにあるフォントにラベルを塗る

内包している『FontList.txt』を選択して実行してください
管理者権限が必要です
10.6あたりまで用

#Gungseouche.dfont
#HeadlineA.dfont
#PCmyoungjo.dfont
#Pilgiche.dfont
Al Nile.ttc
Al Tarikh.ttc
AlBayan.ttf
AlBayanBold.ttf
AmericanTypewriter.dfont
AmericanTypewriter.ttc
Andale Mono.ttf
Apple Braille Outline 6 Dot.ttf
Apple Braille Outline 8 Dot.ttf
Apple Braille Pinpoint 6 Dot.ttf
Apple Braille Pinpoint 8 Dot.ttf
Apple Braille.ttf
Apple Chancery.dfont
Apple Chancery.ttf
Apple Color Emoji.ttf
Apple LiGothic Medium.dfont
Apple LiGothic Medium.ttf
Apple LiSung Light.dfont
Apple LiSung Light.ttf
Apple Symbols.ttf
AppleGothic.dfont
AppleGothic.ttf
AppleMyungjo.ttf
AppleSDGothicNeo-Bold.otf
AppleSDGothicNeo-ExtraBold.otf
AppleSDGothicNeo-Heavy.otf
AppleSDGothicNeo-Medium.otf
AppleSDGothicNeo-Regular.otf
AppleSDGothicNeo-SemiBold.otf
AppleSDGothicNeo-Thin.otf
AppleSDGothicNeo-UltraLight.otf
AquaKana.ttc
AquaKanaBold.otf
AquaKanaRegular.otf
Arial Black.ttf
Arial Bold Italic.ttf
Arial Bold.ttf
Arial Italic.ttf
Arial Narrow Bold Italic.ttf
Arial Narrow Bold.ttf
Arial Narrow Italic.ttf
Arial Narrow.ttf
Arial Rounded Bold.ttf
Arial Unicode.ttf
Arial.ttf
ArialHB.ttc
ArialHB.ttf
ArialHBBold.ttf
Athelas.ttc
Avenir Next Condensed.ttc
Avenir Next.ttc
Avenir.ttc
Ayuthaya.ttf
Baghdad.ttf
Bangla MN.ttc
Bangla Sangam MN.ttc
Bangla Sangam MN.ttf
Baoli.ttc
Baskerville.dfont
Baskerville.ttc
Beirut.ttc
BiauKai.dfont
BiauKai.ttf
BigCaslon.dfont
BigCaslon.ttf
Brush Script.ttf
Chalkboard.ttc
Chalkboard.ttf
ChalkboardBold.ttf
ChalkboardSE.ttc
Chalkduster.ttf
CharcoalCY.dfont
Charter.ttc
Cochin.dfont
Cochin.ttc
Comic Sans MS Bold.ttf
Comic Sans MS.ttf
Copperplate.dfont
Copperplate.ttc
Corsiva.ttc
Corsiva.ttf
CorsivaBold.ttf
Courier New Bold Italic.ttf
Courier New Bold.ttf
Courier New Italic.ttf
Courier New.ttf
Courier.dfont
Damascus.ttc
DecoTypeNaskh.ttf
Devanagari Sangam MN.ttc
DevanagariMT.ttf
DevanagariMTBold.ttf
Didot.dfont
Didot.ttc
DIN Alternate Bold.ttf
DIN Condensed Bold.ttf
Diwan Kufi.ttc
Diwan Thuluth.ttc
EuphemiaCAS.ttc
EuphemiaCASBold.ttf
EuphemiaCASItalic.ttf
EuphemiaCASRegular.ttf
Farah.ttc
Farisi.ttc
Futura.dfont
Futura.ttc
Geeza Pro Bold.ttf
Geeza Pro.ttf
Geneva.dfont
GenevaCY.dfont
Georgia Bold Italic.ttf
Georgia Bold.ttf
Georgia Italic.ttf
Georgia.ttf
GillSans.dfont
GillSans.ttc
Gujarati Sangam MN.ttc
Gujarati Sangam MN.ttf
GujaratiMT.ttf
GujaratiMTBold.ttf
Gungseouche.dfont
Gungseouche.ttf
Gurmukhi MN.ttc
Gurmukhi Sangam MN.ttc
Gurmukhi.ttf
Hannotate.ttc
Hanzipen.ttc
HeadlineA.dfont
HeadlineA.ttf
Hei.dfont
Hei.ttf
HelveLTMM
Helvetica LT MM
Helvetica.dfont
HelveticaCY.dfont
HelveticaLight.ttf
HelveticaLightItalic.ttf
HelveticaNeue.dfont
HelveticaNeue.ttc
HelveticaNeueDeskUI.ttc
Herculanum.dfont
Herculanum.ttf
Hiragino Kaku Gothic Pro W3.otf
Hiragino Kaku Gothic Pro W6.otf
Hiragino Kaku Gothic ProN W3.otf
Hiragino Kaku Gothic ProN W6.otf
Hiragino Kaku Gothic Std W8.otf
Hiragino Kaku Gothic StdN W8.otf
Hiragino Maru Gothic Pro W4.otf
Hiragino Maru Gothic ProN W4.otf
Hiragino Mincho Pro W3.otf
Hiragino Mincho Pro W6.otf
Hiragino Mincho ProN W3.otf
Hiragino Mincho ProN W6.otf
Hiragino Sans GB W3.otf
Hiragino Sans GB W6.otf
Hoefler Text Ornaments.ttf
Hoefler Text.dfont
Hoefler Text.ttc
Impact.ttf
InaiMathi.ttf
Iowan Old Style.ttc
Kai.dfont
Kai.ttf
Kailasa.ttf
Kaiti.ttc
Kannada MN.ttc
Kannada Sangam MN.ttc
Kannada Sangam MN.ttf
Kefa.ttc
Keyboard.dfont
Keyboard.ttf
Khmer MN.ttc
Khmer Sangam MN.ttf
Kokonor.ttf
Krungthep.ttf
KufiStandardGK.ttf
Lantinghei.ttc
Lao MN.ttc
Lao Sangam MN.ttf
LastResort.dfont
LastResort.ttf
Libian.ttc
LiHei Pro.ttf
LiSong Pro.ttf
LucidaGrande.dfont
LucidaGrande.ttc
Malayalam MN.ttc
Malayalam Sangam MN.ttc
Malayalam Sangam MN.ttf
Marion.ttc
MarkerFelt.dfont
MarkerFelt.ttc
Menlo.ttc
Microsoft Sans Serif.ttf
Mishafi.ttc
Monaco.dfont
MshtakanBold.ttf
MshtakanBoldOblique.ttf
MshtakanOblique.ttf
MshtakanRegular.ttf
Muna.ttc
Myanmar MN.ttc
Myanmar Sangam MN.ttf
Nadeem.ttf
NanumGothic.ttc
NanumMyeongjo.ttc
NanumScript.ttc
NewPeninimMT.ttc
NewPeninimMT.ttf
NewPeninimMTBold.ttf
NewPeninimMTBoldInclined.ttf
NewPeninimMTInclined.ttf
NISC18030.ttf
Noteworthy.ttc
Optima.dfont
Optima.ttc
Oriya MN.ttc
Oriya Sangam MN.ttc
Oriya Sangam MN.ttf
Osaka.dfont
Osaka.ttf
OsakaMono.dfont
OsakaMono.ttf
Palatino.ttc
Papyrus.dfont
Papyrus.ttc
PCmyoungjo.dfont
PCmyoungjo.ttf
Pilgiche.dfont
Pilgiche.ttf
PlantagenetCherokee.ttf
ppleSDGothicNeo-Light.otf
PTMono.ttc
PTSans.ttc
PTSerif.ttc
PTSerifCaption.ttc
Raanana.ttc
Raanana.ttf
RaananaBold.ttf
Sana.ttc
Sathu.ttf
Savoye LET.ttc
Seravek.ttc
Silom.ttf
Sinhala MN.ttc
Sinhala Sangam MN.ttc
Sinhala Sangam MN.ttf
Skia.dfont
Skia.ttf
SnellRoundhand.ttc
Songti.ttc
STFangsong.ttf
STHeiti Light.ttc
STHeiti Light.ttf
STHeiti Medium.ttc
STHeiti Regular.ttf
STIXGeneral.otf
STIXGeneralBol.otf
STIXGeneralBolIta.otf
STIXGeneralItalic.otf
STIXIntDBol.otf
STIXIntDReg.otf
STIXIntSmBol.otf
STIXIntSmReg.otf
STIXIntUpBol.otf
STIXIntUpDBol.otf
STIXIntUpDReg.otf
STIXIntUpReg.otf
STIXIntUpSmBol.otf
STIXIntUpSmReg.otf
STIXNonUni.otf
STIXNonUniBol.otf
STIXNonUniBolIta.otf
STIXNonUniIta.otf
STIXSizFiveSymReg.otf
STIXSizFourSymBol.otf
STIXSizFourSymReg.otf
STIXSizOneSymBol.otf
STIXSizOneSymReg.otf
STIXSizThreeSymBol.otf
STIXSizThreeSymReg.otf
STIXSizTwoSymBol.otf
STIXSizTwoSymReg.otf
STIXVar.otf
STIXVarBol.otf
STKaiti.ttf
STSong.ttf
SuperClarendon.ttc
Symbol.dfont
Symbol.ttf
Tahoma Bold.ttf
Tahoma.ttf
Tamil MN.ttc
Tamil Sangam MN.ttc
Tamil Sangam MN.ttf
Telugu MN.ttc
Telugu Sangam MN.ttc
Telugu Sangam MN.ttf
Thonburi.ttc
Thonburi.ttf
ThonburiBold.ttf
Times LT MM
Times New Roman Bold Italic.ttf
Times New Roman Bold.ttf
Times New Roman Italic.ttf
Times New Roman.ttf
Times.dfont
TimesLTMM
Trebuchet MS Bold Italic.ttf
Trebuchet MS Bold.ttf
Trebuchet MS Italic.ttf
Trebuchet MS.ttf
Verdana Bold Italic.ttf
Verdana Bold.ttf
Verdana Italic.ttf
Verdana.ttf
Waseem.ttc
WawaSC-Regular.otf
WawaTC-Regular.otf
Webdings.ttf
WeibeiSC-Bold.otf
WeibeiTC-Bold.otf
Wingdings 2.ttf
Wingdings 3.ttf
Wingdings.ttf
Xingkai.ttc
Yu Gothic Bold.otf
Yu Gothic Medium.otf
Yu Mincho Demibold.otf
Yu Mincho Medium.otf
Yuanti.ttc
YuppySC-Regular.otf
YuppyTC-Regular.otf
ZapfDingbats.dfont
ZapfDingbats.ttf
Zapfino.dfont
Zapfino.ttf
ヒラギノ角ゴ Pro W3.otf
ヒラギノ角ゴ Pro W6.otf
ヒラギノ角ゴ ProN W3.otf
ヒラギノ角ゴ ProN W6.otf
ヒラギノ角ゴ Std W8.otf
ヒラギノ角ゴ StdN W8.otf
ヒラギノ丸ゴ Pro W4.otf
ヒラギノ丸ゴ ProN W4.otf
ヒラギノ明朝 Pro W3.otf
ヒラギノ明朝 Pro W6.otf
ヒラギノ明朝 ProN W3.otf
ヒラギノ明朝 ProN W6.otf
雅痞-繁.otf
雅痞-简.otf
宋体.ttc
儷宋 Pro.ttf
儷黑 Pro.ttf
楷体.ttc
华文宋体.ttf
华文楷体.ttf
华文仿宋.ttf
华文细黑.ttf
华文黑体.ttf

に
ラベルに色を塗る

(*

一部訂正　20140515

テキストファイルに記載されているフォントが
システムドメイン/System/Library/Fonts
ローカルドメイン/Library/Fonts
に
インストールされているか？を調べて
指定したラベルカラーに塗り分けます。
ユーザードメイン/Users/XXXXX/Library/Fonts
は
調べません

アクセス権の変更を除いて
AppleScriptで実行する仕様
*)




(*
0　はラベル無し
1　オレンジ
2　レッド
3　イエロー
4　グリーン
5　ブルー
6　パープル
7　グレー
*)

--【設定項目】---全てのフォントに塗る色
set numLabelColor to 2

--【設定項目】---リストにあるフォントに塗る色
set numFontColor to 0

-------------------------





-----フォントリストテキストは同じフォルダ内にある想定で
tell application "Finder"
set theDefaultLocation to (container of (path to me)) as alias
end tell
-----フォントリストを開く
set theFileAlias to choose file default location theDefaultLocation
-----ユーザーフォントディレクトリ
set aliasUserFontsDir to (path to fonts folder from user domain) as alias
-----システムフォントディレクトリ
set aliasSystemFontsDir to (path to fonts folder from system domain) as alias
-----ローカルフォントディレクトリ
set aliasLocalFontsDir to (path to fonts folder from local domain) as alias
-----システムフォントディレクトリのフォント一覧
set listSystemFonts to list folder (aliasSystemFontsDir) as alias
----カウンター初期化
set numSystemFonts to 1 as number



----フォントフォルダ配下のアクセス権を755（フォルダが内包されている可能性対策）
do shell script "sudo chmod -Rf 755  /Library/Fonts" with administrator privileges


----フォントフォルダのアクセス権を777
do shell script "sudo chmod 777  /Library/Fonts" with administrator privileges





---------------システムフォントディレクトリのフォントに色を塗る
repeat
try
-----フォント一覧から順番に処理する
set theSystemFontsFile to (item numSystemFonts of listSystemFonts) as text
-----ディレクトリ＋フィアルでエリアスへの準備
set theSystemFontsFile to (aliasSystemFontsDir & theSystemFontsFile) as text
-----ファイルへのエイリアスにする
set theSystemFontsFile to theSystemFontsFile as alias
----フォルダか？を調べる
set infoForSysFontDir to folder of (info for (theSystemFontsFile))
----フォルダの場合
if infoForSysFontDir is true then
tell application "Finder"
------ラベルを塗る
set label index of theSystemFontsFile to numLabelColor
end tell
try
set theSystemFontsFilePath to POSIX path of theSystemFontsFile as text
do shell script "sudo chmod 755  \"" & theSystemFontsFilePath & "\"" with administrator privileges
end try
else
-----ユニックスパスにもしておく
set theSystemFontsFilePath to POSIX path of theSystemFontsFile as text
-----ラベルを塗るためにアクセス権を666に変更
try
do shell script "sudo chmod 666  \"" & theSystemFontsFilePath & "\"" with administrator privileges
end try
tell application "Finder"
------ラベルを塗る
set label index of theSystemFontsFile to numLabelColor
end tell
end if
-----エラーになったら
on error
-----リピートを抜ける
exit repeat
-----tryの終わり
end try
-----カウントアップ
set numSystemFonts to numSystemFonts + 1 as number
end repeat



---------------ローカルフォントディレクトリのフォントに色を塗る
set listLocalFonts to list folder (aliasLocalFontsDir) as alias
----カウンター初期化
set numLocalFonts to 1 as number

repeat
try
-----フォント一覧から順番に処理する
set theLocalFontsFile to (item numLocalFonts of listLocalFonts) as text
-----ディレクトリ＋フィアルでエリアスへの準備
set theLocalFontsFile to (aliasLocalFontsDir & theLocalFontsFile) as text
-----ファイルへのエイリアスにする
set theLocalFontsFile to theLocalFontsFile as alias
----フォルダか？を調べる
set infoForLocalFontDir to folder of (info for (theLocalFontsFile))
----フォルダの場合
if infoForLocalFontDir is true then
tell application "Finder"
-------ラベルを塗る
set label index of theLocalFontsFile to numLabelColor
end tell
try
-----ユニックスパスに変更
set theLocalFontsFilePath to POSIX path of theLocalFontsFile as text
-----フォルダのアクセス権を戻す
do shell script "sudo chmod 755  \"" & theLocalFontsFile & "\"" with administrator privileges
end try
-----ファイルの場合
else
-----ユニックスパスにもしておく
set theLocalFontsFilePath to POSIX path of theLocalFontsFile as text
-----ラベルを塗るためにアクセス権を666に変更
try
do shell script "sudo chmod 666  \"" & theLocalFontsFilePath & "\"" with administrator privileges
end try
tell application "Finder"
-------ラベルを塗る
set label index of theLocalFontsFile to numLabelColor
end tell
end if
on error
-----リピートを抜ける
exit repeat
-----tryの終わり
end try
-----カウントアップ
set numLocalFonts to numLocalFonts + 1 as number
end repeat

(*
↑ここまでが全てのフォントに色を塗る処理
↓ここからがリストにあるフォントに色を塗る処理
*)

-----開いたファイルのエイリアスを取得
set aliasFileAlias to theFileAlias as alias
-----ユニックスパスに変更
set theUnixPass to POSIX path of aliasFileAlias as text
-----ファイルを読み込む
set theData to (do shell script "cat " & theUnixPass) as «class utf8»
-----改行毎にリストにする
set AppleScript's text item delimiters to {"\r"}
set retListData to (every text item of theData) as list

------リストに変更した後で項目数を数える
set numListLine to (count of retListData) as number
----繰り返し回数確定
set numListLine to numListLine - 1 as number

-----ユーザーフォントディレクトリ
set theUserFontsDir to (path to fonts folder from user domain) as text
-----システムフォントディレクトリ
set theSystemFontsDir to (path to fonts folder from system domain) as text
-----ローカルフォントディレクトリ
------set theLocalFontsDir to (path to fonts folder from local domain) as text

set numFontData to 1 as number


------読み出したフォントを順番に処理
repeat numListLine times
-----ウェイトが複数あっても処理するのは最初のひとつ
set theFontId to (item numFontData of retListData) as text

try
-----システムフォントディレクトリ
set theSystemFonts to (theSystemFontsDir & theFontId) as text
-----エイリアスに変換
set theSystemFonts to theSystemFonts as alias
tell application "Finder"
-------ラベルを塗る
set label index of theSystemFonts to numFontColor
end tell
-----ユニックスパスに変更
set theSystemFonts to POSIX path of theSystemFonts as text
-----システムフォルダ内のアクセス権644に戻す
try
do shell script "sudo chmod 644  \"" & theSystemFonts & "\"" with administrator privileges
end try
end try

try
-----ローカルフォントディレクトリ
set theLocalFonts to (theLocalFontsDir & theFontId) as text
-----エイリアスに変換
set theLocalFonts to theLocalFonts as alias

tell application "Finder"
-------ラベルを塗る
set label index of theLocalFonts to numFontColor
end tell
-----ユニックスパスに変更
set theLocalFonts to POSIX path of theLocalFonts as text
-----ライブラリフォルダ内のアクセス権に664に戻す
try
do shell script "sudo chmod 664  \"" & theLocalFonts & "\"" with administrator privileges
end try
end try

set numFontData to numFontData + 1 as number
end repeat





----最後にアクセス権を元に戻す
do shell script "sudo chmod 755  /Library/Fonts" with administrator privileges