MacJournalで選択中のエントリの文中からdata detectorで日付を取得して作成日付に反映

MacJournalで選択中のjournal entryの文中（plain text content）からData Detector（NSDataDetector）で日付を取得し、初出の日付をjournal entryの作成日付に設定するAppleScriptです。

macOSの不具合情報をMacJournalにスクラップして整理していたところ、記事作成日をjournal entryの作成日付に反映させたいと考え、以前に作ってあったScriptを修正し、Data Detectorで日付情報を抽出するようにしてみました。

なお、複数のjournal entryを選択した状態で実行すると、ループですべての選択中のjournal entryを処理します。

macOS標準搭載のScript Menuに入れて使用しています。

AppleScript名：MacJournalで選択中のエントリの文中からdata detectorで日付を取得して作成日付に反映

— Created 2019-01-08 by Takaaki Naganoya
— 2019 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

property NSString : a reference to current application’s NSString
property NSDataDetector : a reference to current application’s NSDataDetector

tell application "MacJournal"
　　set aSel to selected entries
　　
　　repeat with i in aSel
　　　　set j to contents of i
　　　　set aName to name of j
　　　　set aDate to date of j
　　　　set aStr to plain text content of j
　　　　set aDateList to getDatesIn(aStr) of me
　　　　
　　　　if aStr is not equal to "" and aDateList is not equal to {} then
　　　　　　set targDate to contents of (first item of aDateList)
　　　　　　try
　　　　　　　　set date of j to targDate
　　　　　　end try
　　　　end if
　　end repeat
end tell

on getDatesIn(aString)
　　set anNSString to NSString’s stringWithString:aString
　　set {theDetector, theError} to NSDataDetector’s dataDetectorWithTypes:(current application’s NSTextCheckingTypeDate) |error|:(reference)
　　set theMatches to theDetector’s matchesInString:anNSString options:0 range:{0, anNSString’s |length|()}
　　set theResults to theMatches’s valueForKey:"date"
　　return theResults as list
end getDatesIn