TextExpanderでリストやテーブルを整形する

TextExpander 4の紹介を書く時に面倒なことがあったので新しくスニペットを作りました。

こんなの絶対誰かが作っているとは思うのですが、調べるのが面倒だったので…

TextExpander4 001

TextExpanderだとこういうのが苦手です。

abc
def
ghi
jkl

abc

def

ghi

jkl

を

<ul>
<li>abc</li>
<li>def</li>
<li>ghi</li>
<li>jkl</li>
</ul>

<ul>

</ul>

にしたいのですが、TextExpander の標準には無いんですよね。そこで、これを実現するスニペットをAppleScriptで作ります。

作ると言っても非常に単純で改行コードを見つけて変換するだけです。

先ほどの各行をクリップボードに一括コピーしておいて、それを改行コードで分割。後はタグを付け加えます。

以下のコードを TextExpander の新しいスニペットに AppleScript で登録してください。

set stringBuffer to the clipboard as string
set originalDelimiter to AppleScript's text item delimiters
set AppleScript's text item delimiters to ASCII character (13) -- 改行コードをデリミタに

set resultString to ""
set theLists to every text item of stringBuffer

repeat with current in theLists
	if (ASCII number (current)) is not 0 and current is not "" then
		set resultString to resultString & "<li>" & current & "</li>\n"
	end if
end repeat

set AppleScript's text item delimiters to originalDelimiter

return resultString

set stringBuffer to the clipboard as string

set originalDelimiter to AppleScript's text item delimiters

set AppleScript's text item delimiters to ASCII character (13) -- 改行コードをデリミタに

set resultString to ""

set theLists to every text item of stringBuffer

repeat with current in theLists

if (ASCII number (current)) is not 0 and current is not "" then

set resultString to resultString & "<li>" & current & "</li>\n"

end if

end repeat

set AppleScript's text item delimiters to originalDelimiter

return resultString

ついでにテーブルを作るスニペットも作りました。

これは、こんなデータからテーブルを作ります。

あ い う
え お か
き く け
こ さ し

あいう

えおか

きくけ

こさし

これをこういうタグにします。

<table><tr><td>あ</td><td>い</td><td>う</td></tr>
<tr><td>え</td><td>お</td><td>か</td></tr>
<tr><td>き</td><td>く</td><td>け</td></tr>
<tr><td>こ</td><td>さ</td><td>し</td></tr>
</table>

</table>

やっていることは変わりません。

改行と空白を見つけて分割してタグを挿入するだけ。

set stringBuffer to the clipboard as string
set originalDelimiter to AppleScript's text item delimiters
set AppleScript's text item delimiters to ASCII character (13) -- 改行コードをデリミタに

set resultString to "<table>"

set theLists to every text item of stringBuffer
set AppleScript's text item delimiters to " " -- 空白をデリミタに

repeat with current in theLists
	if (ASCII number (current)) is not 0 and current is not "" then
		set resultString to resultString & "<tr>"
		set theLine to every text item of current
		repeat with column in theLine
			if (ASCII number (column)) is not 0 and column is not "" then
				set resultString to resultString & "<td>" & column & "</td>"
			end if
		end repeat
		set resultString to resultString & "</tr>\n"
	end if
end repeat

set resultString to resultString & "</table>"
set AppleScript's text item delimiters to originalDelimiter

return resultString