右クリックで blockquote (改訂版)

☆

今さらのような気もしますが、「右クリックで blockquote」の改定版を公開します。

前のスクリプトでは、“*” が記事(html)のタイトルに含まれるとタイトルが正しく取得できないという不具合(というか、IEコンポーネントの仕様?)があるとか、細々とした問題がいくつかあった(いずれも「運用でカバー」できるレベル)のですが、その辺の問題に関して一気に対策を施してみました。それから、本スクリプトが生成する html コードですが、たぶん、XHTML 2.0 Strict でも問題ないようになったのではないかと思います(今までのは XHTML 1.0 Transitional は OK ですが、XHTML 1.0 Strict だと NG でした)。

それでは、以下、スクリプトのソースです。(Internet Explorer 専用です。誰か、Firefox 用に移植していただけると嬉しいです)

<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=Shift_JIS">
<script type="text/javascript" language="JavaScript">

function translateString(str) {
    result = "";
    len    = str.length;
    rep    = 0;

    for ( i = 0; i < len; i++ ) {
        if ( str.charAt(i) == '\n' ) {
            if ( rep == 0 )
                result += '<br />';
            rep++;
            continue;
        }
        else if ( str.charAt(i) == '\r' )
            continue;
        rep = 0;

        if ( str.charAt(i) == '>' )
	    result += "&gt;";
        else if ( str.charAt(i) == '<' )
	    result += "&lt;";
        else if ( str.charAt(i) == '&' )
	    result += "&amp;";
     // else if ( str.charAt(i) == ' ' )
     //     result += "&nbsp;";
        else if ( str.charAt(i) == '"' )  // "
	    result += "&quot;";
        else
	    result += str.charAt(i);
    }

    return ( result );
}

obj = external.menuArguments;   // 右クリック時の引数のオブジェクトの参照
page_url  = obj.document.URL;   // ページのURL
title_txt = obj.document.title; // タイトル文字列
cite_txt  = obj.document.selection.createRange().text; // 引用文字列

if ( title_txt == "[object]" ) {
    str = obj.document.body.parentNode;
    inn = str.innerHTML;
    s = inn.indexOf("<TITLE>");
    e = inn.indexOf("</TITLE>");
    if ( (s > 0) && (e > s) )
        title_txt = inn.substring(s + 7, e);
}

page_str = "";
len = page_url.length;
for ( i = 0; i < len; i++ ) {
    if ( page_url.charAt(i) == '&' )
	page_str += "&amp;";
    else
	page_str += page_url.charAt(i);
}

qTag = '<blockquote cite="' + page_str + '"><p>' + translateString(cite_txt) + '</p><cite><a href="' + page_str + '">' + translateString(title_txt) + '</a></cite></blockquote>';
x = prompt('',qTag);
</script>