Tex-Edit Plus HTML 書類の HTML 文法チェック！

Tex-Edit Plus HTML 書類の HTML 文法をチェックするためのアップルスクリプトです。

Another HTML-lint を使用して、Tex-Edit Plus で開かれている HTML 書類の文法チェックを行います。

使用方法：

Tex-Edit Plus で HTML 書類を開きます。※スクリプトを実行する前に新規 HTML 書類を一度保存して下さい（既に保存されている書類の変更部分は自動的に保存されます）。
Tex-Edit Plus のスクリプトメニューからアップルスクリプトを選択します（キーボードショートカットでアップルスクリプトを実行させることもできます）。
文法チェックの結果はシステムのデフォルトブラウザ内で開かれます。

スクリプトの作成方法

下記のテキストをアップルのスクリプトエディタアプリケーションの新規書類へコピーします。
スクリプトエディタのファイルメニューの「保存...」コマンドを選択します。
表示される保存ダイアログでアプリケーション名を入力して、保存場所を選択します。
保存ダイアログの「フォーマット」ポップアップメニューから「スクリプト」オプションを選択します。
保存ダイアログの「オプション」セクションの「実行専用」チェックボックスを選択します。
保存ダイアログの「保存」ボタンをクリックします。

Tex-Edit Plus を起動する時に「Scripts」フォルダに入っているコンパイル済みスクリプトは全て「スクリプト」メニュー内で表示されます。「Scripts」フォルダは Tex-Edit Plus アプリケーションと同じフォルダに入っていないとこの機能は無効になります。また、「Scripts」フォルダの名前を変更するとこの機能は無効になります。AppleScripts for Tex-Edit Archive のホームページから多数の Tex-Edit Plus 用アップルスクリプトをダウンロードすることもできます。

Tex-Edit Plus のスクリプトメニュー内のアップルスクリプトのキーボードショートカット設定（※すべて半角ローマ字で設定します）

コマンド：スクリプト名の最後に「_」（１つ）を追加します（例：私のスクリプト_0）。
シフト＋コマンド：「__」（２つ）を追加します（例：私のスクリプト__0）。
ファンクションキー：「_」（１つ）＋ F キーを追加します（例：私のスクリプト__F5）。
コマンド＋ファンクションキー：「__」（２つ）＋ F キーを追加します（例：私のスクリプト__F5）。
シフト＋コマンド＋ファンクションキー：「___」（３つ）＋ F キーを追加します（例：私のスクリプト___F5）。

--Another HTML-lint  を使用して、Tex-Edit Plus HTML 書類の文法チェックを行います。
--スクリプトを実行する前に新規 HTML 書類を一度保存して下さい（既に保存されている書類の変更部分は自動的に保存されます）。

set checkurl to "http://openlab.ring.gr.jp/k16/htmllint/htmllint.cgi?"
set escapecharacters to {{"%", "%25"}, {";", "%3B"}, {"&", "%26"}, {"+", "%2B"}}

tell application "Tex-Edit Plus"
	save window 1
	set theDoc to (file of window 1)
end tell

open for access theDoc
set checkdata to read theDoc
close access theDoc

repeat with cleanlist in escapecharacters
	set problemcharacter to text item 1 of cleanlist
	set moreproblemcharacter to text item 2 of cleanlist
	set checkdata to replaceString(checkdata, problemcharacter, moreproblemcharacter)
end repeat

set callform to "Method=Data&ViewSource=on&Data=" & checkdata as Unicode text

tell application "Finder"
	
	open location checkurl & callform
	
end tell

on replaceString(theString, findStr, replaceStr)
	set tmp to AppleScript's text item delimiters
	set AppleScript's text item delimiters to findStr
	set theList to every text item of theString
	set AppleScript's text item delimiters to replaceStr
	set theString to theList as string
	set AppleScript's text item delimiters to tmp
	return theString
end replaceString