【Adobe Font Development Kit for OpenType】tx 全文字PDFダンプ・ヘルパースクリプト

【Adobe Font Development Kit for OpenType】tx　全文字PDFダンプ・ヘルパースクリプト

NOTE記事一覧ですnote.com

　

---

【Safari・FireFox用Script Editorで開く】 |

tx_全文字PDFダンプv5.applescript.scpt

	ソース
001	#!/usr/bin/env osascript
002	#coding: utf-8
003	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
004	(*
005	AFDKO　を先にインストール済みの必要があります
006	https://note.com/quicktimer/n/nef5d603f562c
007
008	ヘルプ
009	"${HOME}/Library/Python/3.12/bin/tx" -h
010	https://adobe-type-tools.github.io/afdko/AFDKO-Overview.html#22-proofing
011
012	com.cocolog-nifty.quicktimer.icefloe *)
013	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
014	use AppleScript version "2.8"
015	use framework "Foundation"
016	use framework "AppKit"
017	use framework "UniformTypeIdentifiers"
018	use scripting additions
019	property refMe : a reference to current application
020
021	#################
022	##設定項目
023	set strSaveExtension to ("pdf") as text
024
025	#################
026	##バイナリーへのパス
027	set appFileManager to refMe's NSFileManager's defaultManager()
028	set ocidURLsArray to (appFileManager's URLsForDirectory:(refMe's NSLibraryDirectory) inDomains:(refMe's NSUserDomainMask))
029	set ocidLibraryDirPathURL to ocidURLsArray's firstObject()
030	set ocidBinFilePathURL to ocidLibraryDirPathURL's URLByAppendingPathComponent:("Python/3.12/bin/tx") isDirectory:(false)
031	set strBinFilePath to ocidBinFilePathURL's |path|() as text
032
033	#################
034	## ダイアログ関連
035	set strName to (name of current application) as text
036	if strName is "osascript" then
037	tell application "Finder" to activate
038	else
039	tell current application to activate
040	end if
041
042	tell application "Finder"
043	set aliasDefaultLocation to (path to fonts folder from user domain) as alias
044	end tell
045	set listUTI to {"public.truetype-ttf-font", "public.opentype-font"} as list
046	set strPromptText to "フォントファイルを選んでください" as text
047	set strMes to "選んでください" as text
048	set aliasFilePath to (choose file strMes with prompt strPromptText default location (aliasDefaultLocation) of type listUTI without invisibles, multiple selections allowed and showing package contents) as alias
049
050	####ファイルパス
051	set strFilePath to (POSIX path of aliasFilePath) as text
052	set ocidFilePathStr to refMe's NSString's stringWithString:(strFilePath)
053	set ocidFilePath to ocidFilePathStr's stringByStandardizingPath()
054	set ocidFilePathURL to refMe's NSURL's alloc()'s initFileURLWithPath:(ocidFilePath) isDirectory:(false)
055	set ocidContainerDirPathURL to ocidFilePathURL's URLByDeletingLastPathComponent()
056	set aliasContainerDirPath to (ocidContainerDirPathURL's absoluteURL()) as alias
057	#
058	set ocidBaseFilePathURL to ocidFilePathURL's URLByDeletingPathExtension()
059	set ocidSaveFilePathURL to ocidBaseFilePathURL's URLByAppendingPathExtension:(strSaveExtension)
060	set strBaseFileName to ocidSaveFilePathURL's lastPathComponent() as text
061
062	#################
063	##保存先 ダイアログ関連
064	set strPromptText to ("保存する名前を決めてください" & linefeed & "拡張子は【" & strSaveExtension & "】です") as text
065	set strMes to "名前を決めてください" as text
066	set aliasSaveFilePath to (choose file name default location aliasContainerDirPath default name strBaseFileName with prompt strPromptText) as «class furl»
067	####ファイルパス
068	set strSaveFilePath to (POSIX path of aliasSaveFilePath) as text
069	set ocidSaveFilePathStr to refMe's NSString's stringWithString:(strSaveFilePath)
070	set ocidSaveFilePath to ocidSaveFilePathStr's stringByStandardizingPath()
071	set ocidSaveFilePathURL to refMe's NSURL's alloc()'s initFileURLWithPath:(ocidSaveFilePath) isDirectory:(false)
072	set ocidSaveContainerDirPathURL to ocidSaveFilePathURL's URLByDeletingLastPathComponent()
073	set ocidSaveBaseFilePathURL to ocidSaveFilePathURL's URLByDeletingPathExtension()
074	set strSaveFileExtension to ocidSaveFilePathURL's pathExtension() as text
075	if strSaveFileExtension is not strSaveExtension then
076	set ocidSaveFilePathURL to ocidSaveBaseFilePathURL's URLByAppendingPathExtension:(strSaveExtension)
077	end if
078	#
079	set strSaveFilePath to ocidSaveFilePathURL's |path|() as text
080
081
082	#################
083	#コマンド整形
084	#リストのみ
085	set strBinFilePath to doPathEscape(strBinFilePath)
086	set strFilePath to doPathEscape(strFilePath)
087	set strSaveFilePath to doPathEscape(strSaveFilePath)
088	#詳細文字毎データ付き
089	set strCmd to ("PATH=\\\"$HOME/Library/Python/3.12/bin:$PATH\\\";\\\"" & strBinFilePath & "\\\" -pdf -1 -o \\\"" & strSaveFilePath & "\\\" \\\"" & strFilePath & "\\\"") as text
090
091	log (return & strCmd & return)
092	#コマンド実行
093	set strExecCommand to ("/bin/zsh -c \"" & strCmd & "\"") as text
094	try
095	set strResponse to (do shell script strExecCommand) as text
096	on error
097	log "osascript でエラーしました"
098	return false
099	end try
100
101	#################
102	#
103	set appSharedWorkspace to refMe's NSWorkspace's sharedWorkspace()
104	set boolDone to appSharedWorkspace's openURL:(ocidContainerDirPathURL)
105	#
106	set ocidOpenURLsArray to refMe's NSMutableArray's alloc()'s init()
107	(ocidOpenURLsArray's addObject:(ocidSaveFilePathURL))
108	appSharedWorkspace's activateFileViewerSelectingURLs:(ocidOpenURLsArray)
109
110
111	return "終了"
112
113
114
115
116	########################
117	#パスのエスケープ
118	to doPathEscape(strFilePath)
119	set strFilePath to strFilePath as text
120	set ocidFilePathStr to refMe's NSString's stringWithString:(strFilePath)
121	set ocidFilePath to ocidFilePathStr's stringByStandardizingPath()
122	set ocidFilePathURL to refMe's NSURL's fileURLWithPath:(ocidFilePath) isDirectory:(false)
123	set listEscChar to {"\\", "\"", "$", "`"} as list
124	repeat with itemEscChar in listEscChar
125	set ocidFilePath to (ocidFilePath's stringByReplacingOccurrencesOfString:(itemEscChar) withString:("\\\\\\" & itemEscChar & ""))
126	end repeat
127	set ocidFilePath to (ocidFilePath's stringByReplacingOccurrencesOfString:("!") withString:("\\\"'!'\\\""))
128
129	return ocidFilePath
130	end doPathEscape
AppleScriptで生成しました

---