display selected application’s plist on Finder

Finder上で選択中のアプリケーションのplistファイルを探してFinder上で選択表示するAppleScriptです。

AppleScript名：display selected application’s plist on Finder.scpt

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2020/08/17
—
–　　Copyright © 2020 Piyomaru Software, All Rights Reserved
—

use AppleScript version "2.5" –macOS 10.11 or later
use scripting additions
use framework "Foundation"
use framework "AppKit"

tell application "Finder"
　　set aliasList to selection as alias list
end tell

–Filter selection application bundle only
set aRes to filterAliasListByUTI(aliasList, "com.apple.application-bundle") of me
set aLen to length of aRes
if aLen = 0 then return

–Pick up the first element
set anApp to contents of first item of aRes

set aRes to getBundleIDFromPath(POSIX path of anApp) of me
set pListName to aRes & ".plist"

set prefPath to POSIX path of (path to preferences) & pListName
set aExt to current application’s NSFileManager’s defaultManager()’s fileExistsAtPath:prefPath
if aExt = true then
　　revealAFileByFinder(prefPath) of me
end if

on filterAliasListByUTI(aliasList as list, acceptUTI as string)
　　set fList to {}
　　repeat with i in aliasList
　　　　set aUTI to getUTIfromPath(i) of me
　　　　if aUTI is not equal to missing value then
　　　　　　set uRes to filterUTIList({aUTI}, acceptUTI) of me
　　　　　　
　　　　　　if uRes is not equal to {} then
　　　　　　　　set the end of fList to contents of i
　　　　　　end if
　　　　end if
　　end repeat
　　return fList
end filterAliasListByUTI

–Application path –> Bundle ID
on getBundleIDFromPath(aPOSIXpath as string)
　　set aURL to current application’s |NSURL|’s fileURLWithPath:aPOSIXpath
　　set aWorkspace to current application’s NSWorkspace’s sharedWorkspace()
　　set appURL to aWorkspace’s URLForApplicationToOpenURL:aURL
　　set aBundle to current application’s NSBundle’s bundleWithURL:appURL
　　set anID to aBundle’s bundleIdentifier()
　　return anID as string
end getBundleIDFromPath

on revealAFileByFinder(aPOSIXpath as string)
　　set pathStr to current application’s NSString’s stringWithString:aPOSIXpath
　　set parentPath to pathStr’s stringByDeletingLastPathComponent()
　　set aRes to current application’s NSWorkspace’s sharedWorkspace()’s selectFile:pathStr inFileViewerRootedAtPath:parentPath
end revealAFileByFinder

–Alias –> UTI
on getUTIfromPath(anAlias)
　　set aPOSIXpath to POSIX path of anAlias
　　set aURL to current application’s |NSURL|’s fileURLWithPath:aPOSIXpath
　　if aURL = missing value then return missing value
　　set aRes to aURL’s resourceValuesForKeys:{current application’s NSURLTypeIdentifierKey} |error|:(missing value)
　　if aRes = missing value then return missing value
　　return (aRes’s NSURLTypeIdentifierKey) as string
end getUTIfromPath

on filterUTIList(aUTIList, aUTIstr)
　　set anArray to NSArray’s arrayWithArray:aUTIList
　　set aPred to NSPredicate’s predicateWithFormat_("SELF UTI-CONFORMS-TO %@", aUTIstr)
　　set bRes to (anArray’s filteredArrayUsingPredicate:aPred) as list
　　return bRes
end filterUTIList

種類	内容説明
ファイル拡張子	ファイルの形式を一意に特定するもの。ただし、「.jpg」「.jpeg」など若干の表記ゆらぎを許容。詐称できてしまう
UTI	ファイルのmacOS上での形式を一意に特定するもの。OS側が判断するものだが、拡張子次第。ただし、ゆらぎがない。UTI同士は階層構造を形成しており、上位のUTI（public.image）を指定することで下位UTIもまとめて指定できたりする
MIME-type	当該のファイルがインターネット上のファイル交換時にどのように受け取られるかを示す識別子。AppleScriptバンドルは拡張子「.scptd」で、UTIは「com.apple.applescript.script-bundle」だが、MIME-typeを取得すると「inode/directory」となる