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

Posted on 9月 15 by Takaaki Naganoya

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

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

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

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

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

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

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

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

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

Posted on 7月 8 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