CotEditor 3.5でウィンドウの透明度コントロール機能がなくなる

Posted on 9月 15, 2018 by Takaaki Naganoya

CotEditor v3.5で機能に変更があり、「CotEditorでウィンドウの透明度を連続的に変更する」のようなScriptが実行できなくなりました。AppleScript側からウィンドウの透明度をコントロールするための予約語「view opacity」が廃止されました。

予約語が廃止されたときにどういう状態になるのか、という事例として掲載しておきます。

保存ずみの同Scriptをオープンすると、

のような表示になりました。この状態でコンパイル（構文確認）を行うと、

のようにエラーになります。

CotEditorのAppleScript用語辞書をHTMLに書き出してdiffで差分を計算すると、

たしかにview opacityが削除されていることが確認できます。

ただし、アプリケーションの機能としてウィンドウの透明度設定は行えるので、エディタとしての使い勝手は（あまり）変わりません。AppleScriptから透明度をコントロールできないと困ることがあるかと考えると、とくに困ることはありません。

CotEditorの最前面のテキストで空行で区切ったブロックを逆順にする

Posted on 7月 8, 2018 by Takaaki Naganoya

CotEditorの最前面のテキスト中で、空行で区切ったブロックを逆順にならべかえるAppleScriptです。

こういう（↑）状態のテキストを、

こういう（↑）状態にならべかえます。

ここでは、わかりやすく空行でブロックを区切っていますが、別のもので区切りを検出してみたり、テキスト全体から自動的にブロック検出をテキストエディタ自体がやってくれるといいのになー、と思っています。

AppleScript名：CotEditorの最前面のテキストで空行で区切ったブロックを逆順にする

— Created 2018-07-07 by Takaaki Naganoya
— 2018 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

–CotEditorから本文テキストを取得
tell application "CotEditor"
　　tell front document
　　　　set aText to contents of it
　　end tell
　　set aList to paragraphs of aText
end tell

–空行で区切られたテキストブロックをブロック単位で逆順に組み立てる
set bText to makeRetrunSeparatedStrBlockReversed(aList) of me

–計算結果をCotEditorの本文テキストに書き戻す
tell application "CotEditor"
　　tell front document
　　　　set (contents of it) to bText
　　end tell
end tell

on makeRetrunSeparatedStrBlockReversed(aList)
　　–行ごとにリスト化した1D Listをブロック単位の2D List化
　　set newList to {}
　　set tmpList to {}
　　
　　repeat with i in aList
　　　　set j to contents of i
　　　　if j = "" then
　　　　　　if tmpList = {} then
　　　　　　　　set tmpList to {}
　　　　　　else
　　　　　　　　set the end of newList to tmpList
　　　　　　　　set the end of newList to {}
　　　　　　　　set tmpList to {}
　　　　　　end if
　　　　else
　　　　　　set the end of tmpList to j
　　　　end if
　　end repeat
　　
　　if tmpList is not equal to {} then
　　　　set the end of newList to tmpList
　　　　set the end of newList to {}
　　end if
　　
　　set newBList to reverse of newList –ブロックを逆順に
　　
　　–2D Listをテキストに
　　set newCList to FlattenList(newBList) of me
　　set resBstr to retStrFromArrayWithDelimiter(newCList, return) of me
　　
　　return resBstr
end makeRetrunSeparatedStrBlockReversed

–By Paul Berkowitz
–2009年1月27日 2:24:08:JST
–Re: Flattening Nested Lists
on FlattenList(aList)
　　set oldDelims to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to {"????"}
　　set aString to aList as text
　　set aList to text items of aString
　　set AppleScript’s text item delimiters to oldDelims
　　return aList
end FlattenList

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

★Click Here to Open This Script　

CotEditorの最前面のテキストの日付フォーマットを変換する

Posted on 7月 7, 2018 by Takaaki Naganoya

CotEditorでオープン中の最前面の書類中のテキストの、日付フォーマットを変換するAppleScriptです。

▲スクリーンショットは作成中のものです

Blogのアーカイブ本のオマケとして（記事だけだとウンザリする仕上がりだったので）、冒頭にその年に何があったかをAppleのニュースリリースから抽出して掲載してみたのですが、日付の形式が独特だったので、手で打ち直していました。

繰り返して行うと面倒だったので、NSDataDetectorで自然言語テキスト（CotEditorの本文テキスト）から日付を自動検出して書き換えを試みたのですが、NSDataDetectorではこのサンプルのようなほんのちょっとだけ手の加わった日付テキストでは検出してくれませんでした。

一応、フォーマット自体は固定だったので、フォーマッターだけ指定すれば日付テキストとして認識し、常識的なYYYY/MM/DDの日付フォーマットに書き換えるようにしてみました。

▲日付フォーマット文字列の入力

▲日付フォーマット置換したテキスト（処理は一瞬）

ただし、日付フォーマットテキストが行で独立しているもの（添付スクリーンショットのように）を処理対象にしているので、あまり汎用性はなさそうです。

一般的には正規表現で指定することになるんでしょうけれど、その正規表現というかもともとの日付フォーマットを元のテキストから自動検出してくれることがベストだと思います。

なお、CotEditorに依存した処理はひとつもないので、JeditΩでもmiでもテキストエディットでもTextWranglerでもBBEditでも、対象にして処理することはかんたんです。クリップボードの内容に対して処理したほうがいいのかもしれません。

AppleScript名：CotEditorの最前面のテキストの日付フォーマットを変換する

— Created 2018-07-07 by Takaaki Naganoya
— 2018 Piyomaru Software
use AppleScript version "2.5"
use framework "Foundation"
use scripting additions

property NSArray : a reference to current application’s NSArray
property NSString : a reference to current application’s NSString
property NSLocale : a reference to current application’s NSLocale
property NSDictionary : a reference to current application’s NSDictionary
property NSCountedSet : a reference to current application’s NSCountedSet
property NSMutableArray : a reference to current application’s NSMutableArray
property NSSortDescriptor : a reference to current application’s NSSortDescriptor
property NSDateFormatter : a reference to current application’s NSDateFormatter

set tmpArray to NSMutableArray’s new()

–変換元（テキストから自動取得できるとよかったのに）
set dFfromStr to text returned of (display dialog "Input Date Format:(年=yyyy, 月=MM, 日=dd)" default answer "MM月 dd, yyyy")

–変換先
set dOutFormStr to "yyyy/MM/dd"

tell application "CotEditor"
　　tell front document
　　　　set aRes to contents of it
　　end tell
　　
　　set aList to paragraphs of aRes
end tell

repeat with i in aList
　　set j to contents of i
　　set theDate to dateFromStringWithDateFormat(j, dFfromStr) of me
　　if theDate is not equal to missing value then
　　　　set newDateStr to convDateObjToStrWithFormat(theDate, dOutFormStr) of me
　　　　(tmpArray’s addObject:newDateStr)
　　else
　　　　(tmpArray’s addObject:j)
　　end if
end repeat

–NSArrayを指定デリミタをはさんでテキスト化
set tRes to tmpArray’s componentsJoinedByString:(return)
set ttRes to tRes as string

tell application "CotEditor"
　　tell front document
　　　　set (contents of it) to ttRes
　　end tell
end tell

–日付文字列からdate objectを作成する
on dateFromStringWithDateFormat(dateString as string, dateFormat as string)
　　set dStr to NSString’s stringWithString:dateString
　　set dateFormatStr to NSString’s stringWithString:dateFormat
　　
　　set aDateFormatter to NSDateFormatter’s alloc()’s init()
　　aDateFormatter’s setDateFormat:dateFormatStr
　　aDateFormatter’s setLocale:(NSLocale’s alloc()’s initWithLocaleIdentifier:"en_US_POSIX")
　　
　　set aDestDate to (aDateFormatter’s dateFromString:dStr)
　　
　　return aDestDate as list of string or string
end dateFromStringWithDateFormat

–date objectから指定の日付文字列を作成する
on convDateObjToStrWithFormat(aDateO as date, aFormatStr as string)
　　set aDF to NSDateFormatter’s alloc()’s init()
　　
　　set aLoc to NSLocale’s currentLocale()
　　set aLocStr to (aLoc’s localeIdentifier()) as string
　　
　　aDF’s setLocale:(NSLocale’s alloc()’s initWithLocaleIdentifier:aLocStr)
　　aDF’s setDateFormat:aFormatStr
　　set dRes to (aDF’s stringFromDate:aDateO) as string
　　return dRes
end convDateObjToStrWithFormat

★Click Here to Open This Script　

表示中のCotEditor書類の「前」のファイルを縦書きでオープン v3

Posted on 3月 1, 2018 by Takaaki Naganoya

CotEditor内のScript Menuに入れて、現在オープン中の（連番つき）テキストファイルと同一フォルダに入っているテキストファイルのうち、番号が「前」に該当するファイルのXattr（拡張属性）を操作して、CotEditorの縦書き属性を追加し、CotEditorのファイルオープン時にデフォルトで縦書き表示を行うAppleScriptです。

前バージョンではGUI Scriptingを使っていたため、CotEditor内蔵Script MenuではなくOS側のScript Menuから呼び出すことしかできませんでした。本バージョンでは、CotEditor内蔵メニューから呼び出せます。

CotEditor内蔵Script Menuから呼べると、ファイル名に指定の特殊文字を入れておくことで、キーボードショートカットから呼び出せるようになります。

–> XAttribute.framework (To ~/Library/Frameworks/）

AppleScript名：表示中のCotEditor書類の「前」のファイルを縦書きでオープン v3

— Created 2017-12-15 by Takaaki Naganoya
— Modified 2018-02-28 by Takaaki Naganoya
— 2018 Piyomaru Software
–v3：Xattrに追記してCotEditorでデフォルト縦書き表示を行わせた。CotEditorのアプリケーション内のScript Menuから実行可能に
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "XAttribute" –https://github.com/rylio/OTMXAttribute
use bPlus : script "BridgePlus"

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 SMSForder : a reference to current application’s SMSForder
property NSPredicate : a reference to current application’s NSPredicate
property NSFileManager : a reference to current application’s NSFileManager
property NSMutableArray : a reference to current application’s NSMutableArray
property NSSortDescriptor : a reference to current application’s NSSortDescriptor
property NSURLIsPackageKey : a reference to current application’s NSURLIsPackageKey
property NSURLIsDirectoryKey : a reference to current application’s NSURLIsDirectoryKey
property NSDirectoryEnumerationSkipsHiddenFiles : a reference to current application’s NSDirectoryEnumerationSkipsHiddenFiles
property NSDirectoryEnumerationSkipsPackageDescendants : a reference to current application’s NSDirectoryEnumerationSkipsPackageDescendants
property NSDirectoryEnumerationSkipsSubdirectoryDescendants : a reference to current application’s NSDirectoryEnumerationSkipsSubdirectoryDescendants

load framework

tell application "CotEditor"
　　set dCount to count every document
　　if dCount = 0 then return
　　
　　tell front document
　　　　set curPath to path –returns POSIX path, not alias or file
　　end tell
　　
　　tell window 1
　　　　set aBounds to bounds
　　end tell
end tell

–オープン中のテキストファイルの親フォルダを求める
set aPath to NSString’s stringWithString:curPath
set fileName to (aPath’s lastPathComponent()) –ファイル名
set pathExtension to aPath’s pathExtension() as string –拡張子
set parentFol to (aPath’s stringByDeletingLastPathComponent()) as string —親フォルダ

–同じフォルダから同じ拡張子のファイルのファイル名を取得
set fList to my getFilesByIncludedStringInName:(pathExtension) fromDirectory:(parentFol) exceptPackages:(true)

–昇順ソート
set aArray to NSArray’s arrayWithArray:fList
set desc1 to NSSortDescriptor’s sortDescriptorWithKey:"self" ascending:true selector:"localizedCaseInsensitiveCompare:"
set bArray to aArray’s sortedArrayUsingDescriptors:{desc1}

–ファイル名検索
set aIndex to (SMSForder’s indexesOfItem:fileName inArray:bArray inverting:false) as list
if aIndex = {} then
　　display notification "Error: File Not Found"
　　return
end if

set bIndex to (contents of first item of aIndex) + 1 – 1 –0 based to 1 based conversion & previous one
set aLen to length of (bArray as list)
if bIndex > aLen then
　　display notification "Error: Out of bounds"
　　return
end if

set newFile to contents of item bIndex of (bArray as list)
set newPath to parentFol & "/" & newFile

–Add Vertical Xattribute　（for CotEditor only)
set xRes to addXAttrToFile(newPath, "com.coteditor.VerticalText", "1") of me

–Open Previous Document
tell application "CotEditor"
　　set oldDoc to front document
　　
　　open (POSIX file newPath) as alias
　　tell window 1
　　　　set bounds to aBounds
　　end tell
　　
　　close oldDoc without saving
end tell

–指定フォルダ内の指定文字列を含むファイル名のファイルをPOSIX pathのlistで抽出する
on getFilesByIncludedStringInName:(fileNameStr as string) fromDirectory:(sourceFolder) exceptPackages:(packageF as boolean)
　　set fileManager to NSFileManager’s defaultManager()
　　set aURL to |NSURL|’s fileURLWithPath:sourceFolder
　　set theOptions to ((NSDirectoryEnumerationSkipsPackageDescendants) as integer) + ((NSDirectoryEnumerationSkipsHiddenFiles) as integer) + ((NSDirectoryEnumerationSkipsSubdirectoryDescendants) as integer)
　　set directoryContents to fileManager’s contentsOfDirectoryAtURL:aURL includingPropertiesForKeys:{} options:theOptions |error|:(missing value)
　　set findPredicates to NSPredicate’s predicateWithFormat_("lastPathComponent CONTAINS %@", fileNameStr)
　　set foundItemList to directoryContents’s filteredArrayUsingPredicate:findPredicates
　　
　　–Remove Folders From found URL Array
　　set anArray to NSMutableArray’s alloc()’s init()
　　repeat with i in foundItemList
　　　　set j to contents of i
　　　　set {theResult, isDirectory} to (j’s getResourceValue:(reference) forKey:(NSURLIsDirectoryKey) |error|:(missing value))
　　　　
　　　　–Collect files
　　　　if (isDirectory as boolean = false) then
　　　　　　(anArray’s addObject:j)
　　　　　　
　　　　else if (packageF = false) then
　　　　　　–Allow Package files?
　　　　　　set {theResult, isPackage} to (j’s getResourceValue:(reference) forKey:(NSURLIsPackageKey) |error|:(missing value))
　　　　　　if (isPackage as boolean) = true then
　　　　　　　　(anArray’s addObject:j)
　　　　　　end if
　　　　end if
　　　　
　　end repeat
　　
　　return (anArray’s valueForKey:"lastPathComponent") as list
end getFilesByIncludedStringInName:fromDirectory:exceptPackages:

on addXAttrToFile(aFile, anXattr, aValue)
　　–Get Xattr String
　　set anAttribute to (current application’s OTMXAttribute’s stringAttributeAtPath:aFile |name|:anXattr |error|:(missing value))
　　if anAttribute is not equal to missing value then –Already Exists
　　　　set tmpRes to removeXAttrFromFile(aFile, anXattr) of me
　　　　if tmpRes = false then return false
　　end if
　　
　　–Set Xattr
　　set xRes to (current application’s OTMXAttribute’s setAttributeAtPath:aFile |name|:anXattr value:aValue |error|:(missing value))
　　if xRes = missing value then return false
　　return (xRes as boolean)
end addXAttrToFile

on removeXAttrFromFile(aFile, anXattr)
　　–Get Xattr String
　　set anAttribute to (current application’s OTMXAttribute’s stringAttributeAtPath:aFile |name|:anXattr |error|:(missing value))
　　if anAttribute = missing value then return true –There is no use to remove xattr
　　
　　–Remove Xattr
　　set xRes to (current application’s OTMXAttribute’s removeAttributeAtPath:aFile |name|:anXattr |error|:(missing value))
　　if xRes = missing value then return false
　　return (xRes as boolean)
end removeXAttrFromFile

★Click Here to Open This Script　

表示中のCotEditor書類の「次」のファイルを縦書きでオープン v3

Posted on 3月 1, 2018 by Takaaki Naganoya

CotEditor内のScript Menuに入れて、現在オープン中の（連番つき）テキストファイルと同一フォルダに入っているテキストファイルのうち、番号が「次」に該当するファイルのXattr（拡張属性）を操作して、CotEditorの縦書き属性を追加し、CotEditorのファイルオープン時にデフォルトで縦書き表示を行うAppleScriptです。

–> XAttribute.framework (To ~/Library/Frameworks/）

–> Demo Movie

AppleScript名：表示中のCotEditor書類の「次」のファイルを縦書きでオープン v3

load framework

–同じフォルダから同じ拡張子のファイルのファイル名を取得
set fList to my getFilesByIncludedStringInName:(pathExtension) fromDirectory:(parentFol) exceptPackages:(true)

set bIndex to (contents of first item of aIndex) + 1 + 1 –0 based to 1 based conversion & next one
set aLen to length of (bArray as list)
if bIndex > aLen then
　　display notification "Error: Out of bounds"
　　return
end if

set newFile to contents of item bIndex of (bArray as list)
set newPath to parentFol & "/" & newFile

–Add Vertical Xattribute　（for CotEditor only)
set xRes to addXAttrToFile(newPath, "com.coteditor.VerticalText", "1") of me

–Open Next Document
tell application "CotEditor"
　　set oldDoc to front document
　　
　　open (POSIX file newPath) as alias
　　tell window 1
　　　　set bounds to aBounds
　　end tell
　　
　　close oldDoc without saving
end tell

–指定フォルダ内の指定文字列を含むファイル名のlistを抽出する
on getFilesByIncludedStringInName:(fileNameStr as string) fromDirectory:(sourceFolder) exceptPackages:(packageF as boolean)
　　set fileManager to NSFileManager’s defaultManager()
　　set aURL to |NSURL|’s fileURLWithPath:sourceFolder
　　set theOptions to (NSDirectoryEnumerationSkipsPackageDescendants as integer) + (NSDirectoryEnumerationSkipsHiddenFiles as integer) + (NSDirectoryEnumerationSkipsSubdirectoryDescendants as integer)
　　set directoryContents to fileManager’s contentsOfDirectoryAtURL:aURL includingPropertiesForKeys:{} options:theOptions |error|:(missing value)
　　set findPredicates to NSPredicate’s predicateWithFormat_("lastPathComponent CONTAINS %@", fileNameStr)
　　set foundItemList to directoryContents’s filteredArrayUsingPredicate:findPredicates
　　
　　–Remove Folders From found URL Array
　　set anArray to NSMutableArray’s alloc()’s init()
　　repeat with i in foundItemList
　　　　set j to contents of i
　　　　set {theResult, isDirectory} to (j’s getResourceValue:(reference) forKey:(NSURLIsDirectoryKey) |error|:(missing value))
　　　　
　　　　–Collect files
　　　　if (isDirectory as boolean = false) then
　　　　　　(anArray’s addObject:j)
　　　　else if (packageF = false) then
　　　　　　–Allow Package files?
　　　　　　set {theResult, isPackage} to (j’s getResourceValue:(reference) forKey:(NSURLIsPackageKey) |error|:(missing value))
　　　　　　if (isPackage as boolean) = true then
　　　　　　　　(anArray’s addObject:j)
　　　　　　end if
　　　　end if
　　　　
　　end repeat
　　
　　return (anArray’s valueForKey:"lastPathComponent") as list
end getFilesByIncludedStringInName:fromDirectory:exceptPackages:

★Click Here to Open This Script　

OTMXAttributeで指定ファイルにxattrを追加してテキストファイルにCotEditor縦書き表示属性を付加する

Posted on 2月 28, 2018 by Takaaki Naganoya

指定テキストファイルのXattr（拡張属性）を操作して、CotEditorの縦書き属性を追加し、CotEditorのファイルオープン時にデフォルトで縦書き表示を行うAppleScriptです。

–> XAttribute.framework (To ~/Library/Frameworks/）

try! macOS meet-upの席上でCotEditorメンテナーの1024jpさんに

「（CotEditorに）デフォルトでプレーンテキストの縦書き表示を行わせる機能ってないんでしょうか？」

と聞いてみたら、本Xattrの存在を教えてもらえました。

これで、GUI Scriptingを併用せずに縦書き表示ができるようになったので、CotEditor内蔵Script Menuからでも縦書きで表示させるファイルを切り替えるようなScriptを呼び出せました。

▲デフォルト時

▲本ScriptによりXattrを追加してFinderからオープン、あるいはCotEditorからオープンを行なった状態

AppleScript名：OTMXAttributeで指定ファイルにxattrを追加する

— Created 2018-02-28 by Takaaki Naganoya
— 2018 Piyomaru Software
use AppleScript version "2.5"
use scripting additions
use framework "Foundation"
use framework "XAttribute" –https://github.com/rylio/OTMXAttribute

set aFile to POSIX path of (choose file)
set xRes to addXAttrToFile(aFile, "com.coteditor.VerticalText", "1")

★Click Here to Open This Script　

表示中のCotEditor書類の「前」のファイルを縦書きでオープン v2

Posted on 2月 14, 2018 by Takaaki Naganoya

CotEditorでオープン中の書類の「前」のファイルを縦書きでオープンするAppleScriptです。

CotEditorでオープン中の書類のパスを取得して、同一フォルダ内にあるファイル名一覧からオープン中の書類の「前」に該当する書類をオープンします。

ファイルオープン後にCotEditorのメニューをGUI Scriptingで強制的に操作して縦書きに設定します。

CotEditor v3.3.2のメニューにバグがあって、横書きのメニュー項目にも縦書きのメニュー項目にも「縦書き」と書いてあり、メニュー項目を名称で指定するとうまく動きません。そこだけItem No.で指定しています。このメニュー項目の不具合については、近い将来のアップデートで修正される見込みです。

▲CotEditor内蔵のScript Menuから実行するとGUI Scriptingの実行が制限されて縦書きにならない

▲OS側のScript Menuから実行すると問題なく実行できる

AppleScript名：表示中のCotEditor書類の「前」のファイルを縦書きでオープン v2

— Created 2017-12-15 by Takaaki Naganoya
— 2017 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use bPlus : script "BridgePlus"

load framework

tell application "CotEditor"
　　set dCount to count every document
　　if dCount = 0 then return
　　
　　tell front document
　　　　set curPath to path
　　end tell
　　
　　tell window 1
　　　　set aBounds to bounds
　　end tell
end tell

set aPath to NSString’s stringWithString:curPath
set fileName to (aPath’s lastPathComponent()) –ファイル名
set pathExtension to aPath’s pathExtension() as string
set parentFol to (aPath’s stringByDeletingLastPathComponent()) as string —親フォルダ

–同じフォルダから同じ拡張子のファイルのファイル名を取得
set fList to my getFilesByIncludedStringInName:(pathExtension) fromDirectory:(parentFol) exceptPackages:(true)

–ファイル名検索
–set aIndex to bArray’s indexOfObjectIdenticalTo:fileName
set aIndex to (SMSForder’s indexesOfItem:fileName inArray:bArray inverting:false) as list
if aIndex = {} then
　　display notification "Error: File Not Found"
　　return
end if

set newFile to contents of item bIndex of (bArray as list)
set newPath to parentFol & "/" & newFile

tell application "CotEditor"
　　set oldDoc to front document
　　
　　open (POSIX file newPath) as alias
　　tell window 1
　　　　set bounds to aBounds
　　end tell
　　
　　close oldDoc without saving
end tell

makeWinVertical() of me –縦書き表示

–Make CotEditor’s front window to Vertical display mode (Tategaki)
on makeWinVertical()
　　activate application "CotEditor"
　　tell application "System Events"
　　　　tell process "CotEditor"
　　　　　　try
　　　　　　　　click menu item 3 of menu 1 of menu item "文章の方向" of menu 1 of menu bar item "フォーマット" of menu bar 1
　　　　　　end try
　　　　end tell
　　end tell
end makeWinVertical

★Click Here to Open This Script　

表示中のCotEditor書類の「次」のファイルを縦書きでオープン v2

Posted on 2月 14, 2018 by Takaaki Naganoya

CotEditorでオープン中の書類の「次」のファイルを縦書きでオープンするAppleScriptです。

CotEditorでオープン中の書類のパスを取得して、同一フォルダ内にあるファイル名一覧からオープン中の書類の「次」に該当する書類をオープンします。

ファイルオープン後にCotEditorのメニューをGUI Scriptingで強制的に操作して縦書きに設定します。

▲CotEditor内蔵のScript Menuから実行するとGUI Scriptingの実行が制限されて縦書きにならない

▲OS側のScript Menuから実行すると問題なく実行できる

AppleScript名：表示中のCotEditor書類の「次」のファイルを縦書きでオープン v2

— Created 2017-12-15 by Takaaki Naganoya
— 2017 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use bPlus : script "BridgePlus"

load framework

–同じフォルダから同じ拡張子のファイルのファイル名を取得
set fList to my getFilesByIncludedStringInName:(pathExtension) fromDirectory:(parentFol) exceptPackages:(true)

set newFile to contents of item bIndex of (bArray as list)
set newPath to parentFol & "/" & newFile

makeWinVertical() of me –縦書き表示

★Click Here to Open This Script　

テキストをTTSで読み上げて所要時間を算出 v2.1（CotEditor版）

Posted on 2月 6, 2018 by Takaaki Naganoya

AppleScript名：テキストをTTSで読み上げて所要時間を算出 v2.1（CotEditor版）

— Created 2018-01-10 by Takaaki Naganoya
— 2018 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "AVFoundation"
use framework "AppKit"
–http://piyocast.com/as/archives/5113

property |NSURL| : a reference to current application’s |NSURL|
property NSDate : a reference to current application’s NSDate
property NSUUID : a reference to current application’s NSUUID
property NSFileManager : a reference to current application’s NSFileManager
property AVAudioPlayer : a reference to current application’s AVAudioPlayer
property NSDateFormatter : a reference to current application’s NSDateFormatter
property NSSpeechSynthesizer : a reference to current application’s NSSpeechSynthesizer

set str3 to getEditorText() of me
if str3 = false then return

set aVoice to "Kyoko"

–Check existence of TTS Voice name
set vList to retAvailableTTSnames() of me
if aVoice is not in vList then error "Wrong TTS Voice Name"

set d1 to readTextByTTSVoiceAndReturnDuration(str3, aVoice, 180) of me –aSpeedRate is "Words per minute. 180 to 220"
set d2 to readTextByTTSVoiceAndReturnDuration(str3, aVoice, 220) of me

set outStr to (formatHMS(d1) of me & "/180 words per minute") & return & (formatHMS(d2) of me & "/220 words per minute") & return
tell application "CotEditor"
　　activate
　　write to console outStr
end tell

on readTextByTTSVoiceAndReturnDuration(aStr as string, aVoice as string, aSpeedRate as integer)
　　set aUUID to NSUUID’s UUID()’s UUIDString() as string
　　–set aPath to (((path to temporary items from user domain) as string) & aUUID & ".aif")
　　set aPath to (((path to desktop) as string) & aUUID & ".aif")
　　set aPOSIX to POSIX path of aPath
　　
　　tell current application
　　　　say aStr using aVoice saving to (aPOSIX) speaking rate aSpeedRate without waiting until completion
　　end tell
　　
　　repeat 100000 times
　　　　set aExt to NSFileManager’s defaultManager()’s fileExistsAtPath:aPOSIX
　　　　if aExt as boolean = true then exit repeat
　　　　delay "0.001" as real
　　end repeat
　　
　　if aExt = false then error "No Sound file"
　　
　　set aDur to getDuration(aPath as alias) of me
　　try
　　　　do shell script "rm -f " & quoted form of POSIX path of aPath
　　end try
　　
　　return aDur as real
end readTextByTTSVoiceAndReturnDuration

on getDuration(aFile)
　　set aURL to |NSURL|’s fileURLWithPath:(POSIX path of aFile)
　　
　　repeat 1000 times
　　　　set aAudioPlayer to AVAudioPlayer’s alloc()’s initWithContentsOfURL:aURL |error|:(missing value)
　　　　set aRes to aAudioPlayer’s prepareToPlay()
　　　　if aRes as boolean = true then exit repeat
　　　　delay 0.5
　　end repeat
　　if aRes = false then error "TTS sound output failed"
　　
　　set channelCount to aAudioPlayer’s numberOfChannels()
　　set aDuration to aAudioPlayer’s duration()
　　return aDuration as real
end getDuration

on retAvailableTTSnames()
　　set outList to {}
　　
　　set aList to NSSpeechSynthesizer’s availableVoices()
　　set bList to aList as list
　　
　　repeat with i in bList
　　　　set j to contents of i
　　　　set aInfo to (NSSpeechSynthesizer’s attributesForVoice:j)
　　　　set aInfoRec to aInfo as record
　　　　set aName to VoiceName of aInfoRec
　　　　set the end of outList to aName
　　end repeat
　　
　　return outList
end retAvailableTTSnames

on formatHMS(aTime)
　　set aDate to NSDate’s dateWithTimeIntervalSince1970:aTime
　　set aFormatter to NSDateFormatter’s alloc()’s init()
　　
　　—This formatter text is localized in Japanese.
　　if aTime < hours then
　　　　aFormatter’s setDateFormat:"mm分ss秒"
　　else if aTime < days then
　　　　aFormatter’s setDateFormat:"HH時間mm分ss秒"
　　else
　　　　aFormatter’s setDateFormat:"DD日HH時間mm分ss秒"
　　end if
　　
　　set timeStr to (aFormatter’s stringFromDate:aDate) as string
　　return timeStr
end formatHMS

on getEditorText()
　　tell application "CotEditor"
　　　　if (count every document) = 0 then return false
　　　　tell front document
　　　　　　return contents
　　　　end tell
　　end tell
end getEditorText

★Click Here to Open This Script　

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

Posted on 2月 6, 2018 by Takaaki Naganoya

指定の文字から花文字を作成するAppleScriptです。

「花文字」とは、任意の文字を組み合わせて指定の文字を作成するもので、「祝」という文字とスペースを組み合わせて、

　　祝　　　　　　　　　
　　祝　　祝祝祝祝祝祝　
　祝祝祝祝祝　　　　祝　
　祝祝祝祝祝　　　　祝　
　　　祝祝祝　　　祝祝　
　　祝祝　祝祝祝祝祝祝　
　祝祝祝祝　祝祝祝　　　
祝祝祝祝祝　祝　祝　　　
　　祝　　　祝　祝　　　
　　祝　　祝祝　祝　　祝
　　祝　祝祝　　祝祝祝祝
　　祝　祝　　　　祝

のように組み合わせた文字列のことです。

大昔の大型コンピュータの計算結果をプリンタに印刷する際に、ユーザーごとの計算結果の紙が混ざることを防ぐために、ヘッダーページを印刷するようになっていました。当時はまだアウトラインフォントから大きな文字を印刷する技術がなかったので、花文字のように文字を組み合わせて大きな文字を印刷するようなことを行なっていたようです（たぶん）。

類似の処理にこのようなものがあります。
→　Love

花文字はその名残りで、パソコンのメールなどで文字だけを使って何かを表現するような、原始的なアスキーアートの一種といえばよいのでしょうか。

かつては、花文字作成の専用アプリケーションが存在していました。AppleScript的には、そうしたアプリケーションに「このデータを作ってくれ」と依頼するのが本来のスタイルですが、アプリケーションがない場合には、原理的に別に難しいものではないので、自前で作ってしまえばいいわけです。

（１）指定サイズ、指定フォントで書式つきテキストを作成
（２）書式つきテキストをメモリー上に用意したブランク画像に描画
（３）メモリー上の画像のドットを順次読み取って、塗りつぶされている箇所といない箇所を順次検出
（４）塗りつぶし情報を文字列に表現。空白ドットは空白文字で、描画ドットは指定文字で
（５）文字列を出力

という処理を行なっています。描画時のフォント種別の指定や、結果をCotEditorに出力するあたりは「オマケ」です。

この程度の処理であれば、JEdit Ωやmi、OS標準装備のテキストエディットなどさまざまな（AppleScript対応の）エディタにオープンさせられます。

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

— Created 2017-12-12 by Takaaki Naganoya
— 2017 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

set aString to "あ"
set hanaSize to 24
set thisFont to selectAFont(aString) of me
if thisFont = false then return –Cancel

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

–花文字文字列を計算して返す
on getHanamojiStr(aFontSize as real, aFontName as string, aString as string, aThread as real, incFontName as boolean)
　　if length of aString is not equal to 1 then return false
　　
　　–指定文字コードが指定フォント中に存在するかチェック
　　set fRes to retGlyphsInFont(aFontName, id of aString) of me
　　if fRes = false then return false
　　
　　set aThreadShould to 768 * aThread
　　if (chkMultiByteChar(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 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 aString
　　　　　　　　　　else
　　　　　　　　　　　　set the end of strListX to spaceChar
　　　　　　　　　　end if
　　　　　　　　else
　　　　　　　　　　set the end of strListX to spaceChar
　　　　　　　　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 "■" & fName & return & return & aRes
　　end if
　　
　　return aRes
end getHanamojiStr

–指定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　

CotEditor 3の選択範囲を書き換える

Posted on 2月 6, 2018 by Takaaki Naganoya

AppleScript名：CotEditor 3の選択範囲を書き換える

tell application "CotEditor"
　　tell document 1
　　　　properties of selection
　　　　–> {range:{0, 4}, class:text selection, line range:{1, 1}, contents:"似ている"}
　　　　
　　　　set contents of selection to "ほぼおなじ"
　　end tell
end tell

★Click Here to Open This Script　

CotEditorでオープン中の最前面の書類の本文テキストを取得する

Posted on 2月 6, 2018 by Takaaki Naganoya

AppleScript名：CotEditorでオープン中の最前面の書類の本文テキストを取得する

set aRes to getCotEditorText() of me

on getCotEditorText()
　　tell application "CotEditor"
　　　　if (count every document) = 0 then return false
　　　　tell front document
　　　　　　set aText to contents
　　　　end tell
　　end tell
end getCotEditorText

★Click Here to Open This Script　

CotEditorの最前面で表示中のDocumentを縦書き表示に

Posted on 2月 6, 2018 by Takaaki Naganoya

CotEditorで表示中のテキストファイルを、GUI Scripting経由で縦書き表示するAppleScriptです。

CotEditorの途中のバージョンでメニュー構成が変更になったため、本Scriptは動かなくなりました。

とりあえず、メニュー変更に追従して書き換えを行なって使っていましたが、根本的な解決策を1024jpさんに教えてもらえたので（Xattributeの書き換え）、そちらをおすすめします。

AppleScript名：CotEditorの最前面で表示中のDocumentを縦書き表示に

makeWinVertical() of me

on makeWinVertical()
　　activate application "CotEditor"
　　tell application "System Events"
　　　　tell process "CotEditor"
　　　　　　try
　　　　　　　　click menu item "縦書きで表示" of menu 1 of menu bar item "フォーマット" of menu bar 1
　　　　　　end try
　　　　end tell
　　end tell
end makeWinVertical

★Click Here to Open This Script　

表示中のCotEditor書類と同じフォルダでラベルがついているものから選択して表示

Posted on 2月 6, 2018 by Takaaki Naganoya

AppleScript名：表示中のCotEditor書類と同じフォルダでラベルがついているものから選択して表示

— Created 2017-12-15 by Takaaki Naganoya
— 2017 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use bPlus : script "BridgePlus"
use mdLib : script "Metadata Lib" version "1.0.0"

property NSURLIsDirectoryKey : a reference to current application’s NSURLIsDirectoryKey
property NSDirectoryEnumerationSkipsHiddenFiles : a reference to current application’s NSDirectoryEnumerationSkipsHiddenFiles
property NSPredicate : a reference to current application’s NSPredicate
property NSMutableArray : a reference to current application’s NSMutableArray
property NSDirectoryEnumerationSkipsPackageDescendants : a reference to current application’s NSDirectoryEnumerationSkipsPackageDescendants
property NSFileManager : a reference to current application’s NSFileManager
property |NSURL| : a reference to current application’s |NSURL|
property NSDirectoryEnumerationSkipsSubdirectoryDescendants : a reference to current application’s NSDirectoryEnumerationSkipsSubdirectoryDescendants
property NSArray : a reference to current application’s NSArray
property NSSortDescriptor : a reference to current application’s NSSortDescriptor
property SMSForder : a reference to current application’s SMSForder

load framework

set aPath to current application’s NSString’s stringWithString:curPath
set fileName to (aPath’s lastPathComponent()) –ファイル名
set pathExtension to aPath’s pathExtension() as string
set parentFol to (aPath’s stringByDeletingLastPathComponent()) as string —親フォルダ

–同じフォルダから同じ拡張子のファイルのファイル名を取得
–set fList to my getFilesByIncludedStringInName:(pathExtension) fromDirectory:(parentFol) exceptPackages:(true)
set fList to spotlightFindByLabels({1, 2, 3, 4, 5, 6, 7}, parentFol) of me

set selRes to choose from list cList
if selRes = false then return –Cancel

set newPath to contents of first item of selRes

makeWinVertical() of me –縦書き表示

–Make CotEditor’s front window to Vertical display mode (Tategaki)
on makeWinVertical()
　　activate application "CotEditor"
　　tell application "System Events"
　　　　tell process "CotEditor"
　　　　　　try
　　　　　　　　click menu item "縦書きで表示" of menu 1 of menu bar item "フォーマット" of menu bar 1
　　　　　　end try
　　　　end tell
　　end tell
end makeWinVertical

on retFileFormatUTI(aExt as string)
　　if aExt begins with "." then set aExt to text 2 thru -1 of aExt
　　return (current application’s SMSForder’s UTIForExtension:aExt)
end retFileFormatUTI

on spotlightFindByLabels(aLabelList as list, thePath as string)
　　set aList to makeRepeatinglList(length of aLabelList, "kMDItemFSLabel == %@")
　　set aStr to retStrFromArrayWithDelimiter(aList, " OR ") of me
　　set fRes to mdLib’s searchFolders:{thePath} searchString:aStr searchArgs:aLabelList
　　return fRes
end spotlightFindByLabels

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

–指定回数、指定アイテムを連結したリストを作成
on makeRepeatinglList(hitNum as integer, hitItem as string)
　　set outList to {}
　　repeat hitNum times
　　　　set the end of outList to hitItem
　　end repeat
　　return outList
end makeRepeatinglList

★Click Here to Open This Script　

表示中のCotEditor書類と同じフォルダで各書類の１行目で選択して表示

Posted on 2月 6, 2018 by Takaaki Naganoya

AppleScript名：表示中のCotEditor書類と同じフォルダで各書類の１行目で選択して表示

load framework

–同じフォルダから同じ拡張子のファイルのファイル名を取得
set fList to my getFilesByIncludedStringInName:(pathExtension) fromDirectory:(parentFol) exceptPackages:(true)

–ダイアログ表示用のデータを作成
set ccList to {}
repeat with i in cList
　　set j to POSIX path of (i as string)
　　set aStr to readJapanesTextFileWithGuessingEncoding(j) of jLib
　　if aStr = missing value or aStr = false then
　　　　display dialog "Encoding Error"
　　　　return
　　end if
　　
　　set aPath to (current application’s NSString’s stringWithString:j)
　　set fileName to (aPath’s lastPathComponent()) as string –ファイル名　　
　　set aFirst to first item of paragraphs of aStr
　　set the end of ccList to (fileName & " / " & aFirst)
end repeat

set aMes to "項目を選択してください"
set selRes to retItemFromListByItemNo(ccList, aMes) of me
if selRes = false then return –Cancel

set newPath to contents of item selRes of cList

makeWinVertical() of me –縦書き表示

–Make CotEditor’s front window to Vertical display mode (Tategaki)
on makeWinVertical()
　　activate application "CotEditor"
　　tell application "System Events"
　　　　tell process "CotEditor"
　　　　　　try
　　　　　　　　click menu item "縦書きで表示" of menu 1 of menu bar item "フォーマット" of menu bar 1
　　　　　　end try
　　　　end tell
　　end tell
end makeWinVertical

–指定フォルダ内の指定文字列を含むファイル名のファイルをPOSIX pathのlistで抽出する
on getFileNamesByIncludedStringInName:(fileNameStr as string) fromDirectory:(sourceFolder) exceptPackages:(packageF as boolean)
　　set fileManager to NSFileManager’s defaultManager()
　　set aURL to |NSURL|’s fileURLWithPath:sourceFolder
　　set theOptions to ((NSDirectoryEnumerationSkipsPackageDescendants) as integer) + ((NSDirectoryEnumerationSkipsHiddenFiles) as integer) + ((NSDirectoryEnumerationSkipsSubdirectoryDescendants) as integer)
　　set directoryContents to fileManager’s contentsOfDirectoryAtURL:aURL includingPropertiesForKeys:{} options:theOptions |error|:(missing value)
　　set findPredicates to NSPredicate’s predicateWithFormat_("lastPathComponent CONTAINS %@", fileNameStr)
　　set foundItemList to directoryContents’s filteredArrayUsingPredicate:findPredicates
　　
　　–Remove Folders From found URL Array
　　set anArray to NSMutableArray’s alloc()’s init()
　　repeat with i in foundItemList
　　　　set j to contents of i
　　　　set {theResult, isDirectory} to (j’s getResourceValue:(reference) forKey:(NSURLIsDirectoryKey) |error|:(missing value))
　　　　
　　　　–Collect files
　　　　if (isDirectory as boolean = false) then
　　　　　　(anArray’s addObject:j)
　　　　　　
　　　　else if (packageF = false) then
　　　　　　–Allow Package files?
　　　　　　set {theResult, isPackage} to (j’s getResourceValue:(reference) forKey:(current application’s NSURLIsPackageKey) |error|:(missing value))
　　　　　　if (isPackage as boolean) = true then
　　　　　　　　(anArray’s addObject:j)
　　　　　　end if
　　　　end if
　　　　
　　end repeat
　　
　　return (anArray’s valueForKey:"lastPathComponent") as list
end getFileNamesByIncludedStringInName:fromDirectory:exceptPackages:

–指定フォルダ内の指定文字列を含むファイル名のファイルをPOSIX pathのlistで抽出する
on getFilesByIncludedStringInName:(fileNameStr as string) fromDirectory:(sourceFolder) exceptPackages:(packageF as boolean)
　　set fileManager to NSFileManager’s defaultManager()
　　set aURL to |NSURL|’s fileURLWithPath:sourceFolder
　　set theOptions to ((NSDirectoryEnumerationSkipsPackageDescendants) as integer) + ((NSDirectoryEnumerationSkipsHiddenFiles) as integer) + ((NSDirectoryEnumerationSkipsSubdirectoryDescendants) as integer)
　　set directoryContents to fileManager’s contentsOfDirectoryAtURL:aURL includingPropertiesForKeys:{} options:theOptions |error|:(missing value)
　　set findPredicates to NSPredicate’s predicateWithFormat_("lastPathComponent CONTAINS %@", fileNameStr)
　　set foundItemList to directoryContents’s filteredArrayUsingPredicate:findPredicates
　　
　　–Remove Folders From found URL Array
　　set anArray to NSMutableArray’s alloc()’s init()
　　repeat with i in foundItemList
　　　　set j to contents of i
　　　　set {theResult, isDirectory} to (j’s getResourceValue:(reference) forKey:(NSURLIsDirectoryKey) |error|:(missing value))
　　　　
　　　　–Collect files
　　　　if (isDirectory as boolean = false) then
　　　　　　(anArray’s addObject:j)
　　　　　　
　　　　else if (packageF = false) then
　　　　　　–Allow Package files?
　　　　　　set {theResult, isPackage} to (j’s getResourceValue:(reference) forKey:(current application’s NSURLIsPackageKey) |error|:(missing value))
　　　　　　if (isPackage as boolean) = true then
　　　　　　　　(anArray’s addObject:j)
　　　　　　end if
　　　　end if
　　　　
　　end repeat
　　
　　return (anArray’s valueForKey:"path") as list
end getFilesByIncludedStringInName:fromDirectory:exceptPackages:

–リストから選択してアイテム番号を返す
on retItemFromListByItemNo(aList, aMes)
　　set aRes to choose from list aList with prompt aMes
　　if aRes = false then return 0
　　
　　set aRes to contents of item 1 of aRes
　　set hitNum to 1
　　repeat with i in aList
　　　　set j to contents of i
　　　　if j is equal to aRes then
　　　　　　exit repeat
　　　　end if
　　　　set hitNum to hitNum + 1
　　end repeat
　　return hitNum
end retItemFromListByItemNo

★Click Here to Open This Script　

表示中のCotEditor書類の「次」のファイルを縦書きでオープン

Posted on 2月 6, 2018 by Takaaki Naganoya

AppleScript名：表示中のCotEditor書類の「次」のファイルを縦書きでオープン

load framework

–同じフォルダから同じ拡張子のファイルのファイル名を取得
set fList to my getFilesByIncludedStringInName:(pathExtension) fromDirectory:(parentFol) exceptPackages:(true)

set newFile to contents of item bIndex of (bArray as list)
set newPath to parentFol & "/" & newFile

makeWinVertical() of me –縦書き表示

–Make CotEditor’s front window to Vertical display mode (Tategaki)
on makeWinVertical()
　　activate application "CotEditor"
　　tell application "System Events"
　　　　tell process "CotEditor"
　　　　　　try
　　　　　　　　click menu item "縦書きで表示" of menu 1 of menu bar item "フォーマット" of menu bar 1
　　　　　　end try
　　　　end tell
　　end tell
end makeWinVertical

★Click Here to Open This Script　

CotEditorですべてのドキュメントを破棄してクローズ

Posted on 2月 6, 2018 by Takaaki Naganoya

AppleScript名：CotEditorですべてのドキュメントを破棄してクローズ

tell application "CotEditor"
　　tell every document
　　　　close without saving
　　end tell
end tell

★Click Here to Open This Script　

CotEditorで指定テキストによる新規ドキュメント作成

Posted on 2月 6, 2018 by Takaaki Naganoya

AppleScript名：CotEditorで指定テキストによる新規ドキュメント作成

set aCon to "あ"
makeNewCotEditorDoc(aCon) of me

on makeNewCotEditorDoc(aCon)
　　tell application "CotEditor"
　　　　activate
　　　　set newDoc to make new document
　　　　tell newDoc
　　　　　　set contents to aCon
　　　　end tell
　　end tell
end makeNewCotEditorDoc

★Click Here to Open This Script　

CotEditorでPOSIX pathをオープンする

Posted on 2月 6, 2018 by Takaaki Naganoya

AppleScript名：CotEditorでPOSIX pathをオープンする

set aPath to "/System/Library/Frameworks/Quartz.framework" & "/Versions/A/Frameworks/PDFKit.framework/Resources/" & "BridgeSupport/PDFKit.bridgesupport"

tell application "CotEditor"
　　open aPath
　　
end tell

★Click Here to Open This Script　

CotEditorのコンソールにログ出力

Posted on 2月 6, 2018 by Takaaki Naganoya

CotEditorのログウィンドウに指定の文字をログ出力するAppleScriptです。

AppleScript名：CotEditorのコンソールにログ出力

tell application "CotEditor"
　　activate
　　write to console "ぴよまるさんだよ"
end tell

★Click Here to Open This Script　

AppleScriptの穴

Useful & Practical AppleScript archive

タグ: CotEditor

CotEditor 3.5でウィンドウの透明度コントロール機能がなくなる

CotEditorの最前面のテキストの日付フォーマットを変換する

表示中のCotEditor書類の「前」のファイルを縦書きでオープン v3

表示中のCotEditor書類の「次」のファイルを縦書きでオープン v3

OTMXAttributeで指定ファイルにxattrを追加してテキストファイルにCotEditor縦書き表示属性を付加する

表示中のCotEditor書類の「前」のファイルを縦書きでオープン v2

表示中のCotEditor書類の「次」のファイルを縦書きでオープン v2

テキストをTTSで読み上げて所要時間を算出 v2.1（CotEditor版）

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

CotEditor 3の選択範囲を書き換える

CotEditorでオープン中の最前面の書類の本文テキストを取得する

CotEditorの最前面で表示中のDocumentを縦書き表示に

表示中のCotEditor書類と同じフォルダでラベルがついているものから選択して表示

表示中のCotEditor書類と同じフォルダで各書類の１行目で選択して表示

表示中のCotEditor書類の「次」のファイルを縦書きでオープン

CotEditorですべてのドキュメントを破棄してクローズ

CotEditorで指定テキストによる新規ドキュメント作成

CotEditorでPOSIX pathをオープンする

CotEditorのコンソールにログ出力