トリッキーなタイトルですが、AppleScriptのAppleScriptを作りました。
AppleScriptをhtmlに変換しするスクリプトです。
使い方は簡単です。
1.html化したいスクリプトをクリップボードにコピーします。
2.このスクリプトを実行します。
3.クリップボードが変換されていますので、そのままhtmlソースに貼付けます。
set beforeList to {"&", " ", ASCII character (9), "<", ">"}
set afterList to {"&", " ", " ", "<", ">"}
set oldDel to text item delimiters of AppleScript
set i to 1
repeat with x in beforeList
set text item delimiters of AppleScript to x
set mylist to every text item of myString
set text item delimiters of AppleScript to item i of afterList
set myString to mylist as string
set i to i + 1
end repeat
set text item delimiters of AppleScript to oldDel
set myString to "<div class=code>" & myString & "</div>"
set the clipboard to myString
中身な単純は置換スクリプトです。
html特殊文字を&xxxという形に置き換えるだけです。
beforeListとafterListが置換リストですので自由にカスタマイズしてください。
最後にdivタグで囲んでクリップボードへセットします。
同様にスクリプトリンクを作成するスクリプトも作ってしまいました。
スクリプトリンクとは、クリックするとスクリプトエディタにコードを表示させるリンクです。"applescript://com.apple.scripteditor?"で始まるリンクですが、ブランクや改行やタブを%xxに置き換える必要があります。
使い方は上のhtml作成スクリプトと同じです。
set myString to the clipboard
set myStringConv to ""
set beforeList to {"%", " ", ASCII character (10), ASCII character (13), ASCII character (34), ASCII character (9)}
set afterList to {"%25", "%20", "%0a", "%0a", "%22", "%20%20"}
set oldDel to text item delimiters of AppleScript
set i to 1
repeat with x in beforeList
set text item delimiters of AppleScript to x
set mylist to every text item of myString
set text item delimiters of AppleScript to item i of afterList
set myString to mylist as string
set i to i + 1
end repeat
set text item delimiters of AppleScript to oldDel
set myString to "<a href=" & (ASCII character (34)) & "applescript://com.apple.scripteditor?action=new&script=" & myString & (ASCII character (34)) & "> </a>"
set the clipboard to myString
なかなかべんりべんり。