AppleScript書類冒頭のコメントを書き換える

指定フォルダ以下のすべてのAppleScript書類（通常書類、バンドル書類）をSpotlightで検出して、各書類の冒頭に書いてあるヘッダーコメントをすべて書き換えて保存するAppleScriptです。

–> Download scriptHeaderReplacer.zip (Code-Signed executable AppleScript applet with Libraries in its bundle)

AppleScriptの自動組み立て＆自動書き出しといった処理は、macOS 10.4ぐらいの時期、あるいはScript DebuggerをコントロールしてClassic MacOSの時代からやっていた記憶があります。AppleScriptをAppleScriptで書くとか書き換えるといった処理は、割と重箱の隅をつつくような（メーカー側も想定していないわけではないだろうけれど、そんなに検証してなさそう）ものなので、未知の問題に遭遇することの多いものです。ただし、安定して動作させられれば得るものも大きいです。

CotEditorの配布用サンプルScriptをまとめる際に、ヘッダーコメント部分を統一する作業がなにげに大変でした。そこで、本Scriptを作成して一括してAppleScript書類のヘッダーコメント統一を行えるようにしました。60ファイル程度あるので、すべて手作業で書き換えるのは非効率的です（サンプルを書くよりも本Scriptを書くほうが時間がかかりました。でも、一度書けば２度目以降は自動で処理できます）。

本AppleScriptでは、Script EditorをコントロールしてAppleScript書類の書き換えを行っています。ただし、AppleScript書類自体の詳細な書式情報はCocoaの機能を用いて抽出しています。Script Editorで書き換えを行っているのは「目で見て動作を確認できる」からで、それ以外にはScript Editorをコントロールするメリットはありません（Cocoa側の機能を用いてScriptの修正と保存ができれば、すぐにでも本ワークフローから外したい）。

AppleScriptの構文色分け書式にアクセスして構文要素を文字色で区分けしているため、本Scriptの実行環境で構文色分け書式がデフォルトのままとか、各構文要素の指定色でごくごく似たものがあったような場合には正常に動作しません。

Script名称が「AppleScript書類冒頭のコメントを削除する v4」になっているのは、コメントを追加するプログラムとコメントを削除するプログラムの２系統のものを別々に作って、最終的に「コメントを削除するプログラム」に機能を統合したためです。

メインのScriptの内容のみ掲載していますが、（巨大な）ライブラリ入りのScript掲載は頭が痛いところです。とりあえず、実行して試せるということを重視してみました。

AppleScript名：AppleScript書類冒頭のコメントを削除する v4.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2019/10/03
—
–　　Copyright © 2019 Piyomaru Software, All Rights Reserved
—
use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use scripting additions
use asAttr : script "asAttrRecLib" –AppleScript書類をattribute runs的に書式データ化するライブラリ
use asCom : script "asCommentLib" –AppleScript書類から構文色分け情報にもとづいてコメントを抽出するライブラリ
use dsipTV : script "displayTextView" –NSTextViewで比較的長いテキスト入力（元テキストの修正程度を行うライブラリ
use script "Metadata Lib" version "2.0.0" –https://macosxautomation.com/applescript/apps/Script_Libs.html

–新しいヘッダーコメント（ダイアログ上でさらに変更可能）
set hRes to "–
–　　Created by: Takaaki Naganoya
–　　Created on: 2019/10/06
—
–　　Copyright © 2019 Piyomaru Software, All Rights Reserved
–　　http://www.piyocast.com

–ヘッダーの入力・修正を促す
set aHeader to (input text view hRes main message "Input New Header" sub message "Input AppleScript header text to replace" with properties {font name:"HiraMinProN-W6", size:20.0, width:800, height:200})

–AppleScriptの構文色分け設定から、コメントのカラーを取得する（色書式検索用 R、G、B値が１つの文字列にまとまっている形式）
set comColStr to (getCommentColStr() of asCom) as string

–指定フォルダ以下のAppleScript書類をSpotlight検索ですべてリストアップ
set aFol to choose folder with prompt "Select Root Folder"
set resList to perform search in folders {aFol} predicate string "kMDItemContentType IN %@" search arguments {"com.apple.applescript.script", "com.apple.applescript.script-bundle"}

–各AppleScript書類でループ
repeat with i in resList
　　
　　–ファイルをScript Editorでオープン
　　set j to POSIX file (contents of i)
　　tell application "Script Editor"
　　　　try
　　　　　　open j
　　　　on error
　　　　　　display dialog "Error in opening"
　　　　　　return
　　　　end try
　　　　
　　　　
　　　　–ヘッダーコメントの書き換え処理
　　　　tell front document
　　　　　　set aCon to contents
　　　　　　
　　　　　　if aCon does not start with "–" then
　　　　　　　　–ヘッダーコメントが存在しなかった場合
　　　　　　　　set aCon to aHeader & aCon
　　　　　　　　set contents to aCon
　　　　　　　　
　　　　　　else
　　　　　　　　–ヘッダーコメントが存在した場合
　　　　　　　　–既存のヘッダーを外してヘッダーコメントを付加
　　　　　　　　
　　　　　　　　–AppleScript書類の冒頭のヘッダーコメントの範囲を書式情報から取得する
　　　　　　　　set tmpLoc to retHeaderCommentRange(comColStr, j as alias, aHeader) of me
　　　　　　　　delay 0.5 —ないとうまく動作しない
　　　　　　　　
　　　　　　　　–既存のヘッダーコメントのテキストを取得する
　　　　　　　　set aText to (text 1 thru tmpLoc of aCon)
　　　　　　　　
　　　　　　　　–ヘッダーコメントの削除
　　　　　　　　set pStr to repChar(aCon, aText, "") of me
　　　　　　　　
　　　　　　　　set contents to aHeader & pStr
　　　　　　end if
　　　　　　
　　　　　　check syntax
　　　　　　delay 0.5 —ないとうまく動作しない
　　　　　　
　　　　end tell
　　　　
　　　　close every document with saving
　　　　delay 0.5 —ないとうまく動作しない
　　　　
　　end tell
end repeat

–上記のclose命令をすり抜ける書類があるので、最後にまとめてクローズ
tell application "Script Editor"
　　close every document with saving
end tell

–パスで与えられたAppleScript書類の冒頭からのヘッダーコメントの範囲を求める
on retHeaderCommentRange(comColStr as string, aFile, aHeader as string)
　　set aList to (getAttrRecFromASPath(aFile) of asAttr) as list
　　
　　set aCount to 1
　　set prevRec to {}
　　set iRange to missing value
　　
　　set delRange to 0
　　
　　repeat with i in aList
　　　　set tmpCol to (colorStr of i) as string
　　　　set tmpStr to (stringVal of i) as string
　　　　set tmpRange to (location of itemRange of i) as integer
　　　　
　　　　if (tmpCol is not equal to comColStr) and (tmpStr does not end with (return & return)) and ((location of itemRange of i) > ((length of aHeader) – 3)) then –改行コードが２つ連続した場合に同じ色情報になるのでこのように記述（重要）
　　　　　　set iRange to itemRange of prevRec
　　　　　　exit repeat
　　　　else
　　　　　　set aLoc to (location of itemRange of i) as integer
　　　　　　set aLen to (length of itemRange of i) as integer
　　　　　　set delRange to delRange + aLoc + aLen
　　　　end if
　　　　
　　　　set aCount to aCount + 1
　　　　copy (contents of i) to prevRec
　　end repeat
　　
　　if iRange = missing value then error "Comment not found "
　　
　　set tmpLoc to (location of iRange) + (|length| of iRange)
　　return tmpLoc
end retHeaderCommentRange

–文字置換
on repChar(origText as string, targChar as string, repChar as string)
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to targChar
　　set tmpList to text items of origText
　　set AppleScript’s text item delimiters to repChar
　　set retText to tmpList as string
　　set AppleScript’s text item delimiters to curDelim
　　return retText
end repChar

★Click Here to Open This Script　

Skimでオープン中のPDFで選択中のテキストを返す

Posted on 9月 16 by Takaaki Naganoya

フリーでScriptableなmacOS用PDFビューワー「Skim」上でオープン中のPDFで、選択中のテキストの内容を取得するAppleScriptです。

フリーかつオープンソースで提供されているアプリケーションのうち、奇跡的に豊富なAppleScript対応機能を備えるPDFビューワー、それがSkimです。Skimに比べればPreview.appなど取るに足らない存在。「PDFビューワー四天王」のうち、その最上位に君臨するアプリケーションこそがSkimです（四天王とかいいつつ、Skim、Preview、Acrobatの３人しかいないのはお約束）。

▲SkimでPDFをオープンし、「AppleScriptってなんだろう？」の文字列を選択

ただ、そんなグレートな存在のSkimでも、「選択中のテキストを取得する」という処理を書いたことはありませんでした。

Skimの「selection」によって取得されるのがテキストではなくRTFなので、AppleScriptの基本的な機能ではこのRTFはひどく扱いが難しいデータ「でした」。

しかし、Cocoaの機能を利用することで、テキストへの変換は可能です。

それでも、Cocoaが期待するRTFのデータとAppleScriptの世界のRTFのデータ同士の変換が難儀でした。食後の腹ごなしに行うには手に余るといったレベル。

そこで、お気軽データ変換の最後の砦であるクリップボードを経由してRTFをAppleScriptの世界からCocoaの世界に受け渡してみたところ、大成功。あとは、PDFから取得したテキストデータによくあることですが、日本語のテキストだとUnicodeのNormalize方法の問題によりひらがな/カタカナと濁点や半濁点が分離した状態で返ってきました。

これについても、Cocoaの機能を利用してNormalizeを行い、常識的なテキストに変換できました。

AppleScript名：Skimでオープン中のPDFの選択中のテキストを返す

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2019/09/16
—
–　　Copyright © 2019 Piyomaru Software, All Rights Reserved
—
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

tell application "Skim"
　　tell front document
　　　　set aSel to selection
　　　　repeat with i in aSel
　　　　　　set aCon to contents of i
　　　　　　set rList to RTF of aCon
　　　　　　
　　　　　　set sCon to ""
　　　　　　repeat with ii in rList
　　　　　　　　set the clipboard to ii
　　　　　　　　set aText to getClipboardAsText() of me
　　　　　　　　set aCon to aCon & aText
　　　　　　end repeat
　　　　　　
　　　　　　set aStr to textfy(aCon) of me
　　　　　　return aStr
　　　　end repeat
　　end tell
end tell

–Normalize Unicode Text in NFKC
on textfy(aText as string)
　　set aStr to current application’s NSString’s stringWithString:aText
　　set aNFKC to aStr’s precomposedStringWithCompatibilityMapping()
　　return aNFKC as string
end textfy

–Clipboard内の情報をテキストとして取得する
on getClipboardAsText()
　　— get the pasteboard items
　　set theClip to current application’s NSPasteboard’s generalPasteboard()
　　set pbItems to theClip’s pasteboardItems()
　　
　　set theStrings to {}
　　
　　repeat with anItem in pbItems
　　　　if (anItem’s types()’s containsObject:(current application’s NSPasteboardTypeString)) then
　　　　　　set end of theStrings to (anItem’s stringForType:(current application’s NSPasteboardTypeString)) as text
　　　　end if
　　end repeat
　　
　　return theStrings as text
end getClipboardAsText

★Click Here to Open This Script　

とか言ってたら、夕飯の買い物に出かけようとした頃にShane Stanleyから「もっとシンプルに書けるよー」というサンプルが届いて脱力しました。もっと簡潔に書けたようです（同一サンプルで日本語データに対してチェックずみ）。

ただ、PDFから文字取り出ししたあとは、Unicodeの再Normalizeは割とやらないといけないケースが多いので、選択部分（selection）からRTFじゃなくてcharacterでデータを取り出せばよかったというあたりが反省点でしょうか。

set theText to ""
tell application "Skim"
　　tell front document
　　　　set aSel to selection
　　　　repeat with anItem in aSel
　　　　　　set theText to theText & (characters of anItem) as text
　　　　end repeat
　　end tell
end tell
return theText

★Click Here to Open This Script　

Keynoteのテキストアイテム内の文字の実際の幅でリサイズ

Posted on 4月 5 by Takaaki Naganoya

Keynote書類上のテキストアイテムを、内容の文字の実際の幅でリサイズするAppleScriptです。

▲テキストアイテム中のテキストをコピー（Command-C）

▲リサイズ前のテキストアイテム。文字に対してフレームサイズが大きい

▲本Scriptによりリサイズした後のテキストアイテム。文字の内容に対してフレームサイズがフィットしている

▲本Scriptにより順次複数のテキストアイテムを文字幅にリサイズしたところ。selectionがまともに動作していれば、複数のテキストアイテムを選択した状態でScriptを走らせて一度にリサイズできる（はず）だが、selectionが動作していないので複数のオブジェクトに対して同じ回数の操作が必要

Keynoteにはversion 9.0で「selection」の予約語が追加されましたが、これは一般に期待されるような「表示中のスライド上で選択中のオブジェクトへの参照が取得できる」というものではありません。

つまり、選択中のオブジェクトへの参照をKeynoteに対して問い合わせることは、（現時点では）不可能です。

そこで、テキストアイテム内の内容（object text）をコピー（Command-C）してクリップボードに格納し、その内容をキーにして現在表示中のスライド内のテキストアイテムを抽出してみたところ、うまくいきました（なんでこんなことさせられてるんだろ？）。早くselectionがKeynote上でもまともに使えるようになってほしいものです（Pages上ではけっこういい感じに使えるのに）。

テキストアイテムの特定ができるようになったので、入っているobject textのサイズに合わせてテキストアイテムをリサイズする処理を書いてみました。

クリップボードの内容をNSAttributedStringとして取得し、その画面上の描画サイズを取得するサブルーチンは毎日さんざん使っているので（掲載リストのproperty宣言部をソートするのに使っています）信頼性があります。

とりあえず、擬似的に現在選択中のオブジェクトを特定する実験コードにちょっとだけ機能をつけたものですが、操作１に対して結果１というのは普通「自動化」とか言わないので、実用性は皆無です（めんどくさい操作ステップを省けるぐらいしか）。

AppleScript名：Keynoteのテキストアイテム内の文字の実際の幅でリサイズ

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2019/04/05
—
–　　Copyright © 2019 Piyomaru Software, All Rights Reserved
—
use AppleScript version "2.5"
use scripting additions
use framework "Foundation"
use framework "AppKit"
use BPlus : script "BridgePlus" –https://www.macosxautomation.com/applescript/apps/BridgePlus.html

property NSFont : a reference to current application’s NSFont
property NSColor : a reference to current application’s NSColor
property NSPasteboard : a reference to current application’s NSPasteboard
property NSAttributedString : a reference to current application’s NSAttributedString
property NSFontAttributeName : a reference to current application’s NSFontAttributeName
property NSMutableAttributedString : a reference to current application’s NSMutableAttributedString
property NSForegroundColorAttributeName : a reference to current application’s NSForegroundColorAttributeName

load framework

–クリップボードの内容をテキストとして取得し、現在のKeynote書類中のtext itemのうちコピーしたテキストに該当するものを抽出
set targString to (the clipboard) as string

tell application "Keynote"
　　tell document 1
　　　　tell current slide
　　　　　　set tList to every text item whose object text is targString
　　　　　　if tList = {} then return
　　　　　　set targObject to first item of tList
　　　　end tell
　　end tell
end tell

–クリップボードの内容をNSAttributedStringに
set anAttr to my getClipboardASStyledText()

–Split Attributed Strings into lines
set attrList to splitAttributedStringByLines(anAttr) of me

–Sort Attributed String list by its width in descending (large–> small)
set aResList to shellSortListDecending(attrList, 1) of me
set {targObjWidth, targAttrStrObj} to first item of aResList

–Resize Text item objet’s frame by its drawing width on screen
tell application "Keynote"
　　tell document 1
　　　　tell current slide
　　　　　　tell targObject
　　　　　　　　set width to ((targObjWidth as number) + 10) –resize it !
　　　　　　end tell
　　　　end tell
　　end tell
end tell

–入れ子のリストを昇順ソート
on shellSortListAscending(a, keyItem)
　　return sort2DList(a, keyItem, {true}) of me
end shellSortListAscending

–入れ子のリストを降順ソート
on shellSortListDecending(a, keyItem)
　　return sort2DList(a, keyItem, {false}) of me
end shellSortListDecending

–2D Listをソート
on sort2DList(aList as list, sortIndexes as list, sortOrders as list)
　　
　　–index値をAS流（アイテムが1はじまり）からCocoa流（アイテムが0はじまり）に変換
　　set newIndex to {}
　　repeat with i in sortIndexes
　　　　set j to contents of i
　　　　set j to j – 1
　　　　set the end of newIndex to j
　　end repeat
　　
　　–Sort TypeのListを作成（あえて外部から指定する内容でもない）
　　set sortTypes to {}
　　repeat (length of sortIndexes) times
　　　　set the end of sortTypes to "compare:"
　　end repeat
　　
　　–Sort
　　set resList to (current application’s SMSForder’s subarraysIn:(aList) sortedByIndexes:newIndex ascending:sortOrders sortTypes:sortTypes |error|:(missing value)) as list
　　
　　return resList
end sort2DList

— クリップボードの内容をNSAttributedStringとして取り出して返す
on getClipboardASStyledText()
　　try
　　　　set theNSPasteboard to NSPasteboard’s generalPasteboard()
　　　　set theAttributedStringNSArray to theNSPasteboard’s readObjectsForClasses:({NSAttributedString}) options:(missing value)
　　　　set theNSAttributedString to theAttributedStringNSArray’s objectAtIndex:0
　　　　return theNSAttributedString
　　on error
　　　　return missing value
　　end try
end getClipboardASStyledText

on splitAttributedStringByLines(theStyledText)
　　set outList to {}
　　set outAttr to NSMutableAttributedString’s alloc()’s initWithString:""
　　
　　set thePureString to theStyledText’s |string|() –pure string from theStyledText
　　set theLength to theStyledText’s |length|()
　　set startIndex to 0
　　
　　repeat until (startIndex = theLength)
　　　　set {theAtts, theRange} to theStyledText’s attributesAtIndex:startIndex longestEffectiveRange:(reference) inRange:{startIndex, theLength – startIndex}
　　　　set aText to (thePureString’s substringWithRange:theRange) as string –String
　　　　
　　　　set aColor to (theAtts’s valueForKeyPath:"NSColor") –Color
　　　　set aFont to (theAtts’s valueForKeyPath:"NSFont") –Font
　　　　if aFont is equal to missing value then error "Not font name and size are specified" –Font Name error
　　　　set aDFontName to aFont’s displayName() –Font Name
　　　　set aDFontSize to aFont’s pointSize() –Font Size
　　　　
　　　　set tmpAttrStr to generateAttributedString(aText, aDFontName, aDFontSize, aColor) of me
　　　　outAttr’s appendAttributedString:tmpAttrStr
　　　　
　　　　if (aText contains return) or (aText contains string id 10) then –CR or LF
　　　　　　set tmpSize to outAttr’s |size|()
　　　　　　set tmpWidth to retWidthFromSize(tmpSize) of me
　　　　　　
　　　　　　set the end of outList to {tmpWidth, outAttr}
　　　　　　set outAttr to NSMutableAttributedString’s alloc()’s initWithString:""
　　　　end if
　　　　
　　　　set startIndex to current application’s NSMaxRange(theRange)
　　end repeat
　　
　　set tmpSize to outAttr’s |size|()
　　set tmpWidth to retWidthFromSize(tmpSize) of me
　　set the end of outList to {tmpWidth, outAttr}
　　
　　return outList
end splitAttributedStringByLines

on retWidthFromSize(tmpSize)
　　if class of tmpSize = record then
　　　　–macOS 10.10, 10.11, 10.12
　　　　set tmpWidth to width of tmpSize
　　else
　　　　–macOS 10.13, 10.14
　　　　set tmpWidth to first item of tmpSize
　　end if
　　return tmpWidth
end retWidthFromSize

on generateAttributedString(aStr, aFontPSName, aFontSize, aColor)
　　set tmpAttr to NSMutableAttributedString’s alloc()’s initWithString:aStr
　　set aRange to current application’s NSMakeRange(0, tmpAttr’s |length|())
　　set aVal1 to NSFont’s fontWithName:aFontPSName |size|:aFontSize
　　tmpAttr’s beginEditing()
　　tmpAttr’s addAttribute:(NSFontAttributeName) value:aVal1 range:aRange
　　tmpAttr’s addAttribute:(NSForegroundColorAttributeName) value:aColor range:aRange
　　tmpAttr’s endEditing()
　　return tmpAttr
end generateAttributedString

★Click Here to Open This Script　

指定単語の花文字テキストを取得する（Retina対応）英文字用 v2

Posted on 3月 29 by Takaaki Naganoya

英語版の花文字テキストを作成してテキストエディタ（CotEditor）に出力するAppleScriptです。

描画用の英単語と、塗りつぶし用の英単語を別々に指定できます。invertFをtrueに設定すると、白黒反転出力を行います。

おおもとの元ネタは、大型計算機を大勢のユーザーで共有していた時代（ぱそこん登場前）、計算結果を高速プリンタの帳票に出力するようになっていたころにさかのぼります。どのユーザーの計算結果かを大量のプリンタの出力結果の中から仕分けるため、印刷出力の１ページ目をユーザー名などの情報を印字した「バナー」として使用。

そのさい、ドットインパクトプリンターだったので、決められた固定ドット数の文字しか印字できないため、英数字を組み合わせて擬似的に大きな文字でバナーを印刷していたことに端を発します。

その時代の「残り香」ともいえるバナーがパソコンの電子メールやBBSの時代にお遊びの「花文字」として引き継がれ、原始的なアスキーアートの一種として楽しまれてきました。

いまでも、shell commandの「banner」コマンドにその末裔を見ることができます。

先週のmacOS nativeのデモ時に「祝」という花文字を「呪」の文字で出力するという、定番の持ちネタを披露したところ、たいへんウケておりました。

ただ、これを海外のScripter向けにそのままデモしても受けません。

この、花文字テキストを出力するプログラムの英語版としては、love.scptといういにしえのデータをそのまま使いまわしたものがありますが、描画パターンを数値データで保持しているため、異なるパターンを表示させることはできません。

そこで、日本語版の花文字テキスト出力プログラムに若干手をくわえ、英単語の出力が行えるようにしてみました。

テキストの出力はCotEditorに対して行なっていますが、新規書類を指定文字で作成する程度なので、AppleScriptに対応しているテキストエディタならどれでも作り変えられます。また、表示を等幅フォントにしておく必要があります（あとから指定してもOK）。

AppleScript名：指定単語の花文字テキストを取得する（Retina対応）英文字用 v2

— Created 2017-12-12 by Takaaki Naganoya
— Modified 2019-03-29 by Takaaki Naganoya
— 2019 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "AppKit"

property NSFont : a reference to current application’s NSFont
property NSUUID : a reference to current application’s NSUUID
property NSColor : a reference to current application’s NSColor
property NSArray : a reference to current application’s NSArray
property NSString : a reference to current application’s NSString
property NSImage : a reference to current application’s NSImage
property NSPredicate : a reference to current application’s NSPredicate
property NSDictionary : a reference to current application’s NSDictionary
property NSBezierPath : a reference to current application’s NSBezierPath
property NSColorSpace : a reference to current application’s NSColorSpace
property NSPNGFileType : a reference to current application’s NSPNGFileType
property NSFontManager : a reference to current application’s NSFontManager
property NSBitmapImageRep : a reference to current application’s NSBitmapImageRep
property NSMutableDictionary : a reference to current application’s NSMutableDictionary
property NSFontAttributeName : a reference to current application’s NSFontAttributeName
property NSKernAttributeName : a reference to current application’s NSKernAttributeName
property NSMutableParagraphStyle : a reference to current application’s NSMutableParagraphStyle
property NSLigatureAttributeName : a reference to current application’s NSLigatureAttributeName
property NSMutableAttributedString : a reference to current application’s NSMutableAttributedString
property NSUnderlineStyleAttributeName : a reference to current application’s NSUnderlineStyleAttributeName
property NSParagraphStyleAttributeName : a reference to current application’s NSParagraphStyleAttributeName
property NSForegroundColorAttributeName : a reference to current application’s NSForegroundColorAttributeName

property fillCharList : {}
property fillCharCounter : 1

set aString to "Love"
set bString to "hate"
set hanaSize to 24
set thisFont to selectAFont(first character of aString) of me
if thisFont = false then return –Cancel

–花文字文字列を作成
set fRes to getEnglishHanamojiStr(hanaSize, thisFont, aString, bString, 0.7, true, true) of me
makeNewDocument given parameter:fRes

–花文字文字列を計算して返す
on getEnglishHanamojiStr(aFontSize as real, aFontName as string, aString as string, fillString as string, aThread as real, incFontName as boolean, invertF as boolean)
　　
　　set my fillCharList to characters of fillString
　　set my fillCharCounter to 1
　　
　　–指定文字コードが指定フォント中に存在するかチェック
　　repeat with i in (characters of aString)
　　　　set fRes to retGlyphsInFont(aFontName, id of i) of me
　　　　if fRes = false then return false
　　end repeat
　　
　　set aThreadShould to 768 * aThread
　　if (chkMultiByteChar(first character of aString) of me) = false then
　　　　set spaceChar to string id 12288 –全角スペース（UTF-16）
　　else
　　　　set spaceChar to string id 32 –半角スペース
　　end if
　　
　　set fillColor to NSColor’s whiteColor –塗り色
　　set bString to aString & " " –処理内容の帳尻合わせ（そのままだと右端が欠けるのでスペースを入れた）
　　set anAssrStr to makeRTFfromParameters(bString, aFontName, aFontSize, -2, (aFontSize * 1.2)) of me
　　set aSize to anAssrStr’s |size|()
　　
　　if class of aSize = record then
　　　　set attrStrWidth to width of aSize
　　　　set attrStrHeight to height of aSize
　　else if class of aSize = list then –macOS 10.13.xのバグ回避
　　　　copy aSize to {attrStrWidth, attrStrHeight}
　　end if
　　
　　set {xPos, yPos} to {0, 0}
　　
　　set tmpImg1 to makeImageWithFilledColor(attrStrWidth, attrStrHeight, fillColor) of me
　　set tmpImg2 to drawAttributedStringsOnImage(tmpImg1, anAssrStr, xPos, yPos) of me
　　set aRawimg to NSBitmapImageRep’s imageRepWithData:(tmpImg2’s TIFFRepresentation())
　　
　　–画像から順次指定座標の色データを拾って花文字listに反映
　　set strList to {}
　　repeat with y from 1 to attrStrHeight – 1
　　　　
　　　　set strListX to {}
　　　　repeat with x from 0 to attrStrWidth – 1
　　　　　　set tmpCol to getColorFromRawImage(aRawimg, x, y) of me
　　　　　　
　　　　　　if invertF = false then
　　　　　　　　
　　　　　　　　–通常描画（invert = false）時
　　　　　　　　if tmpCol is not equal to false then
　　　　　　　　　　if tmpCol is not equal to {255, 255, 255} then
　　　　　　　　　　　　copy tmpCol to {tmpR, tmpG, tmpB}
　　　　　　　　　　　　if (tmpR + tmpG + tmpB) < aThreadShould then
　　　　　　　　　　　　　　set the end of strListX to getChar() of me
　　　　　　　　　　　　else
　　　　　　　　　　　　　　set the end of strListX to spaceChar
　　　　　　　　　　　　end if
　　　　　　　　　　else
　　　　　　　　　　　　set the end of strListX to spaceChar
　　　　　　　　　　end if
　　　　　　　　end if
　　　　　　　　
　　　　　　else
　　　　　　　　–白黒反転（invert = true)時
　　　　　　　　if tmpCol is not equal to false then
　　　　　　　　　　if tmpCol is not equal to {255, 255, 255} then
　　　　　　　　　　　　copy tmpCol to {tmpR, tmpG, tmpB}
　　　　　　　　　　　　if (tmpR + tmpG + tmpB) < aThreadShould then
　　　　　　　　　　　　　　set the end of strListX to spaceChar
　　　　　　　　　　　　else
　　　　　　　　　　　　　　set the end of strListX to getChar() of me
　　　　　　　　　　　　end if
　　　　　　　　　　else
　　　　　　　　　　　　set the end of strListX to getChar() of me
　　　　　　　　　　end if
　　　　　　　　end if
　　　　　　　　
　　　　　　end if
　　　　end repeat
　　　　set the end of strList to strListX
　　end repeat
　　
　　–2D List→Text
　　set aRes to list2dToStringByUsingDelimiters(strList, "", return) of me
　　
　　if incFontName = true then
　　　　set fName to getDisplayedNameOfFont(aFontName) of me
　　　　set aRes to "Font=" & fName & return & return & aRes
　　end if
　　
　　return aRes
end getEnglishHanamojiStr

on getChar()
　　set retChar to item (my fillCharCounter) of (my fillCharList)
　　if (my fillCharCounter) = length of (my fillCharList) then
　　　　set (my fillCharCounter) to 1
　　else
　　　　set (my fillCharCounter) to (my fillCharCounter) + 1
　　end if
　　return retChar
end getChar

–指定Raw画像中の指定座標のピクセルの色をRGBで取り出す
on getColorFromRawImage(aRawimg, x as real, y as real)
　　set aRatio to getImageRatio() of me –Retina Display対応
　　set origColor to (aRawimg’s colorAtX:(x * aRatio) y:(y * aRatio))
　　
　　set srgbColSpace to NSColorSpace’s deviceRGBColorSpace
　　if srgbColSpace = missing value then return false
　　
　　set aColor to (origColor’s colorUsingColorSpace:srgbColSpace)
　　
　　set aRed to (aColor’s redComponent()) * 255
　　set aGreen to (aColor’s greenComponent()) * 255
　　set aBlue to (aColor’s blueComponent()) * 255
　　
　　return {aRed as integer, aGreen as integer, aBlue as integer}
end getColorFromRawImage

–画像のうえに指定のスタイル付きテキストを描画して画像を返す
on drawAttributedStringsOnImage(anImage, anAssrStr, xPos as real, yPos as real)
　　anImage’s lockFocus()
　　anAssrStr’s drawAtPoint:(current application’s NSMakePoint(xPos, yPos))
　　anImage’s unlockFocus()
　　return anImage
end drawAttributedStringsOnImage

–書式つきテキストを組み立てる
on makeRTFfromParameters(aStr as string, fontName as string, aFontSize as real, aKerning as real, aLineSpacing as real)
　　set aVal1 to NSFont’s fontWithName:fontName |size|:aFontSize
　　set aKey1 to (NSFontAttributeName)
　　
　　set aVal2 to NSColor’s blackColor()
　　set aKey2 to (NSForegroundColorAttributeName)
　　
　　set aVal3 to aKerning
　　set akey3 to (NSKernAttributeName)
　　
　　set aVal4 to 0
　　set akey4 to (NSUnderlineStyleAttributeName)
　　
　　set aVal5 to 2 –all ligature ON
　　set akey5 to (NSLigatureAttributeName)
　　
　　set aParagraphStyle to NSMutableParagraphStyle’s alloc()’s init()
　　aParagraphStyle’s setMinimumLineHeight:(aLineSpacing)
　　aParagraphStyle’s setMaximumLineHeight:(aLineSpacing)
　　set akey7 to (NSParagraphStyleAttributeName)
　　
　　set keyList to {aKey1, aKey2, akey3, akey4, akey5, akey7}
　　set valList to {aVal1, aVal2, aVal3, aVal4, aVal5, aParagraphStyle}
　　set attrsDictionary to NSMutableDictionary’s dictionaryWithObjects:valList forKeys:keyList
　　
　　set attrStr to NSMutableAttributedString’s alloc()’s initWithString:aStr attributes:attrsDictionary
　　return attrStr
end makeRTFfromParameters

–指定サイズの画像を作成し、背景を指定色で塗る
on makeImageWithFilledColor(aWidth as real, aHeight as real, fillColor)
　　set anImage to NSImage’s alloc()’s initWithSize:(current application’s NSMakeSize(aWidth, aHeight))
　　set aRatio to getImageRatio() of me –Retina Display対応
　　
　　anImage’s lockFocus()
　　set theRect to {{x:0, y:0}, {width:aWidth * aRatio, height:aHeight * aRatio}}
　　set theNSBezierPath to NSBezierPath’s bezierPath
　　theNSBezierPath’s appendBezierPathWithRect:theRect
　　fillColor’s |set|()
　　theNSBezierPath’s fill()
　　anImage’s unlockFocus()
　　
　　return anImage
end makeImageWithFilledColor

–2D Listをアイテム間および行間のデリミタを個別に指定してテキスト変換
on list2dToStringByUsingDelimiters(aList as list, itemDelimiter, lineDelimiter)
　　set outList to {}
　　repeat with i in aList
　　　　set aStr to listToStringUsingTextItemDelimiter(i, itemDelimiter) of me
　　　　set the end of outList to aStr
　　end repeat
　　
　　set bStr to listToStringUsingTextItemDelimiter(outList, lineDelimiter) of me
　　return bStr
end list2dToStringByUsingDelimiters

on listToStringUsingTextItemDelimiter(sourceList as list, textItemDelimiter)
　　set CocoaArray to NSArray’s arrayWithArray:sourceList
　　set CocoaString to CocoaArray’s componentsJoinedByString:textItemDelimiter
　　return (CocoaString as string)
end listToStringUsingTextItemDelimiter

–ユーザー環境にインストールされているすべてのフォントのPostScript名とグリフ数を返す
on getEveryFontPSNameANdGlyphsNum(aStr)
　　set aFontList to NSFontManager’s sharedFontManager()’s availableFonts()
　　set thePred to NSPredicate’s predicateWithFormat:"NOT SELF BEGINSWITH ’.’"
　　set aFontList to (aFontList’s filteredArrayUsingPredicate:thePred) as list
　　
　　set aList to {}
　　repeat with i in aFontList
　　　　set aName to contents of i
　　　　set aNum to countNumberOfGlyphsInFont(aName) of me
　　　　set dName to getDisplayedNameOfFont(aName) of me
　　　　
　　　　set fRes to retGlyphsInFont(aName, id of aStr) of me
　　　　if fRes = true then
　　　　　　set the end of aList to {fontName:aName, fontNum:aNum, dispName:dName}
　　　　end if
　　end repeat
　　
　　return aList
end getEveryFontPSNameANdGlyphsNum

–指定Postscript名称のフォントに定義されている文字数を数えて返す
on countNumberOfGlyphsInFont(fontName as string)
　　set aFont to NSFont’s fontWithName:fontName |size|:9.0
　　if aFont = missing value then return false
　　set aProp to aFont’s numberOfGlyphs()
　　return aProp as number
end countNumberOfGlyphsInFont

–フォントのPostScript NameからDisplayed Nameを取得
on getDisplayedNameOfFont(aName as string)
　　set aFont to NSFont’s fontWithName:aName |size|:9.0
　　set aDispName to (aFont’s displayName()) as string
　　return aDispName
end getDisplayedNameOfFont

–全角文字が存在するか
on chkMultiByteChar(checkString as string)
　　set aStr to NSString’s stringWithString:checkString
　　set aRes to aStr’s canBeConvertedToEncoding:(current application’s NSASCIIStringEncoding)
　　return (aRes as boolean)
end chkMultiByteChar

–指定名称のフォントに指定の文字コードが含まれているかチェック
on retGlyphsInFont(fontName as string, strCode as integer)
　　set aFont to NSFont’s fontWithName:fontName |size|:24.0
　　if aFont = missing value then return false
　　set aSet to aFont’s coveredCharacterSet()
　　set aRes to (aSet’s characterIsMember:strCode) as boolean
　　return aRes as list of string or string –as anything
end retGlyphsInFont

on selectAFont(aString)
　　set fRes to getEveryFontPSNameANdGlyphsNum(aString) of me
　　set theArray to NSArray’s arrayWithArray:fRes
　　set thePred to NSPredicate’s predicateWithFormat:"fontNum > 10000"
　　set bArray to ((theArray’s filteredArrayUsingPredicate:thePred)’s valueForKeyPath:"dispName") as list
　　set thisFont to choose from list bArray
　　return thisFont
end selectAFont

–Retina Display対応ルーチン
on getImageRatio()
　　set retinaF to detectRetinaDisplay() of me
　　if retinaF = true then
　　　　return 2.0 as real
　　else
　　　　return 1.0 as real
　　end if
end getImageRatio

on detectRetinaDisplay()
　　set dispList to current application’s NSScreen’s screens()
　　set retinaF to false
　　
　　repeat with i in dispList
　　　　set j to contents of i
　　　　set aDepth to j’s backingScaleFactor()
　　　　if aDepth > 1.0 then
　　　　　　set retinaF to true
　　　　end if
　　end repeat
　　
　　return retinaF
end detectRetinaDisplay

on makeNewDocument given parameter:aStr
　　tell application id "com.coteditor.CotEditor"
　　　　activate
　　　　set newDoc to make new document
　　　　tell newDoc
　　　　　　set contents to aStr
　　　　end tell
　　end tell
end makeNewDocument

★Click Here to Open This Script　

クリップボード内のRTFをStyled Stringとして解釈して行ごとに分割して画面描画サイズ幅で昇順ソートして再結合

Posted on 2月 27 by Takaaki Naganoya

クリップボードにコピーしておいた書式つきテキストを、行ごとに画面上の描画サイズで昇順ソートし、再結合してクリップボードに転送するAppleScriptです。

ほぼ毎日使っているAppleScriptの改良版です。

Cocoaの機能を呼び出すと、AppleScript冒頭にproperty宣言文を書くことになりますが（書かなくてもいいんですが）、この宣言文を「プロポーショナルフォントを考慮しつつ実際の画面上の描画サイズを考慮」して短いものから長いものにソートして掲載しています。

ただし、従来のバージョンでは実際のフォントではなく一律に指定フォントで描画したさいの描画幅でソートしていたため、ごくまれに掲載時のリストが短い順になっていませんでした（世界中で誰も気にしてねえよ！　＾ー＾；）。

これを、実際の指定フォントやサイズを考慮した行単位のスタイル付きテキストに分解し、描画幅でソートしたあとにスタイル付きテキストを再合成するようにしました。

従来のOld Style AppleScriptではスタイル付きテキストの操作は一切できませんでしたが、Cocoaの機能を活用することでこのように自由度の高い処理ができるようになった、という好例です。

なお、本ルーチンによって厳密に描画幅でソートしても、Web掲載時にはWebブラウザのレンダリングのルール（＆ユーザー側で指定しているWebブラウザのフォント）が適用されるため、macOS上のアプリケーション上での見た目と若干違いが出るという残念な結果も出ています。

macOS標準装備のスクリプトメニューに入れて呼び出しています。

AppleScript名：クリップボード内のRTFをStyled Stringとして解釈して行ごとに分割して画面描画サイズ幅で昇順ソートして再結合

— Created 2017-04-24 by Shane Stanley
— Modified 2019-02-27 by Takaaki Naganoya
use AppleScript version "2.5"
use scripting additions
use framework "Foundation"
use framework "AppKit"
use bPlus : script "BridgePlus" –https://www.macosxautomation.com/applescript/apps/BridgePlus.html

–クリップボードの内容をNSAttributedStringに
set anAttr to my getClipboardASStyledText()
if anAttr = missing value then return

–Split Attributed Strings into lines
set attrList to splitAttributedStringByLines(anAttr) of me

–Sort by Width in ascending
set sortedList to shellSortListAscending(attrList, 1) of me

–Append Attributed Strings
set mutableReturn to NSMutableAttributedString’s alloc()’s initWithString:(return)
set outStr to NSMutableAttributedString’s alloc()’s initWithString:""

repeat with i in sortedList
　　copy i to {tmpWidth, tmpAttr}
　　(outStr’s appendAttributedString:tmpAttr)
　　
　　set tmpStr to tmpAttr’s |string|() as string
　　if (tmpStr does not end with string id 10) and (tmpStr does not end with string id 13) then
　　　　(outStr’s appendAttributedString:mutableReturn)
　　end if
end repeat

— Set Styled String to Clipboard
set theArray to {outStr}
restoreClipboard(theArray) of me

–Clipboardにデータを設定する
on restoreClipboard(theArray as list)
　　set thePasteboard to NSPasteboard’s generalPasteboard()
　　thePasteboard’s clearContents()
　　thePasteboard’s writeObjects:theArray
end restoreClipboard

–入れ子のリストを昇順ソート
on shellSortListAscending(a, keyItem)
　　return sort2DList(a, keyItem, {true}) of me
end shellSortListAscending

–入れ子のリストを降順ソート
on shellSortListDecending(a, keyItem)
　　return sort2DList(a, keyItem, {false}) of me
end shellSortListDecending

–2D Listをソート
on sort2DList(aList as list, sortIndexes as list, sortOrders as list)
　　load framework
　　–index値をAS流（アイテムが1はじまり）からCocoa流（アイテムが0はじまり）に変換
　　set newIndex to {}
　　repeat with i in sortIndexes
　　　　set j to contents of i
　　　　set j to j – 1
　　　　set the end of newIndex to j
　　end repeat
　　
　　–Sort TypeのListを作成（あえて外部から指定する内容でもない）
　　set sortTypes to {}
　　repeat (length of sortIndexes) times
　　　　set the end of sortTypes to "compare:"
　　end repeat
　　
　　–Sort
　　set resList to (current application’s SMSForder’s subarraysIn:(aList) sortedByIndexes:newIndex ascending:sortOrders sortTypes:sortTypes |error|:(missing value)) as list
　　return resList
end sort2DList

★Click Here to Open This Script　

クリップボードに入っているテキストをAppleScriptとみなして、構文確認してスタイル付きテキストに変換する v2

Posted on 2月 8 by Takaaki Naganoya

クリップボードに入っているテキストをAppleScriptとみなして構文確認を行い、AppleScriptの構文要素色分けを反映させたスタイル付きテキストを取得してクリップボードに入れるAppleScriptの改良版です。

初版が（フォントサイズもオリジナルのままだったので）あまり（資料作成用には）使い物にならず、機能を追加してみました。クリップボード中の文字のサイズを取得しておき、クリップボード中のテキストをAppleScriptとして構文確認してスタイル付きテキストを取得したあとで、最初に取得した文字サイズに変更して、再度クリップボードに書き戻しています。

テキスト（おそらくAppleScriptのプログラムあるいはその一部）をコピーした状態で本Scriptを実行します。

スタイル付きテキスト（NSAttributedString/NSMutableAttributedString）のフォントサイズを変更するようなAPIが存在していなかったので、元のスタイル付きテキストを細切れに読み込んで、各種情報に分解。分解した情報をもとに（フォントサイズだけ変更して）同じものを再構成する、というやり方でスタイル付きテキストのフォントサイズ変更を行なっています。

AppleScript自体にはもともとスタイル付きテキストを操作する機能は皆無なので、他のアプリケーションの機能を利用するか本ScriptのようにCocoaの機能を利用することになります。他のアプリケーションを操作しなくてもスタイル付きテキストを操作できるようになってきたことは、非常に意義のあることです。

AppleScript名：クリップボードに入っているテキストをAppleScriptとみなして、構文確認してスタイル付きテキストに変換する v2

— Created 2017-04-24 by Shane Stanley
— Modified 2019-02-05 by Takaaki Naganoya
use AppleScript version "2.5"
use scripting additions
use framework "Foundation"
use framework "AppKit"
use framework "OSAKit"

property NSFont : a reference to current application’s NSFont
property NSColor : a reference to current application’s NSColor
property OSANull : a reference to current application’s OSANull
property OSAScript : a reference to current application’s OSAScript
property OSALanguage : a reference to current application’s OSALanguage
property NSFontAttributeName : a reference to current application’s NSFontAttributeName
property OSALanguageInstance : a reference to current application’s OSALanguageInstance
property NSMutableAttributedString : a reference to current application’s NSMutableAttributedString
property NSForegroundColorAttributeName : a reference to current application’s NSForegroundColorAttributeName

–クリップボードの内容をNSAttributedStringに
set anAttr to my getClipboardASStyledText()
if anAttr = missing value then return
set maxSize to getAttributeStringFontSize(anAttr) of me
set theSource to (anAttr’s |string|()) as string

–OSデフォルトのOSA言語で構文確認してStyed Stringを取得する
repeat 2 times
　　set styledSourceText to compileTextAsAppleScriptStyledText(theSource) of me
　　if styledSourceText is not equal to false then exit repeat
　　set theSource to repChar(theSource, "“", "＼"") of me
　　set theSource to repChar(theSource, "”", "＼"") of me
end repeat

if styledSourceText is equal to false then
　　display dialog "Error: Non-AppleScript text" buttons {"OK"} default button 1
　　return
end if

–Make Font Size As Original Pasteboard
set outStyledString to changeAttributeStringFontSize(styledSourceText, maxSize) of me

— Set Styled AppleScript data to Clipboard
set theArray to {outStyledString}
restoreClipboard(theArray) of me

–テキストをデフォルトOSA言語で構文確認してStyled Stringを取得する
on compileTextAsAppleScriptStyledText(theSource)
　　set anOSALanguageInstance to OSALanguageInstance’s languageInstanceWithLanguage:(OSALanguage’s defaultLanguage())
　　
　　set theScript to OSAScript’s alloc()’s initWithSource:theSource fromURL:(missing value) languageInstance:anOSALanguageInstance usingStorageOptions:(OSANull)
　　set {theResult, theError} to theScript’s compileAndReturnError:(reference)
　　
　　if theResult as boolean is false then
　　　　return false
　　else
　　　　set sourceText to theScript’s source()
　　　　return (theScript’s richTextSource())
　　end if
end compileTextAsAppleScriptStyledText

–Clipboardにデータを設定する
on restoreClipboard(theArray as list)
　　set thePasteboard to current application’s NSPasteboard’s generalPasteboard()
　　thePasteboard’s clearContents()
　　thePasteboard’s writeObjects:theArray
end restoreClipboard

— クリップボードの内容をNSAttributedStringとして取り出して返す
on getClipboardASStyledText()
　　try
　　　　set theNSPasteboard to current application’s NSPasteboard’s generalPasteboard()
　　　　set theAttributedStringNSArray to theNSPasteboard’s readObjectsForClasses:({current application’s NSAttributedString}) options:(missing value)
　　　　set theNSAttributedString to theAttributedStringNSArray’s objectAtIndex:0
　　　　return theNSAttributedString
　　on error
　　　　return missing value
　　end try
end getClipboardASStyledText

–Styled String中の最大のフォントサイズを取得
on getAttributeStringFontSize(theStyledText)
　　set maxSize to 0
　　set thePureString to theStyledText’s |string|() –pure string from theStyledText
　　set theLength to theStyledText’s |length|()
　　
　　set startIndex to 0
　　
　　repeat until (startIndex = theLength)
　　　　set {theAtts, theRange} to theStyledText’s attributesAtIndex:startIndex longestEffectiveRange:(reference) inRange:{startIndex, theLength – startIndex}
　　　　
　　　　set aFont to (theAtts’s valueForKeyPath:"NSFont") –Font
　　　　if aFont is not equal to missing value then
　　　　　　set aDFontName to aFont’s displayName()
　　　　　　set aDFontSize to (aFont’s pointSize()) as real
　　　　end if
　　　　
　　　　if maxSize < aDFontSize then
　　　　　　set maxSize to aDFontSize
　　　　end if
　　　　
　　　　set startIndex to current application’s NSMaxRange(theRange)
　　end repeat
　　
　　return maxSize
end getAttributeStringFontSize

–Styled Stringのフォントサイズを指定のサイズに変更
on changeAttributeStringFontSize(theStyledText, targFontSize as real)
　　set outAttr to current application’s NSMutableAttributedString’s alloc()’s initWithString:""
　　
　　set thePureString to theStyledText’s |string|() –pure string from theStyledText
　　set theLength to theStyledText’s |length|()
　　set startIndex to 0
　　
　　repeat until (startIndex = theLength)
　　　　set {theAtts, theRange} to theStyledText’s attributesAtIndex:startIndex longestEffectiveRange:(reference) inRange:{startIndex, theLength – startIndex}
　　　　set aText to (thePureString’s substringWithRange:theRange) as string –String
　　　　set aColor to (theAtts’s valueForKeyPath:"NSColor") –Color
　　　　set aFont to (theAtts’s valueForKeyPath:"NSFont") –Font
　　　　if aFont is not equal to missing value then
　　　　　　set aDFontName to aFont’s displayName()
　　　　　　set aDFontSize to aFont’s pointSize()
　　　　end if
　　　　
　　　　set tmpAttrStr to changeAttrStrsFontAttribute(aText, aDFontName, targFontSize, aColor) of me
　　　　outAttr’s appendAttributedString:tmpAttrStr
　　　　
　　　　set startIndex to current application’s NSMaxRange(theRange)
　　end repeat
　　
　　return outAttr
end changeAttributeStringFontSize

–指定の文字列をAttributed Stringに変換して任意のフォントを一括指定
on changeAttrStrsFontAttribute(aStr, aFontPSName, aFontSize, aColor)
　　set tmpAttr to NSMutableAttributedString’s alloc()’s initWithString:aStr
　　set aRange to current application’s NSMakeRange(0, tmpAttr’s |length|())
　　set aVal1 to NSFont’s fontWithName:aFontPSName |size|:aFontSize
　　tmpAttr’s beginEditing()
　　tmpAttr’s addAttribute:(NSFontAttributeName) value:aVal1 range:aRange
　　tmpAttr’s addAttribute:(NSForegroundColorAttributeName) value:aColor range:aRange
　　tmpAttr’s endEditing()
　　return tmpAttr
end changeAttrStrsFontAttribute

★Click Here to Open This Script　

クリップボード中の書式つきテキストのフォントサイズを取得する

Posted on 2月 8 by Takaaki Naganoya

クリップボードに入っているデータを書式付きテキストとして評価して取得し、そのうち最大のフォントサイズを取得するAppleScriptです。

クリップボードに入っているデータをプレーンテキストとして取得して処理することはよくやっていたのですが、書式付きテキストとして処理することはあまりやっていなかったので、試してみたものです。

AppleScript名：クリップボード中の書式つきテキストのフォントサイズを取得する.scptd

–Created 2015-08-03 by Shane Stanley
–Modified 2019-02-06 by Takaaki Naganoya
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "AppKit" — for NSPasteboard

property NSFont : a reference to current application’s NSFont
property NSColor : a reference to current application’s NSColor
property NSString : a reference to current application’s NSString
property NSFontAttributeName : a reference to current application’s NSFontAttributeName
property NSMutableAttributedString : a reference to current application’s NSMutableAttributedString
property NSForegroundColorAttributeName : a reference to current application’s NSForegroundColorAttributeName

–クリップボードの内容をNSAttributedStringに
set anAttr to my getClipboardASStyledText()
if anAttr = missing value then return 0

set maxSize to getAttributeStringFontSize(anAttr) of me
–> 13.0

on getAttributeStringFontSize(theStyledText)
　　set maxSize to 0
　　set thePureString to theStyledText’s |string|() –pure string from theStyledText
　　set theLength to theStyledText’s |length|()
　　
　　set startIndex to 0
　　
　　repeat until (startIndex = theLength)
　　　　set {theAtts, theRange} to theStyledText’s attributesAtIndex:startIndex longestEffectiveRange:(reference) inRange:{startIndex, theLength – startIndex}
　　　　
　　　　–Font
　　　　set aFont to (theAtts’s valueForKeyPath:"NSFont")
　　　　if aFont is not equal to missing value then
　　　　　　set aDFontName to aFont’s displayName()
　　　　　　set aDFontSize to (aFont’s pointSize()) as real
　　　　end if
　　　　
　　　　if maxSize < aDFontSize then
　　　　　　set maxSize to aDFontSize
　　　　end if
　　　　set startIndex to current application’s NSMaxRange(theRange)
　　end repeat
　　
　　return maxSize
end getAttributeStringFontSize

★Click Here to Open This Script　

クリップボードに入っているテキストをAppleScriptとみなして、構文確認してスタイル付きテキストに変換する

Posted on 2月 7 by Takaaki Naganoya

クリップボードに入っているテキストをAppleScriptとみなして構文確認を行い、AppleScriptの構文要素色分けを反映させたスタイル付きテキストを取得してクリップボードに入れるAppleScriptです。

Keynoteの資料などでドキュメント（≒仕様書）を作っている途中で、AppleScriptのソース（の一部）を入れることがあり、間違ってプレーンテキストで載せていると読みにくくなります（個人の感想です）。

そこで、プレーンテキストになってしまったAppleScript（の一部のデータ）を実際に構文要素色分けを反映させたスタイル付きテキストに変換してクリップボードに設定します。

本Scriptでクリップボード内のテキストを処理し、Keynote上にペーストすると構文要素色分けが反映された状態になっています。

文字サイズを調整して、もとどおり？　Keynote上でダブルクォート（”）が自動で置き換えられてしまうので、その点のみScript内で置換を行なって構文確認を行なっています。

macOS標準装備のスクリプトメニューに入れて利用しています。

AppleScript名：クリップボードに入っているテキストをAppleScriptとみなして、構文確認してスタイル付きテキストに変換する

property NSUUID : a reference to current application’s NSUUID
property OSANull : a reference to current application’s OSANull
property NSString : a reference to current application’s NSString
property OSAScript : a reference to current application’s OSAScript
property NSDictionary : a reference to current application’s NSDictionary
property OSALanguage : a reference to current application’s OSALanguage
property OSALanguageInstance : a reference to current application’s OSALanguageInstance

— Get Data from Clipboard
set theSource to (the clipboard) as string
if theSource = "" then
　　display dialog "Error: Not Text" buttons {"OK"} default button 1
　　return
end if

repeat 2 times
　　set styledSourceText to compileTextAsAppleScriptStyledText(theSource) of me
　　if styledSourceText is not equal to false then exit repeat
　　set theSource to repChar(theSource, "“", "＼"") of me
　　set theSource to repChar(theSource, "”", "＼"") of me
end repeat

if styledSourceText is equal to false then
　　display dialog "Error: Non-AppleScript text" buttons {"OK"} default button 1
　　return
end if

— Set Styled AppleScript data to Clipboard
set theArray to {styledSourceText}
restoreClipboard(theArray) of me

on compileTextAsAppleScriptStyledText(theSource)
　　set anOSALanguageInstance to OSALanguageInstance’s languageInstanceWithLanguage:(OSALanguage’s defaultLanguage())
　　
　　set theScript to OSAScript’s alloc()’s initWithSource:theSource fromURL:(missing value) languageInstance:anOSALanguageInstance usingStorageOptions:(OSANull)
　　set {theResult, theError} to theScript’s compileAndReturnError:(reference)
　　
　　if theResult as boolean is false then
　　　　return false
　　else
　　　　set sourceText to theScript’s source()
　　　　return (theScript’s richTextSource())
　　end if
end compileTextAsAppleScriptStyledText

–From Shane Stanley’s Book "Everyday AppleScriptObjC"
on restoreClipboard(theArray as list)
　　set thePasteboard to current application’s NSPasteboard’s generalPasteboard()
　　thePasteboard’s clearContents()
　　thePasteboard’s writeObjects:theArray
end restoreClipboard

★Click Here to Open This Script　

AppleScript書類から操作対象のアプリケーション名をピックアップ

Posted on 10月 26, 2018 by Takaaki Naganoya

指定のAppleScript書類からコントロール対象のアプリケーション名称をピックアップするAppleScriptです。

指定のAppleScript書類からソースを書式付きテキスト形式で取得し、AppleScriptで処理しやすいように書式付きテキストをrecord化。一方でユーザー環境のplistファイルから、AppleScriptの構文色分け情報を取得します。

処理対象のAppleScript書類は処理しやすいように色情報や文字列情報、先頭からのアイテム番号（1D Array中の位置情報）などをrecord形式で格納しており、予約語「application」の出現位置を手掛かりに、「tell application id」のパターンと「tell application」のパターンを記述パターンを出現位置情報をもとに検出して、操作対象のアプリケーション名をピックアップします。

tell application “Finder”
　　—
end tell

tell application id “com.apple.Finder”
　　—
end tell

tell current application
　　—
end tell

set aVal to “iTunes”

tell application aVal
　　activate
end tell

tell application “/Applications/Safari.app”
　　properties
end tell

★Click Here to Open This Script　

のようなサンプルAppleScript書類を本AppleScriptで処理すると、

 --> {"Finder", "com.apple.Finder", "/Applications/Safari.app"}

のような結果が返ってきます。アプリケーション名を変数に入れて操作対象アプリケーションを間接指定するようなケースは除外しています。直接指定しているものだけです。

作成した目的は、macOS 10.14上でAppleScriptから操作する対象を最初（Scriptの冒頭部分）にまとめて、冒頭部分でactivateコマンドなど無難なコマンドで操作し、ユーザーの許可をまとめて得るように書き換えるためです（Code Signしていても初回は聞かれてしまうので。ああ、かったるい）。

AppleScriptで操作対象のアプリケーションで、すでにコントロール許可が出ているかどうか「tccutil」コマンドで確認し、きちんと許可されているかを確認するとよさそうです。

基本的な動作原理そのものが、スクリプトエディタ上で指定した構文色分けで重複色が存在していないことを前提にしているので、そのようにスクリプトエディタ上で指定してください。なお、スクリプトエディタ上では16bitの色を指定しますが、実際には256色に落として判定するので、各構文要素に対する色は8bitに落としても差異が発生するような値で違いを指定しておく必要があります。

また、スクリプトエディタのほかにScript Debuggerを同時に起動していると、Script Debuggerがplistを書き換えることがあるようなので、スクリプトエディタ上で構文要素色分けの設定を変更する場合にはあらかじめScript Debuggerを終了させておいてください。

AppleScript名：AppleScript書類から指定の構文要素をピックアップ（アプリケーション名）

— Created 2018-10-26 by Takaaki Naganoya
— 2018 Piyomaru Software
use AppleScript version “2.5”
use scripting additions
use framework “Foundation”
use framework “OSAKit”

property |NSURL| : a reference to current application’s |NSURL|
property OSANull : a reference to current application’s OSANull
property NSArray : a reference to current application’s NSArray
property NSString : a reference to current application’s NSString
property OSAScript : a reference to current application’s OSAScript
property NSPredicate : a reference to current application’s NSPredicate
property NSDictionary : a reference to current application’s NSDictionary
property NSUnarchiver : a reference to current application’s NSUnarchiver
property OSALanguage : a reference to current application’s OSALanguage
property NSCountedSet : a reference to current application’s NSCountedSet
property OSALanguageInstance : a reference to current application’s OSALanguageInstance

script spd
　　property aRecList : {}
end script

set aFile to choose file of type {“com.apple.applescript.script-bundle”, “com.apple.applescript.script”} with prompt “Choose AppleScript document file”

–AppleScriptのソースをAttributed Stringとして読み込んで、Dictionaryに変換
set (aRecList of spd) to getAttrRecFromASPath(aFile) of me

–plistからAppleScriptの構文色分け情報を取得する
set cList to getAppleScriptSourceColors() of me

–構文色分けの重複色チェック
set cRes to chkASLexicalFormatColorConfliction(cList) of me
if cRes = false then error “There is some duplicate(s) color among AppleScript’s lexical color settings”

–呼び出しているアプリケーション名を抽出
set appNames to getAppNames(cList, (aRecList of spd)) of me
return appNames
–> {“Finder”, “com.apple.Finder”, “/Applications/Safari”}

–アプリケーション名一覧を取得する
on getAppNames(cList, aRecList)
　　script spdHnd
　　　　property aRecList : {}
　　end script
　　
　　set (aRecList of spdHnd) to aRecList
　　set tmp1Array to NSArray’s arrayWithArray:(aRecList of spdHnd)
　　
　　set targAttr to contents of item 11 of cList –クラス
　　set tmpCoStr to ((redValue of targAttr) as string) & ” “ & ((greenValue of targAttr) as string) & ” “ & ((blueValue of targAttr) as string)
　　
　　set targAttr to contents of item 13 of cList –列挙値
　　set tmpCoStr2 to ((redValue of targAttr) as string) & ” “ & ((greenValue of targAttr) as string) & ” “ & ((blueValue of targAttr) as string)
　　
　　set ontoColItem to contents of item 3 of cList –スクリプティング予約語（on/to）
　　set ontoCoStr to ((redValue of ontoColItem) as string) & ” “ & ((greenValue of ontoColItem) as string) & ” “ & ((blueValue of ontoColItem) as string)
　　
　　set valColItem to contents of item 7 of cList –変数名/ハンドラ名称
　　set valCoStr to ((redValue of valColItem) as string) & ” “ & ((greenValue of valColItem) as string) & ” “ & ((blueValue of valColItem) as string)
　　
　　–“application”文字＆”class”属性をリストアップ
　　set thePred0 to NSPredicate’s predicateWithFormat_(“stringVal == %@ && colorStr == %@”, “application”, tmpCoStr)
　　set appArray to ((tmp1Array’s filteredArrayUsingPredicate:thePred0)’s valueForKeyPath:“itemIndex”) as list
　　
　　–“tell”（オブジェクト指定）の項目をリストアップ
　　set thePred2 to NSPredicate’s predicateWithFormat_(“stringVal == %@ && colorStr == %@”, “tell”, ontoCoStr)
　　set tellArray to ((tmp1Array’s filteredArrayUsingPredicate:thePred2)’s valueForKeyPath:“itemIndex”) as list
　　
　　–空白文字を含むデータをリストアップ(text data contains white space)
　　set thePred1 to NSPredicate’s predicateWithFormat_(“stringVal == %@”, ” “)
　　set whiteArray to ((tmp1Array’s filteredArrayUsingPredicate:thePred1)’s valueForKeyPath:“itemIndex”) as list
　　
　　–“id”（列挙値）をリストアップ
　　set thePred1 to NSPredicate’s predicateWithFormat_(“stringVal == %@ && colorStr == %@”, “id”, tmpCoStr2)
　　set idArray to ((tmp1Array’s filteredArrayUsingPredicate:thePred1)’s valueForKeyPath:“itemIndex”) as list
　　
　　–変数/ハンドラ名称をリストアップ
　　set thePred3 to NSPredicate’s predicateWithFormat_(“colorStr == %@”, valCoStr)
　　set valArray to ((tmp1Array’s filteredArrayUsingPredicate:thePred3)’s valueForKeyPath:“itemIndex”) as list
　　
　　
　　set handlerList to {}
　　
　　–tell 対象のアプリケーション名の抽出（変数に名称を入れているパターンには未対応）
　　repeat with i in appArray –“application”のアイテム番号リスト
　　　　set j to (contents of i) as integer
　　　　
　　　　if ((j – 2) is in tellArray) and ((j + 2) is in idArray) then
　　　　　　–tell application id
　　　　　　set handlerStr to stringVal of (item (j + 4) of ((aRecList of spdHnd) as list))
　　　　　　set handlerStr to repChar(handlerStr, “＼””, “”) of me
　　　　　　
　　　　else if (j – 2) is in tellArray then
　　　　　　–通常のtell application
　　　　　　if (j + 2) is not in valArray then –アプリケーション名を変数で間接指定しているケースを除外
　　　　　　　　set handlerStr to stringVal of (item (j + 2) of ((aRecList of spdHnd) as list))
　　　　　　　　set handlerStr to repChar(handlerStr, “＼””, “”) of me
　　　　　　end if
　　　　else
　　　　　　set handlerStr to missing value
　　　　　　
　　　　end if
　　　　
　　　　if (handlerStr is not in handlerList) and (handlerStr is not equal to “id”) then
　　　　　　if (handlerStr is not equal to missing value) then
　　　　　　　　set the end of handlerList to handlerStr
　　　　　　end if
　　　　end if
　　　　
　　end repeat
　　
　　return handlerList
end getAppNames

on getAttrRecFromASPath(aFile)
　　set theSource to getASsourceFor(aFile) of me
　　
　　— create a new AppleScript instance
　　set anOSALanguageInstance to OSALanguage’s languageForName:“AppleScript”
　　
　　set theScript to OSAScript’s alloc()’s initWithSource:theSource fromURL:(missing value) languageInstance:anOSALanguageInstance usingStorageOptions:(OSANull)
　　set {theResult, theError} to theScript’s compileAndReturnError:(reference)
　　
　　if theResult as boolean is false then
　　　　— handle error
　　　　error “Compile Error”
　　else
　　　　set sourceText to theScript’s source()
　　　　set styledSourceText to theScript’s richTextSource()
　　end if
　　
　　set attrRes to getAttributeRunsFromAttrString(styledSourceText) of me
　　return attrRes
end getAttrRecFromASPath

–指定AppleScriptファイルのソースコードを取得する（実行専用Scriptからは取得できない）
— Original Created 2014-02-23 Shane Stanley
on getASsourceFor(anAlias as {alias, string})
　　set anHFSpath to anAlias as string
　　set aURL to |NSURL|’s fileURLWithPath:(POSIX path of anHFSpath)
　　set theScript to OSAScript’s alloc()’s initWithContentsOfURL:aURL |error|:(missing value)
　　return theScript’s source() as text
end getASsourceFor

–Attributed StringをDictionary化
on getAttributeRunsFromAttrString(theStyledText)
　　script aSpd
　　　　property styleList : {}
　　end script
　　
　　set (styleList of aSpd) to {} —for output
　　
　　set thePureString to theStyledText’s |string|() –pure string from theStyledText
　　
　　set theLength to theStyledText’s |length|()
　　set startIndex to 0
　　set itemCount to 1
　　
　　repeat until (startIndex = theLength)
　　　　set {theAtts, theRange} to theStyledText’s attributesAtIndex:startIndex longestEffectiveRange:(reference) inRange:{startIndex, theLength – startIndex}
　　　　
　　　　–String　　
　　　　set aText to (thePureString’s substringWithRange:theRange) as string
　　　　
　　　　–Color
　　　　set aColor to (theAtts’s valueForKeyPath:“NSColor”)
　　　　if aColor is not equal to missing value then
　　　　　　set aSpace to aColor’s colorSpace()
　　　　　　
　　　　　　set aRed to (aColor’s redComponent()) * 255
　　　　　　set aGreen to (aColor’s greenComponent()) * 255
　　　　　　set aBlue to (aColor’s blueComponent()) * 255
　　　　　　
　　　　　　set colList to {aRed as integer, aGreen as integer, aBlue as integer} –for comparison
　　　　　　set colStrForFind to (aRed as integer as string) & ” “ & (aGreen as integer as string) & ” “ & (aBlue as integer as string) –for filtering
　　　　else
　　　　　　set colList to {0, 0, 0}
　　　　　　set colStrForFind to “0 0 0”
　　　　end if
　　　　
　　　　–Font
　　　　set aFont to (theAtts’s valueForKeyPath:“NSFont”)
　　　　if aFont is not equal to missing value then
　　　　　　set aDFontName to aFont’s displayName()
　　　　　　set aDFontSize to aFont’s pointSize()
　　　　end if
　　　　
　　　　set the end of (styleList of aSpd) to {stringVal:aText, colorStr:colStrForFind, colorVal:colList, fontName:aDFontName as string, fontSize:aDFontSize, itemIndex:itemCount}
　　　　set startIndex to current application’s NSMaxRange(theRange)
　　　　
　　　　set itemCount to itemCount + 1
　　end repeat
　　
　　return (styleList of aSpd)
　　
end getAttributeRunsFromAttrString

–AppleScriptの構文色分けのカラー値をRGBで取得する
on getAppleScriptSourceColors()
　　
　　— get the plist info as a dictionary
　　set thePath to NSString’s stringWithString:“~/Library/Preferences/com.apple.applescript.plist”
　　set thePath to thePath’s stringByExpandingTildeInPath()
　　set theInfo to NSDictionary’s dictionaryWithContentsOfFile:thePath
　　
　　— extract relevant part and loop through
　　set theArray to (theInfo’s valueForKey:“AppleScriptSourceAttributes”) as list
　　
　　set colList to {}
　　
　　repeat with i from 1 to count of theArray
　　　　set anEntry to item i of theArray
　　　　
　　　　set colorData to NSColor of anEntry
　　　　set theColor to (NSUnarchiver’s unarchiveObjectWithData:colorData)
　　　　
　　　　set {rVal, gVal, bVal} to retColListFromNSColor(theColor, 255) of me
　　　　
　　　　set fontData to NSFont of anEntry
　　　　set theFont to (NSUnarchiver’s unarchiveObjectWithData:fontData)
　　　　
　　　　set aFontName to theFont’s displayName() as text
　　　　set aFontSize to theFont’s pointSize()
　　　　
　　　　set aColRec to {redValue:rVal, greenValue:gVal, blueValue:bVal, fontName:aFontName, fontSize:aFontSize}
　　　　
　　　　set the end of colList to aColRec
　　end repeat
　　
　　return colList
end getAppleScriptSourceColors

–NSColorからRGBの値を取り出す
on retColListFromNSColor(aCol, aMAX as integer)
　　set aRed to round ((aCol’s redComponent()) * aMAX) rounding as taught in school
　　set aGreen to round ((aCol’s greenComponent()) * aMAX) rounding as taught in school
　　set aBlue to round ((aCol’s blueComponent()) * aMAX) rounding as taught in school
　　
　　if aRed > aMAX then set aRed to aMAX
　　if aGreen > aMAX then set aGreen to aMAX
　　if aBlue > aMAX then set aBlue to aMAX
　　
　　return {aRed, aGreen, aBlue}
end retColListFromNSColor

–AS書式で配色に重複がないかどうかチェック
on chkASLexicalFormatColorConfliction(aList as list)
　　set anArray to NSArray’s arrayWithArray:aList
　　set bList to (anArray’s valueForKeyPath:“redValue.stringValue”) as list
　　set cList to (anArray’s valueForKeyPath:“greenValue.stringValue”) as list
　　set dList to (anArray’s valueForKeyPath:“blueValue.stringValue”) as list
　　
　　set colStrList to {}
　　repeat with i from 1 to (length of bList)
　　　　set bItem to contents of item i of bList
　　　　set cItem to contents of item i of cList
　　　　set dItem to contents of item i of dList
　　　　set the end of colStrList to bItem & ” “ & cItem & ” “ & dItem
　　end repeat
　　
　　set aRes to returnDuplicatesOnly(colStrList) of me
　　if aRes is equal to {} then
　　　　return true –重複が存在しなかった場合
　　else
　　　　return false –重複があった場合
　　end if
end chkASLexicalFormatColorConfliction

on returnDuplicatesOnly(aList as list)
　　set aSet to NSCountedSet’s alloc()’s initWithArray:aList
　　set bList to (aSet’s allObjects()) as list
　　
　　set dupList to {}
　　repeat with i in bList
　　　　set aRes to (aSet’s countForObject:i)
　　　　if aRes > 1 then
　　　　　　set the end of dupList to (contents of i)
　　　　end if
　　end repeat
　　
　　return dupList
end returnDuplicatesOnly

–文字置換ルーチン
on repChar(origText as string, targStr as string, repStr as string)
　　set {txdl, AppleScript’s text item delimiters} to {AppleScript’s text item delimiters, targStr}
　　set temp to text items of origText
　　set AppleScript’s text item delimiters to repStr
　　set res to temp as text
　　set AppleScript’s text item delimiters to txdl
　　return res
end repChar

★Click Here to Open This Script　

Stickiesからのデータ取り出し v2

Posted on 9月 6, 2018 by Takaaki Naganoya

スティッキーズ（Stickies.app）のデータをまとめて引っこ抜いてListに入れるAppleScriptです。色情報、１行目の内容をタイトルとみなしてタイトル情報も付加して出力するようにしてみました。

オープンソースのStickiesViewerをFramework化したstickiesLib.frameworkを経由してデータを読み出します。データベースファイルから情報を直接読み取るので、Stickies.appが起動している必要はありません。

–> Download stickiesLib.framework（To ~/Library/Frameworks/）

–> {creationDate:date “2006年1月15日日曜日 11:02:32″, aTitle:”WX-310Kの画像サイズ”, modificationDate:date “2006年1月15日日曜日 11:03:09″, aContents:”WX-310Kの画像サイズ
ケータイ：120×160
壁紙：240×320″, colorName:”Yellow”}

StickiesDatabaseからまとめて一括で全部抽出するので、個別に何かのIDで指定して抽出するといった動作にはなりません。

93個のスティッキーズ書類（93個のウィンドウが表示されている状態、１つのDBを指定）から、全データを取得して0.1秒程度です。

AppleScript名：Stickiesからのデータ取り出し v2.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2018/09/05
—
–　　Copyright © 2018 Piyomaru Software, All Rights Reserved
—

use AppleScript version "2.5" — El Capitan (10.11) or later
use framework "Foundation"
use framework "AppKit"
use framework "stickiesLib"
use scripting additions

property NSColor : a reference to current application’s NSColor
property |NSURL| : a reference to current application’s |NSURL|
property SVReader : a reference to current application’s SVReader
property NSFileManager : a reference to current application’s NSFileManager
property NSMutableArray : a reference to current application’s NSMutableArray

set sRes to retStickiesData() of me
–>
(*
{{creationDate:date "2006年1月15日日曜日 11:02:32", aTitle:"WX-310Kの画像サイズ", modificationDate:date "2006年1月15日日曜日 11:03:09", aContents:"WX-310Kの画像サイズ
ケータイ：120×160
壁紙：240×320", colorName:"Yellow"}, ….}
*)

on retStickiesData()
　　set dbPath to POSIX path of (path to library folder from user domain) & "StickiesDatabase"
　　set aExt to (NSFileManager’s defaultManager()’s fileExistsAtPath:dbPath) as boolean
　　
　　if aExt = false then
　　　　set dbPath to POSIX path of (choose file with prompt "Select StickiesDatabase file")
　　end if
　　
　　set aURL to |NSURL|’s fileURLWithPath:dbPath
　　set aStickDB to SVReader’s notesWithContentsOfURL:aURL
　　
　　set aList to aStickDB as list
　　
　　–スティッキーズの色データ
　　set cList to {{"Yellow", {254, 244, 156}}, {"Blue", {173, 244, 255}}, {"Green", {178, 255, 161}}, {"Pink", {255, 199, 199}}, {"Purple", {182, 202, 255}}, {"Gray", {238, 238, 238}}}
　　
　　
　　set outArray to NSMutableArray’s new()
　　
　　repeat with i in aList
　　　　set anAttrStr to i’s attributedString()
　　　　set aStr to (anAttrStr’s |string|()) as string
　　　　
　　　　set curTitle to first paragraph of aStr
　　　　
　　　　set aColor to i’s |color|()
　　　　set cDate to i’s dateCreated() as date
　　　　set mDate to i’s dateModified() as date
　　　　
　　　　set c1List to retColListFromNSColor(aColor, 255) of me
　　　　
　　　　–Find Color Name
　　　　set hitF to false
　　　　repeat with ii in cList
　　　　　　set {colName, colList} to ii
　　　　　　if c1List = colList then
　　　　　　　　set hitF to true
　　　　　　　　exit repeat
　　　　　　end if
　　　　end repeat
　　　　
　　　　if hitF = false then error "Color name did not hit"
　　　　
　　　　set curName to colName
　　　　(outArray’s addObject:{creationDate:cDate, modificationDate:mDate, aContents:aStr, colorName:curName, aTitle:curTitle})
　　　　
　　end repeat
　　
　　return outArray as list
end retStickiesData

on retColorFromRGBnum(r, g, b)
　　return (NSColor’s colorWithCalibratedRed:r / 255.0 green:g / 255.0 blue:b / 255.0 alpha:1.0)
end retColorFromRGBnum

–NSColorからrgbの8bitの値を取り出す
on retColListFromNSColor(aCol, aMAX as integer)
　　set aRed to round ((aCol’s redComponent()) * aMAX) rounding as taught in school
　　set aGreen to round ((aCol’s greenComponent()) * aMAX) rounding as taught in school
　　set aBlue to round ((aCol’s blueComponent()) * aMAX) rounding as taught in school
　　return {aRed, aGreen, aBlue}
end retColListFromNSColor

★Click Here to Open This Script　

Stickiesからのデータ取り出し

Posted on 9月 5, 2018 by Takaaki Naganoya

スティッキーズ（Stickies.app）のデータをまとめて引っこ抜いてListに入れるAppleScriptです。

オープンソースのStickiesViewerをFramework化したstickiesLib.frameworkを経由してデータを読み出します。データベースファイルから情報を直接読み取るので、Stickeys.appが起動している必要はありません。

–> Download stickiesLib.framework（To ~/Library/Frameworks/）

昔はいろいろ苦労したような気がするのですが、あっさりデータを取り出せて驚きます。

色情報も取り出していますが、色名を取り出すにはややScriptがおおげさになるので、とりあえず作成日、修正日、テキストを取り出してみました。

AppleScript名：Stickiesからのデータ取り出し v1.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2018/09/05
—
–　　Copyright © 2018 Piyomaru Software, All Rights Reserved
—

use AppleScript version "2.4" — Yosemite (10.10) or later
use scripting additions
use framework "Foundation"
use framework "stickiesLib" –https://github.com/kainjow/StickiesViewer

set aFile to POSIX path of (choose file default location (path to library folder from user domain) with prompt "Select StickiesDatabase file")

set aURL to current application’s |NSURL|’s fileURLWithPath:aFile
set aList to (current application’s SVReader’s notesWithContentsOfURL:aURL) as list

set outList to {}

repeat with i in aList
　　set anAttrStr to i’s attributedString()
　　set aStr to (anAttrStr’s |string|()) as string
　　
　　set aColor to i’s |color|()
　　set cDate to i’s dateCreated() as date
　　set mDate to i’s dateModified() as date
　　
　　set the end of outList to {creationDate:cDate, modificationDate:mDate, aContents:aStr}
end repeat

return outList

★Click Here to Open This Script　

WordPressの指定IDの記事にリンクされているapplescriptからCocoa Classのproperty宣言を抽出 v3

Posted on 8月 5, 2018 by Takaaki Naganoya

本BlogのようなWordPressで運用されており、AppleScriptのURLリンクを記事に埋め込んでいるWordPressに対して、XML-RPC経由で指定IDの記事本文を取得し、埋め込まれているURLリンクからAppleScriptのソースコードを取得して、メモリー上でコンパイルして書式つきテキストに変換し、AppleScript構文書式をもとにpropertyラベルを抽出、そのうちCocoa Classのみをリストで取得するAppleScriptです。

本Blogに投稿した記事から宣言しているCocoa Classを抽出し、自動でタグ付けするために準備したものです。１記事に対して複数のAppleScriptが掲載されている場合にも対応しています。

HTMLReader.frameworkを用いてBlog本文からのリンク抽出、リンクURL抽出を行っています。

–> HTMLReader.framework（To ~/Library/Frameworks/）

本Sample Scriptで指定したIDの記事のproperty部分はこのようになっており、

本Scriptの実行によって抽出されたCocoa Class（単なる変数的なproperty項目や、Enumは対象外のため排除）は、

–> {“NSString”, “NSArray”, “OSAScript”, “NSPredicate”, “OSALanguage”, “NSDictionary”, “OSALanguageInstance”, “NSBundle”, “NSUnarchiver”}

のようになります。自分の環境でMacBook Proを有線ネットワーク接続した状態で、3.3〜3.4秒程度かかっています。大量の記事を処理する場合には本AppleScriptの並列処理を行うと処理時間の大幅な短縮が期待できます（MacのCPUがサーマルスロットリングで速度低下しなければ）。

また、負荷が集中している特定コアの動作周波数を上げ、他のコアの動作周波数を落とすTurbo Boostが有効な状態で並列処理を実行すると、並列処理を行う意義そのものが低下してしまうため、Turbo-Boost-Switcherのようなツールの併用が必要と思われます。

AppleScript名：WordPressの指定IDの記事にリンクされているapplescriptからCocoa Classのproperty宣言を抽出 v3

— Created 2018-07-30 by Takaaki Naganoya
— Modified 2018-08-05 by Takaaki Naganoya
— 2018 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "AppKit"
use framework "OSAKit"
use framework "HTMLReader" –https://github.com/nolanw/HTMLReader

property |NSURL| : a reference to current application’s |NSURL|
property NSArray : a reference to current application’s NSArray
property NSString : a reference to current application’s NSString
property NSBundle : a reference to current application’s NSBundle
property NSThread : a reference to current application’s NSThread
property OSAScript : a reference to current application’s OSAScript
property NSPredicate : a reference to current application’s NSPredicate
property NSTextView : a reference to current application’s NSTextView
property NSDictionary : a reference to current application’s NSDictionary
property NSUnarchiver : a reference to current application’s NSUnarchiver
property OSALanguage : a reference to current application’s OSALanguage
property OSAScriptView : a reference to current application’s OSAScriptView
property NSMutableArray : a reference to current application’s NSMutableArray
property OSAScriptController : a reference to current application’s OSAScriptController
property NSMutableDictionary : a reference to current application’s NSMutableDictionary
property OSALanguageInstance : a reference to current application’s OSALanguageInstance
property NSUTF8StringEncoding : a reference to current application’s NSUTF8StringEncoding

set postID to 3864
set {myUser, myPass} to getAcountData() of me
set aURL to "http://piyocast.com/as/xmlrpc.php"
set cocoaClassList to getCocoaPropListFromPost(aURL, postID, myUser, myPass) of me
–>　　{"NSString", "NSBundle", "NSPredicate", "NSDictionary", "NSMutableArray", "NSMutableDictionary"}

–指定Blogの指定IDの記事にURLリンクされているAppleScriptから、Cocoa Classのpropertyのみ取得する
on getCocoaPropListFromPost(aURL, postID, myUser, myPass)
　　–AppleScriptの構文色分け設定ファイルを読み込んで、重複色のチェックを実施　　
　　set cList to getAppleScriptSourceColors() of me
　　set cRes to chkASLexicalFormatColorConfliction(cList) of me –構文色分けの重複色チェック
　　if cRes = false then error "There is some duplicate(s) color among AppleScript’s lexical color settings"
　　
　　–WordPressの指定Post IDの記事を取得してリンクされているURLからURL Schemeでフィルタして、リンクされているAppleScriptのソースを取得
　　set aScheme to "applescript://"
　　set sourceList to getASSouceLinkedInWordPressPost(postID, aURL, aScheme, myUser, myPass) of me
　　
　　–AppleScriptのソースをRAM上でコンパイル（構文確認）して、構文色分けしたRTFを取得。RTFの書式情報をparseしてattribute runsと同様のrecordを生成
　　–構文色分けをもとにproperty項目を抽出し、Cocoa Classに該当するもののみを抽出
　　set outList to {}
　　repeat with i in sourceList
　　　　set j to contents of i
　　　　set anAttrStr to compileASandReturnAttributedString(j) of me
　　　　set attrRes to getAttributeRunsFromAttrString(anAttrStr) of me
　　　　set propNames to getPropertyNamesCocoaOnly(cList, attrRes) of me
　　　　
　　　　if propNames is not equal to {} then
　　　　　　set outList to outList & propNames
　　　　end if
　　end repeat
　　
　　–1D Listのユニーク化（重複要素の排除）
　　set aArray to NSArray’s arrayWithArray:outList
　　set bArray to aArray’s valueForKeyPath:"@distinctUnionOfObjects.self"
　　set bList to bArray as list of string or string –as anything
　　
　　return bList
end getCocoaPropListFromPost

–Property名称を取得する
on getPropertyNamesCocoaOnly(cList, aRec)
　　script spdHnd
　　　　property aRec : {}
　　end script
　　
　　set (aRec of spdHnd) to aRec
　　
　　set targAttr to contents of item 7 of cList –ハンドラあるいは変数
　　set tmpCoStr to ((redValue of targAttr) as string) & " " & ((greenValue of targAttr) as string) & " " & ((blueValue of targAttr) as string)
　　
　　set ontoColItem to contents of item 3 of cList –スクリプティング予約語（on/to）
　　set ontoCoStr to ((redValue of ontoColItem) as string) & " " & ((greenValue of ontoColItem) as string) & " " & ((blueValue of ontoColItem) as string)
　　
　　
　　–変数あるいはハンドラ名称をリストアップ(variables & handler)
　　set tmp1Array to NSArray’s arrayWithArray:(aRec of spdHnd)
　　set thePred0 to NSPredicate’s predicateWithFormat_("colorStr == %@", tmpCoStr)
　　set dArray to (tmp1Array’s filteredArrayUsingPredicate:thePred0) as list
　　
　　–改行を含むデータをリストアップ(text data contains return)
　　set thePred1 to NSPredicate’s predicateWithFormat_("stringVal CONTAINS %@", return)
　　set eArray to ((tmp1Array’s filteredArrayUsingPredicate:thePred1)’s valueForKeyPath:"itemIndex") as list
　　
　　set the beginning of eArray to 0 –ハンドラ宣言部がTopに来る場合に備える
　　
　　–"property"（プロパティ宣言）の項目をリストアップ文字と色で抽出
　　set thePred2 to NSPredicate’s predicateWithFormat_("stringVal == %@ && colorStr == %@ ", "property", ontoCoStr)
　　set fArray to ((tmp1Array’s filteredArrayUsingPredicate:thePred2)’s valueForKeyPath:"itemIndex") as list
　　
　　set handlerList to {}
　　
　　–property ではじまるハンドラの抽出
　　repeat with i in eArray –改行を含むテキストのアイテム番号リスト
　　　　set j to (contents of i) as integer
　　　　repeat with ii in fArray –"on"の項目リスト
　　　　　　set jj to (contents of ii) as integer
　　　　　　
　　　　　　set handlerStr to missing value
　　　　　　
　　　　　　if (j + 1) = jj then
　　　　　　　　set handlerStr to stringVal of (item (jj + 2) of ((aRec of spdHnd) as list))
　　　　　　else if (j + 2) = jj then
　　　　　　　　set handlerStr to stringVal of (item (jj + 2) of ((aRec of spdHnd) as list))
　　　　　　end if
　　　　　　
　　　　　　set tmpStr to repChar(handlerStr, "|", "") of me
　　　　　　
　　　　　　if tmpStr is not in {"error", missing value} and tmpStr is not in handlerList then
　　　　　　　　–抽出したProperty宣言がCocoa Classのものかどうか判定
　　　　　　　　if searchClassInFrameworks(tmpStr) of me is not equal to false then
　　　　　　　　　　set the end of handlerList to tmpStr
　　　　　　　　end if
　　　　　　end if
　　　　　　
　　　　end repeat
　　end repeat
　　
　　return handlerList
end getPropertyNamesCocoaOnly

–RAM上にスクリプトエディタと同じ部品を組み立て（非表示）、AppleScriptのソーステキストからObjectを生成し、Attributed Stringデータを返す
on compileASandReturnAttributedString(theSource as string)
　　set targX to 1024 –View Width
　　set targY to 2048 –View Height
　　
　　set osaCon to current application’s OSAScriptController’s alloc()’s init()
　　set osaView to current application’s OSAScriptView’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, 0, targX, targY))
　　
　　set resView to NSTextView’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, 0, targX, targY))
　　resView’s setRichText:true
　　resView’s useAllLigatures:true
　　
　　osaCon’s setScriptView:osaView
　　osaCon’s setLanguage:(OSALanguage’s languageForName:"AppleScript")
　　osaCon’s setResultView:resView
　　
　　osaView’s setString:theSource
　　osaCon’s compileScript:(missing value) –Compile（構文確認）
　　
　　set aRes to (osaView’s attributedString())
　　
　　return aRes
end compileASandReturnAttributedString

–Attributed StringをDictionary化
on getAttributeRunsFromAttrString(theStyledText)
　　script aSpd
　　　　property styleList : {}
　　end script
　　
　　set (styleList of aSpd) to {} —for output
　　
　　set thePureString to theStyledText’s |string|() –pure string from theStyledText
　　
　　set theLength to theStyledText’s |length|()
　　set startIndex to 0
　　set itemCount to 1
　　
　　repeat until (startIndex = theLength)
　　　　set {theAtts, theRange} to theStyledText’s attributesAtIndex:startIndex longestEffectiveRange:(reference) inRange:{startIndex, theLength – startIndex}
　　　　
　　　　–String　　
　　　　set aText to (thePureString’s substringWithRange:theRange) as string
　　　　
　　　　–Color
　　　　set aColor to (theAtts’s valueForKeyPath:"NSColor")
　　　　if aColor is not equal to missing value then
　　　　　　set aSpace to aColor’s colorSpace()
　　　　　　
　　　　　　set aRed to (aColor’s redComponent()) * 255
　　　　　　set aGreen to (aColor’s greenComponent()) * 255
　　　　　　set aBlue to (aColor’s blueComponent()) * 255
　　　　　　
　　　　　　set colList to {aRed as integer, aGreen as integer, aBlue as integer} –for comparison
　　　　　　set colStrForFind to (aRed as integer as string) & " " & (aGreen as integer as string) & " " & (aBlue as integer as string) –for filtering
　　　　else
　　　　　　set colList to {0, 0, 0}
　　　　　　set colStrForFind to "0 0 0"
　　　　end if
　　　　
　　　　–Font
　　　　set aFont to (theAtts’s valueForKeyPath:"NSFont")
　　　　if aFont is not equal to missing value then
　　　　　　set aDFontName to aFont’s displayName()
　　　　　　set aDFontSize to aFont’s pointSize()
　　　　end if
　　　　
　　　　set the end of (styleList of aSpd) to {stringVal:aText, colorStr:colStrForFind, colorVal:colList, fontName:aDFontName as string, fontSize:aDFontSize, itemIndex:itemCount}
　　　　set startIndex to current application’s NSMaxRange(theRange)
　　　　
　　　　set itemCount to itemCount + 1
　　end repeat
　　
　　return (styleList of aSpd)
　　
end getAttributeRunsFromAttrString

–指定クラスがいずれかのCocoa Frameworkに所属しているかを検索
on searchClassInFrameworks(aTarget)
　　set aClass to current application’s NSClassFromString(aTarget)
　　if aClass = missing value then return false
　　set theComponenents to (NSBundle’s bundleForClass:aClass)’s bundleURL’s pathComponents()
　　set thePred to NSPredicate’s predicateWithFormat:"pathExtension == ’framework’"
　　set aRes to (theComponenents’s filteredArrayUsingPredicate:thePred)’s firstObject() as list of string or string
　　return aRes
end searchClassInFrameworks

–指定Post IDのWordPress記事から、指定SchemeのURLを抽出し、AS Sourceをdecodeしてproperty行のみ抽出
on getASSouceLinkedInWordPressPost(postID, aURL, aScheme, myUser, myPass)
　　–call xmlrpc命令に対するURLの間接指定を有効にするために、AppleScriptの構文解釈機能をダミーURLでだます
　　using terms from application "http://piyocast.com/as/xmlrpc.php" –URLと判定されればなんでもいい
　　　　tell application aURL
　　　　　　set wRes to (call xmlrpc {method name:"wp.getPost", parameters:{"1", myUser, myPass, postID as string}})
　　　　end tell
　　end using terms from
　　
　　set aBody to post_content of wRes –Blog本文
　　
　　–記事中でリンクしているURLを取得し、指定のURL Schemeでフィルタする
　　set urlList to filterURLLinksByScheme(aBody, aScheme) of me
　　
　　set propList to {}
　　
　　repeat with i in urlList
　　　　set j to contents of i
　　　　set urlRec to parseQueryDictFromURLString(j) of me
　　　　set tmpScript to (urlRec’s |script|) as string –Get AppleScript Source
　　　　
　　　　set propList to propList & tmpScript
　　end repeat
　　
　　return propList
end getASSouceLinkedInWordPressPost

on parseQueryDictFromURLString(aURLStr as string)
　　if aURLStr = "" then error "No URL String"
　　
　　set aURL to |NSURL|’s URLWithString:aURLStr
　　set aQuery to aURL’s query() –Get Query string part from URL
　　if aQuery’s |length|() = 0 then return false
　　
　　set aDict to NSMutableDictionary’s alloc()’s init()
　　set aParamList to (aQuery’s componentsSeparatedByString:"&") as list
　　
　　repeat with i in aParamList
　　　　set j to contents of i
　　　　if length of j > 0 then
　　　　　　set tmpStr to (NSString’s stringWithString:j)
　　　　　　set eList to (tmpStr’s componentsSeparatedByString:"=")
　　　　　　set anElement to (eList’s firstObject()’s stringByReplacingPercentEscapesUsingEncoding:(NSUTF8StringEncoding))
　　　　　　set aValStr to (eList’s lastObject()’s stringByReplacingPercentEscapesUsingEncoding:(NSUTF8StringEncoding))
　　　　　　(aDict’s setObject:aValStr forKey:anElement)
　　　　end if
　　end repeat
　　
　　return aDict
end parseQueryDictFromURLString

–指定のHTML文字列から、Link URLを抽出し、schemeで再抽出する
on filterURLLinksByScheme(aBody, aScheme)
　　set conType to "text/html"
　　
　　–HTML文字列をいったんNSDataにしているのは、HTMLReader.frameworkの仕様のため
　　set aData to (current application’s NSString’s stringWithString:aBody)’s dataUsingEncoding:(current application’s NSUTF8StringEncoding)
　　set aHTML to current application’s HTMLDocument’s documentWithData:aData contentTypeHeader:conType
　　
　　set aTextArray to ((aHTML’s nodesMatchingSelector:"a")’s textContent) as list –リンク文字
　　set aLinkList to ((aHTML’s nodesMatchingSelector:"a")’s attributes’s valueForKeyPath:"href") as list –URL文字列
　　
　　set outList to {}
　　repeat with i in aLinkList
　　　　set j to contents of i
　　　　if j begins with aScheme then
　　　　　　set the end of outList to j
　　　　end if
　　end repeat
　　
　　return outList
end filterURLLinksByScheme

–AppleScriptの構文色分けのカラー値をRGBで取得する
on getAppleScriptSourceColors()
　　— get the plist info as a dictionary
　　set thePath to NSString’s stringWithString:"~/Library/Preferences/com.apple.applescript.plist"
　　set thePath to thePath’s stringByExpandingTildeInPath()
　　set theInfo to NSDictionary’s dictionaryWithContentsOfFile:thePath
　　
　　— extract relevant part and loop through
　　set theArray to (theInfo’s valueForKey:"AppleScriptSourceAttributes") as list
　　
　　set colList to {}
　　
　　repeat with i from 1 to count of theArray
　　　　set anEntry to item i of theArray
　　　　
　　　　set colorData to NSColor of anEntry
　　　　set theColor to (NSUnarchiver’s unarchiveObjectWithData:colorData)
　　　　
　　　　set {rVal, gVal, bVal} to retColListFromNSColor(theColor, 255) of me
　　　　
　　　　set fontData to NSFont of anEntry
　　　　set theFont to (NSUnarchiver’s unarchiveObjectWithData:fontData)
　　　　
　　　　set aFontName to theFont’s displayName() as text
　　　　set aFontSize to theFont’s pointSize()
　　　　
　　　　set aColRec to {redValue:rVal, greenValue:gVal, blueValue:bVal, fontName:aFontName, fontSize:aFontSize}
　　　　
　　　　set the end of colList to aColRec
　　end repeat
　　
　　return colList
end getAppleScriptSourceColors

–AS書式で配色に重複がないかどうかチェック
on chkASLexicalFormatColorConfliction(aList)
　　set anArray to current application’s NSArray’s arrayWithArray:aList
　　set bList to (anArray’s valueForKeyPath:"redValue.stringValue") as list
　　set cList to (anArray’s valueForKeyPath:"greenValue.stringValue") as list
　　set dList to (anArray’s valueForKeyPath:"blueValue.stringValue") as list
　　
　　set colStrList to {}
　　repeat with i from 1 to (length of bList)
　　　　set bItem to contents of item i of bList
　　　　set cItem to contents of item i of cList
　　　　set dItem to contents of item i of dList
　　　　set the end of colStrList to bItem & " " & cItem & " " & dItem
　　end repeat
　　
　　set aRes to returnDuplicatesOnly(colStrList) of me
　　if aRes is equal to {} then
　　　　return true –重複が存在しなかった場合
　　else
　　　　return false –重複があった場合
　　end if
end chkASLexicalFormatColorConfliction

on returnDuplicatesOnly(aList as list)
　　set aSet to current application’s NSCountedSet’s alloc()’s initWithArray:aList
　　set bList to (aSet’s allObjects()) as list
　　
　　set dupList to {}
　　repeat with i in bList
　　　　set aRes to (aSet’s countForObject:i)
　　　　if aRes > 1 then
　　　　　　set the end of dupList to (contents of i)
　　　　end if
　　end repeat
　　
　　return dupList
end returnDuplicatesOnly

on getAcountData()
　　return {"xxxxxxxx_xx", "XXXXXXXXXXXXXXXXXXXXXXXX"} –user name, password
end getAcountData

★Click Here to Open This Script　

AppleScript書類から指定の構文要素をピックアップ（Cocoa Property名称）して文字列化

Posted on 8月 4, 2018 by Takaaki Naganoya

指定のAppleScript書類を自前で解析して、Cocoa Classのproperty宣言が行われている内容をピックアップして、Blogのタグ用にカンマ区切りの文字列を出力するAppleScriptです。

ローカルに存在しているAppleScript書類が処理対象なので、OSバージョンなど実行条件を満たしていればどのMacの環境でも実行可能です。

「AppleScript書類から指定の構文要素をピックアップ（Cocoa Property名称）」の結果をカンマ区切りのテキストに変換するだけなので、そのルーチンを追加して呼び出しただけです。

元になっているルーチン同様、AppleScript構文色分けの設定データ中に色の重複があるとエラーになります。また、一度もスクリプトエディタを起動していない環境では、設定ファイル自体が存在しておらず、エラーになる可能性があります。

本AppleScriptで本AppleScript書類を処理すると、

–> “NSArray, NSString, NSBundle, OSAScript, NSPredicate, NSDictionary, NSUnarchiver, OSALanguage, OSALanguageInstance”

という結果が得られます。これをBlogへの投稿時に「タグ」欄にコピペで突っ込みます。

すると、WordPressのタグに反映されます。

AppleScript名：AppleScript書類から指定の構文要素をピックアップ（Cocoa Property名称）して文字列化

— Created 2018-04-20 by Takaaki Naganoya
— Modified 2018-08-03 by Takaaki Naganoya
— Modified 2018-08-04 by Takaaki Naganoya
— 2018 Piyomaru Software
use AppleScript version "2.5"
use scripting additions
use framework "Foundation"
use framework "OSAKit"
use framework "AppKit"

property OSANull : a reference to current application’s OSANull
property NSArray : a reference to current application’s NSArray
property NSString : a reference to current application’s NSString
property NSBundle : a reference to current application’s NSBundle
property OSAScript : a reference to current application’s OSAScript
property NSPredicate : a reference to current application’s NSPredicate
property NSDictionary : a reference to current application’s NSDictionary
property NSUnarchiver : a reference to current application’s NSUnarchiver
property OSALanguage : a reference to current application’s OSALanguage
property OSALanguageInstance : a reference to current application’s OSALanguageInstance

set aFile to choose file of type {"com.apple.applescript.script-bundle", "com.apple.applescript.script"}

set aRec to getAttrRecFromASPath(aFile) of me

set cList to getAppleScriptSourceColors() of me
set cRes to chkASLexicalFormatColorConfliction(cList) of me –構文色分けの重複色チェック
if cRes = false then error "There is some duplicate(s) color among AppleScript’s lexical color settings"

set propNames to getPropertyNamesCocoaOnly(cList, aRec) of me

set bList to my retStrFromArrayWithDelimiter(propNames, ", ")
–> "NSArray, NSString, NSBundle, OSAScript, NSPredicate, NSDictionary, NSUnarchiver, OSALanguage, OSALanguageInstance"
–（↑）　本Scriptで本Scriptを処理した結果

–Property名称を取得する
on getPropertyNamesCocoaOnly(cList, aRec)
　　script spdHnd
　　　　property aRec : {}
　　end script
　　
　　set (aRec of spdHnd) to aRec
　　
　　set targAttr to contents of item 7 of cList –ハンドラあるいは変数
　　set tmpCoStr to ((redValue of targAttr) as string) & " " & ((greenValue of targAttr) as string) & " " & ((blueValue of targAttr) as string)
　　
　　set ontoColItem to contents of item 3 of cList –スクリプティング予約語（on/to）
　　set ontoCoStr to ((redValue of ontoColItem) as string) & " " & ((greenValue of ontoColItem) as string) & " " & ((blueValue of ontoColItem) as string)
　　
　　
　　–変数あるいはハンドラ名称をリストアップ(variables & handler)
　　set tmp1Array to NSArray’s arrayWithArray:(aRec of spdHnd)
　　set thePred0 to NSPredicate’s predicateWithFormat_("colorStr == %@", tmpCoStr)
　　set dArray to (tmp1Array’s filteredArrayUsingPredicate:thePred0) as list
　　
　　–改行を含むデータをリストアップ(text data contains return)
　　set thePred1 to NSPredicate’s predicateWithFormat_("stringVal CONTAINS %@", return)
　　set eArray to ((tmp1Array’s filteredArrayUsingPredicate:thePred1)’s valueForKeyPath:"itemIndex") as list
　　
　　set the beginning of eArray to 0 –ハンドラ宣言部がTopに来る場合に備える
　　
　　–"property"（プロパティ宣言）の項目をリストアップ文字と色で抽出
　　set thePred2 to NSPredicate’s predicateWithFormat_("stringVal == %@ && colorStr == %@ ", "property", ontoCoStr)
　　set fArray to ((tmp1Array’s filteredArrayUsingPredicate:thePred2)’s valueForKeyPath:"itemIndex") as list
　　
　　set handlerList to {}
　　
　　–property ではじまるハンドラの抽出
　　repeat with i in eArray –改行を含むテキストのアイテム番号リスト
　　　　set j to (contents of i) as integer
　　　　repeat with ii in fArray –"on"の項目リスト
　　　　　　set jj to (contents of ii) as integer
　　　　　　
　　　　　　set handlerStr to missing value
　　　　　　
　　　　　　if (j + 1) = jj then
　　　　　　　　set handlerStr to stringVal of (item (jj + 2) of ((aRec of spdHnd) as list))
　　　　　　else if (j + 2) = jj then
　　　　　　　　set handlerStr to stringVal of (item (jj + 2) of ((aRec of spdHnd) as list))
　　　　　　end if
　　　　　　
　　　　　　if handlerStr is not in {"error", missing value} and handlerStr is not in handlerList then
　　　　　　　　–抽出したProperty宣言がCocoa Classのものかどうか判定
　　　　　　　　if searchClassInFrameworks(handlerStr) of me is not equal to false then
　　　　　　　　　　set the end of handlerList to handlerStr
　　　　　　　　end if
　　　　　　end if
　　　　　　
　　　　end repeat
　　end repeat
　　
　　return handlerList
end getPropertyNamesCocoaOnly

on getAttrRecFromASPath(aFile)
　　set theSource to getASsourceFor(aFile) of me
　　
　　— create a new AppleScript instance
　　set anOSALanguageInstance to OSALanguage’s languageForName:"AppleScript"
　　
　　set theScript to OSAScript’s alloc()’s initWithSource:theSource fromURL:(missing value) languageInstance:anOSALanguageInstance usingStorageOptions:(OSANull)
　　set {theResult, theError} to theScript’s compileAndReturnError:(reference)
　　
　　if theResult as boolean is false then
　　　　— handle error
　　　　error "Compile Error"
　　else
　　　　set sourceText to theScript’s source()
　　　　set styledSourceText to theScript’s richTextSource()
　　end if
　　
　　set attrRes to getAttributeRunsFromAttrString(styledSourceText) of me
　　return attrRes
end getAttrRecFromASPath

–指定AppleScriptファイルのソースコードを取得する（実行専用Scriptからは取得できない）
— Original Created 2014-02-23 Shane Stanley
on getASsourceFor(anAlias as {alias, string})
　　set anHFSpath to anAlias as string
　　set aURL to current application’s |NSURL|’s fileURLWithPath:(POSIX path of anHFSpath)
　　set theScript to current application’s OSAScript’s alloc()’s initWithContentsOfURL:aURL |error|:(missing value)
　　return theScript’s source() as text
end getASsourceFor

–Attributed StringをDictionary化
on getAttributeRunsFromAttrString(theStyledText)
　　script aSpd
　　　　property styleList : {}
　　end script
　　
　　set (styleList of aSpd) to {} —for output
　　
　　set thePureString to theStyledText’s |string|() –pure string from theStyledText
　　
　　set theLength to theStyledText’s |length|()
　　set startIndex to 0
　　set itemCount to 1
　　
　　repeat until (startIndex = theLength)
　　　　set {theAtts, theRange} to theStyledText’s attributesAtIndex:startIndex longestEffectiveRange:(reference) inRange:{startIndex, theLength – startIndex}
　　　　
　　　　–String　　
　　　　set aText to (thePureString’s substringWithRange:theRange) as string
　　　　
　　　　–Color
　　　　set aColor to (theAtts’s valueForKeyPath:"NSColor")
　　　　if aColor is not equal to missing value then
　　　　　　set aSpace to aColor’s colorSpace()
　　　　　　
　　　　　　set aRed to (aColor’s redComponent()) * 255
　　　　　　set aGreen to (aColor’s greenComponent()) * 255
　　　　　　set aBlue to (aColor’s blueComponent()) * 255
　　　　　　
　　　　　　set colList to {aRed as integer, aGreen as integer, aBlue as integer} –for comparison
　　　　　　set colStrForFind to (aRed as integer as string) & " " & (aGreen as integer as string) & " " & (aBlue as integer as string) –for filtering
　　　　else
　　　　　　set colList to {0, 0, 0}
　　　　　　set colStrForFind to "0 0 0"
　　　　end if
　　　　
　　　　–Font
　　　　set aFont to (theAtts’s valueForKeyPath:"NSFont")
　　　　if aFont is not equal to missing value then
　　　　　　set aDFontName to aFont’s displayName()
　　　　　　set aDFontSize to aFont’s pointSize()
　　　　end if
　　　　
　　　　set the end of (styleList of aSpd) to {stringVal:aText, colorStr:colStrForFind, colorVal:colList, fontName:aDFontName as string, fontSize:aDFontSize, itemIndex:itemCount}
　　　　set startIndex to current application’s NSMaxRange(theRange)
　　　　
　　　　set itemCount to itemCount + 1
　　end repeat
　　
　　return (styleList of aSpd)
　　
end getAttributeRunsFromAttrString

–AppleScriptの構文色分けのカラー値をRGBで取得する
on getAppleScriptSourceColors()
　　
　　— get the plist info as a dictionary
　　set thePath to NSString’s stringWithString:"~/Library/Preferences/com.apple.applescript.plist"
　　set thePath to thePath’s stringByExpandingTildeInPath()
　　set theInfo to NSDictionary’s dictionaryWithContentsOfFile:thePath
　　
　　— extract relevant part and loop through
　　set theArray to (theInfo’s valueForKey:"AppleScriptSourceAttributes") as list
　　
　　set colList to {}
　　
　　repeat with i from 1 to count of theArray
　　　　set anEntry to item i of theArray
　　　　
　　　　set colorData to NSColor of anEntry
　　　　set theColor to (NSUnarchiver’s unarchiveObjectWithData:colorData)
　　　　
　　　　set {rVal, gVal, bVal} to retColListFromNSColor(theColor, 255) of me
　　　　
　　　　set fontData to NSFont of anEntry
　　　　set theFont to (NSUnarchiver’s unarchiveObjectWithData:fontData)
　　　　
　　　　set aFontName to theFont’s displayName() as text
　　　　set aFontSize to theFont’s pointSize()
　　　　
　　　　set aColRec to {redValue:rVal, greenValue:gVal, blueValue:bVal, fontName:aFontName, fontSize:aFontSize}
　　　　
　　　　set the end of colList to aColRec
　　end repeat
　　
　　return colList
end getAppleScriptSourceColors

–リストを指定デリミタをはさんでテキスト化
on retStrFromArrayWithDelimiter(aList, aDelim)
　　set anArray to NSArray’s arrayWithArray:aList
　　set aRes to anArray’s componentsJoinedByString:aDelim
　　return aRes as list of string or string
end retStrFromArrayWithDelimiter

–テキストを指定デリミタでリスト化
on parseByDelim(aData, aDelim)
　　set aText to current application’s NSString’s stringWithString:aData
　　set aList to aText’s componentsSeparatedByString:aDelim
　　return aList as list
end parseByDelim

★Click Here to Open This Script　

AppleScript書類から指定の構文要素をピックアップ（Cocoa Property名称）

Posted on 8月 4, 2018 by Takaaki Naganoya

指定のAppleScript書類をコンパイル（構文確認）して、構文色分けからproperty宣言を抽出し、さらにCocoa Classの宣言のみ抽出するAppleScriptです。

AppleScript書類を処理するAppleScriptです。スクリプトエディタをコントロールせず、plistから構文色分け情報を取得し、OSAScript経由でソースコードを取得し、メモリー上でコンパイル（構文確認）してリッチテキストを取得し、構文色分け情報にもとづいてproperty宣言を抽出します。

Script Editorをコントロールしないことで、Script Debugger用のツールを作成するときに使えます（構文色分け情報のみScript Editorをコントロールしてもかまわないのですが）。

構文色分け情報をもとに構文要素を判定するため、構文色分け色に重複しているものがあるとエラーにしています。RGB値で1でも違えば「別の色」とみなします。

本Blogへの投稿時に、使用Cocoa Class名を文字列化して取得できるので、早くも役に立っています。

「WordPressの指定IDの記事にリンクされているapplescriptからCocoa Classのproperty宣言を抽出」と組み合わせて、すでに投稿してあるWordPressの記事（Post）から取得したソースから本Scriptを併用してCocoa Class名のみを抽出すればよいでしょう。

AppleScript名：AppleScript書類から指定の構文要素をピックアップ（Cocoa Property名称）

— Created 2018-04-20 by Takaaki Naganoya
— Modified 2018-08-03 by Takaaki Naganoya
— 2018 Piyomaru Software
use AppleScript version "2.5"
use scripting additions
use framework "Foundation"
use framework "OSAKit"
use framework "AppKit"

set aFile to choose file of type {"com.apple.applescript.script-bundle", "com.apple.applescript.script"}

set aRec to getAttrRecFromASPath(aFile) of me

set propNames to getPropertyNamesCocoaOnly(cList, aRec) of me
–>　　{"NSArray", "NSString", "NSBundle", "OSAScript", "NSPredicate", "NSDictionary", "NSUnarchiver", "OSALanguage", "OSALanguageInstance"}
–（↑）　本Scriptで本Scriptを処理した結果

–Property名称を取得する
on getPropertyNamesCocoaOnly(cList, aRec)
　　script spdHnd
　　　　property aRec : {}
　　end script
　　
　　set (aRec of spdHnd) to aRec
　　
　　set targAttr to contents of item 7 of cList –ハンドラあるいは変数
　　set tmpCoStr to ((redValue of targAttr) as string) & " " & ((greenValue of targAttr) as string) & " " & ((blueValue of targAttr) as string)
　　
　　set ontoColItem to contents of item 3 of cList –スクリプティング予約語（on/to）
　　set ontoCoStr to ((redValue of ontoColItem) as string) & " " & ((greenValue of ontoColItem) as string) & " " & ((blueValue of ontoColItem) as string)
　　
　　
　　–変数あるいはハンドラ名称をリストアップ(variables & handler)
　　set tmp1Array to NSArray’s arrayWithArray:(aRec of spdHnd)
　　set thePred0 to NSPredicate’s predicateWithFormat_("colorStr == %@", tmpCoStr)
　　set dArray to (tmp1Array’s filteredArrayUsingPredicate:thePred0) as list
　　
　　–改行を含むデータをリストアップ(text data contains return)
　　set thePred1 to NSPredicate’s predicateWithFormat_("stringVal CONTAINS %@", return)
　　set eArray to ((tmp1Array’s filteredArrayUsingPredicate:thePred1)’s valueForKeyPath:"itemIndex") as list
　　
　　set the beginning of eArray to 0 –ハンドラ宣言部がTopに来る場合に備える
　　
　　–"property"（プロパティ宣言）の項目をリストアップ文字と色で抽出
　　set thePred2 to NSPredicate’s predicateWithFormat_("stringVal == %@ && colorStr == %@ ", "property", ontoCoStr)
　　set fArray to ((tmp1Array’s filteredArrayUsingPredicate:thePred2)’s valueForKeyPath:"itemIndex") as list
　　
　　set handlerList to {}
　　
　　–property ではじまるハンドラの抽出
　　repeat with i in eArray –改行を含むテキストのアイテム番号リスト
　　　　set j to (contents of i) as integer
　　　　repeat with ii in fArray –"on"の項目リスト
　　　　　　set jj to (contents of ii) as integer
　　　　　　
　　　　　　set handlerStr to missing value
　　　　　　
　　　　　　if (j + 1) = jj then
　　　　　　　　set handlerStr to stringVal of (item (jj + 2) of ((aRec of spdHnd) as list))
　　　　　　else if (j + 2) = jj then
　　　　　　　　set handlerStr to stringVal of (item (jj + 2) of ((aRec of spdHnd) as list))
　　　　　　end if
　　　　　　
　　　　　　if handlerStr is not in {"error", missing value} and handlerStr is not in handlerList then
　　　　　　　　–抽出したProperty宣言がCocoa Classのものかどうか判定
　　　　　　　　if searchClassInFrameworks(handlerStr) of me is not equal to false then
　　　　　　　　　　set the end of handlerList to handlerStr
　　　　　　　　end if
　　　　　　end if
　　　　　　
　　　　end repeat
　　end repeat
　　
　　return handlerList
end getPropertyNamesCocoaOnly

on getAttrRecFromASPath(aFile)
　　set theSource to getASsourceFor(aFile) of me
　　
　　— create a new AppleScript instance
　　set anOSALanguageInstance to OSALanguage’s languageForName:"AppleScript"
　　
　　set theScript to OSAScript’s alloc()’s initWithSource:theSource fromURL:(missing value) languageInstance:anOSALanguageInstance usingStorageOptions:(OSANull)
　　set {theResult, theError} to theScript’s compileAndReturnError:(reference)
　　
　　if theResult as boolean is false then
　　　　— handle error
　　　　error "Compile Error"
　　else
　　　　set sourceText to theScript’s source()
　　　　set styledSourceText to theScript’s richTextSource()
　　end if
　　
　　set attrRes to getAttributeRunsFromAttrString(styledSourceText) of me
　　return attrRes
end getAttrRecFromASPath

–指定AppleScriptファイルのソースコードを取得する（実行専用Scriptからは取得できない）
— Original Created 2014-02-23 Shane Stanley
on getASsourceFor(anAlias as {alias, string})
　　set anHFSpath to anAlias as string
　　set aURL to current application’s |NSURL|’s fileURLWithPath:(POSIX path of anHFSpath)
　　set theScript to current application’s OSAScript’s alloc()’s initWithContentsOfURL:aURL |error|:(missing value)
　　return theScript’s source() as text
end getASsourceFor

–Attributed StringをDictionary化
on getAttributeRunsFromAttrString(theStyledText)
　　script aSpd
　　　　property styleList : {}
　　end script
　　
　　set (styleList of aSpd) to {} —for output
　　
　　set thePureString to theStyledText’s |string|() –pure string from theStyledText
　　
　　set theLength to theStyledText’s |length|()
　　set startIndex to 0
　　set itemCount to 1
　　
　　repeat until (startIndex = theLength)
　　　　set {theAtts, theRange} to theStyledText’s attributesAtIndex:startIndex longestEffectiveRange:(reference) inRange:{startIndex, theLength – startIndex}
　　　　
　　　　–String　　
　　　　set aText to (thePureString’s substringWithRange:theRange) as string
　　　　
　　　　–Color
　　　　set aColor to (theAtts’s valueForKeyPath:"NSColor")
　　　　if aColor is not equal to missing value then
　　　　　　set aSpace to aColor’s colorSpace()
　　　　　　
　　　　　　set aRed to (aColor’s redComponent()) * 255
　　　　　　set aGreen to (aColor’s greenComponent()) * 255
　　　　　　set aBlue to (aColor’s blueComponent()) * 255
　　　　　　
　　　　　　set colList to {aRed as integer, aGreen as integer, aBlue as integer} –for comparison
　　　　　　set colStrForFind to (aRed as integer as string) & " " & (aGreen as integer as string) & " " & (aBlue as integer as string) –for filtering
　　　　else
　　　　　　set colList to {0, 0, 0}
　　　　　　set colStrForFind to "0 0 0"
　　　　end if
　　　　
　　　　–Font
　　　　set aFont to (theAtts’s valueForKeyPath:"NSFont")
　　　　if aFont is not equal to missing value then
　　　　　　set aDFontName to aFont’s displayName()
　　　　　　set aDFontSize to aFont’s pointSize()
　　　　end if
　　　　
　　　　set the end of (styleList of aSpd) to {stringVal:aText, colorStr:colStrForFind, colorVal:colList, fontName:aDFontName as string, fontSize:aDFontSize, itemIndex:itemCount}
　　　　set startIndex to current application’s NSMaxRange(theRange)
　　　　
　　　　set itemCount to itemCount + 1
　　end repeat
　　
　　return (styleList of aSpd)
　　
end getAttributeRunsFromAttrString

–AppleScriptの構文色分けのカラー値をRGBで取得する
on getAppleScriptSourceColors()
　　
　　— get the plist info as a dictionary
　　set thePath to NSString’s stringWithString:"~/Library/Preferences/com.apple.applescript.plist"
　　set thePath to thePath’s stringByExpandingTildeInPath()
　　set theInfo to NSDictionary’s dictionaryWithContentsOfFile:thePath
　　
　　— extract relevant part and loop through
　　set theArray to (theInfo’s valueForKey:"AppleScriptSourceAttributes") as list
　　
　　set colList to {}
　　
　　repeat with i from 1 to count of theArray
　　　　set anEntry to item i of theArray
　　　　
　　　　set colorData to NSColor of anEntry
　　　　set theColor to (NSUnarchiver’s unarchiveObjectWithData:colorData)
　　　　
　　　　set {rVal, gVal, bVal} to retColListFromNSColor(theColor, 255) of me
　　　　
　　　　set fontData to NSFont of anEntry
　　　　set theFont to (NSUnarchiver’s unarchiveObjectWithData:fontData)
　　　　
　　　　set aFontName to theFont’s displayName() as text
　　　　set aFontSize to theFont’s pointSize()
　　　　
　　　　set aColRec to {redValue:rVal, greenValue:gVal, blueValue:bVal, fontName:aFontName, fontSize:aFontSize}
　　　　
　　　　set the end of colList to aColRec
　　end repeat
　　
　　return colList
end getAppleScriptSourceColors

★Click Here to Open This Script　

指定パスのAppleScript書類のソース取得＆コンパイルして結果をスタイル付きテキストで取得する v2

Posted on 3月 6, 2018 by Takaaki Naganoya

指定パスのAppleScript書類のソースを取得してコンパイル（構文確認）して実行し、結果を書式付きテキストとして取得してデスクトップにRTF書類として書き出すAppleScriptです。

▲テストに使用したテストスクリプト

▲実行結果。デスクトップ上にAppleScriptの構文色分けを反映させたRTFが書き出される

「AppleScriptの実行結果を書式付きテキストとして取得する」ことが目的です。本来であれば、スクリプトエディタ上でControl-Command-Rで「フロントエンドで実行」する必要があった（v1）のですが、Script Debugger上でも動くように少し書き換えました。

AppleScript名：指定パスのAppleScript書類のソース取得＆コンパイルして結果をスタイル付きテキストで取得する v2

— Created 2016-01-08 by Takaaki Naganoya
— Modified 2018-03-05 by Takaaki Naganoya
— 2016 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "OSAKit"
use framework "AppKit"
use framework "Quartz"

property theResult : "" –result

set aScriptPath to POSIX path of (choose file with prompt "Choose AppleScript to convert to RTF" of type {"com.apple.applescript.script-bundle", "com.apple.applescript.script"})

— make sure the script is executed on the main thread
my performSelectorOnMainThread:"execASandReturnRTF:" withObject:aScriptPath waitUntilDone:true

on execASandReturnRTF:anObject
　　
　　set targX to 500 –View Width
　　set targY to 200 –View Height
　　set timeOutSecs to 180 –AppleScript execution timed out (Seconds)
　　
　　–Select & Read AppleScript Source (Only Editable AppleScripts are available)
　　
　　set srcStr to getASsourceFor(anObject) of me
　　log srcStr
　　if srcStr = missing value or srcStr = "" then
　　　　–Error
　　　　display dialog "Error in reading script source…." buttons {"OK"} default button 1 with icon 1
　　　　return
　　end if
　　
　　–Make AppleScript Controller & Script Editor View
　　set osaCon to current application’s OSAScriptController’s alloc()’s init()
　　set osaView to current application’s OSAScriptView’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, 0, targX, targY))
　　
　　–Make Result View
　　set resView to current application’s NSTextView’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, 0, targX, targY))
　　resView’s setRichText:true
　　resView’s useAllLigatures:true
　　
　　–Connect OSAScriptController to Editor View & Result View
　　osaCon’s setScriptView:osaView
　　osaCon’s setResultView:resView
　　
　　–Set AppleScript Source to Editor View & Execute it
　　osaView’s setString:srcStr
　　osaCon’s runScript:(missing value)
　　
　　–Get AppleScript’s Result as string
　　set my theResult to (resView’s attributedString())
　　
end execASandReturnRTF:

–make Window for Input
on makeWinWithView(aView, aWinWidth, aWinHeight, aTitle, alphaV)
　　set aScreen to current application’s NSScreen’s mainScreen()
　　set aFrame to {{0, 0}, {aWinWidth, aWinHeight}}
　　set aBacking to current application’s NSTitledWindowMask –NSBorderlessWindowMask
　　set aDefer to current application’s NSBackingStoreBuffered
　　
　　— Window
　　set aWin to current application’s NSWindow’s alloc()
　　(aWin’s initWithContentRect:aFrame styleMask:aBacking backing:aDefer defer:false screen:aScreen)
　　–aWin’s setBackgroundColor:(current application’s NSColor’s whiteColor())
　　
　　aWin’s setTitle:aTitle
　　aWin’s setDelegate:me
　　aWin’s setDisplaysWhenScreenProfileChanges:true
　　aWin’s setHasShadow:true
　　aWin’s setIgnoresMouseEvents:false
　　aWin’s setLevel:(current application’s NSNormalWindowLevel)
　　aWin’s setOpaque:false
　　aWin’s setAlphaValue:alphaV –append
　　aWin’s setReleasedWhenClosed:true
　　aWin’s |center|()
　　aWin’s makeKeyAndOrderFront:(me)
　　
　　— Set Custom View
　　aWin’s setContentView:aView
　　
　　return aWin
　　
end makeWinWithView

–close win
on closeWin:aWindow
　　repeat with n from 10 to 1 by -1
　　　　(aWindow’s setAlphaValue:n / 10)
　　　　delay 0.02
　　end repeat
　　aWindow’s |close|()
end closeWin:

–指定AppleScriptファイルのソースコードを取得する（実行専用Scriptからは取得できない）
— Original Created 2014-02-23 Shane Stanley
on getASsourceFor(aPOSIX as string)
　　set aURL to current application’s |NSURL|’s fileURLWithPath:(aPOSIX)
　　set theScript to current application’s OSAScript’s alloc()’s initWithContentsOfURL:aURL |error|:(missing value)
　　return theScript’s source() as text
end getASsourceFor

–指定のAliasからファイル名を取得する
on getFileNameFromAlias(anAlias)
　　set aPath to POSIX path of anAlias
　　set pathString to current application’s NSString’s stringWithString:aPath
　　set newPath to pathString’s lastPathComponent()
　　return newPath as string
end getFileNameFromAlias

★Click Here to Open This Script　

AppleScriptをテキストからコンパイルしてスタイル付きテキストに変換する v3

Posted on 3月 5, 2018 by Takaaki Naganoya

テキストの状態のAppleScriptをコンパイル（構文確認）してスタイル付きテキスト（RTF）に変換するAppleScriptです。

▲デスクトップに書き出したRTF

▲同様の内容をスクリプトエディタ上でコンパイル（構文確認）し、構文要素ごとの色分け表示を適用したところ。上記RTFと同様の色分けが行われている

AppleScript自体の書式情報を使うことが日常的にさくさんあって、その最も一般的な用途は「スクリプトエディタで編集中のAppleScriptの変数名のみ（書式情報を考慮しつつ）置換する」という処理です。

AppleScript自体でAppleScript書類を解析して、情報を取得したり書き換えを行うという処理は、割と昔からやってきています（必要だったので）。

AppleScriptの構文色分けの書式情報を取得する、というのはとてもとてもとても大事な処理です。書式情報そのものが重要なのではなく、書式を通じて「どの構文要素に該当するか」が取得できるからです。テキストから自前でAppleScriptをParseして構文要素を推測するのではなく、システム側が勝手に行う構文色分けの色情報から構文要素を取得できます（そのために、各構文要素については別々の色を指定することが処理の前提条件となっています）。

構文色分けの情報取得については、その時代（Mac OS Xのバージョン）によって、plistを直接読んだり、スクリプトエディタのstyle runsにアクセスして書式情報を取得したりといろいろです。

その中で、AppleScript書類から書式情報を取得する方法にもっとも近いのがこのやり方です。

Script Debuggerの新バージョンが登場したものの、あいかわらずScriptの解析と書式情報の取得がからっきしだったので、Script Debuggerから取得しないでパス情報のみ取得しておいてファイルから直接書式情報を取得すれば「いつもの手口」で変数名のみ置換したりハンドラ名称のみリストアップするといった処理が行えるのではないかと考え、調べておいたものです。

AppleScript名：AppleScriptをテキストからコンパイルしてスタイル付きテキストに変換する v3

— Created 2017-04-24 by Shane Stanley
— Modified 2018-03-05 by Takaaki Naganoya
use AppleScript version "2.5"
use scripting additions
use framework "Foundation"
use framework "OSAKit"

— create a new AppleScript instance
set anOSALanguageInstance to OSALanguageInstance’s languageInstanceWithLanguage:(OSALanguage’s defaultLanguage())

— make script and run it from the new instance
set theSource to "display dialog ＼"Hello world＼""
set theScript to OSAScript’s alloc()’s initWithSource:theSource fromURL:(missing value) languageInstance:anOSALanguageInstance usingStorageOptions:(OSANull)
set {theResult, theError} to theScript’s compileAndReturnError:(reference)

if theResult as boolean is false then
　　— handle error
　　error "Compile Error"

AppleScriptの穴

Useful & Practical AppleScript archive. Click '★Click Here to Open This Script' Link to download each AppleScript

カテゴリー: RTF

AppleScript書類冒頭のコメントを書き換える

Skimでオープン中のPDFで選択中のテキストを返す

指定単語の花文字テキストを取得する（Retina対応）英文字用 v2

クリップボードに入っているテキストをAppleScriptとみなして、構文確認してスタイル付きテキストに変換する v2

クリップボード中の書式つきテキストのフォントサイズを取得する

クリップボードに入っているテキストをAppleScriptとみなして、構文確認してスタイル付きテキストに変換する

Stickiesからのデータ取り出し v2

Stickiesからのデータ取り出し

AppleScript書類から指定の構文要素をピックアップ（Cocoa Property名称）して文字列化

AppleScript書類から指定の構文要素をピックアップ（Cocoa Property名称）

指定パスのAppleScript書類のソース取得＆コンパイルして結果をスタイル付きテキストで取得する v2

AppleScriptをテキストからコンパイルしてスタイル付きテキストに変換する v3