Re: about htmlize.el

[Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxxxxxxxx>]

白井＠もう一回。

From: Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxxxxxxxx> 曰く
Subject: Re: about htmlize.el
Message-ID: <20001124.100848.125113578.shirai@xxxxxxxxxxxxxxxxxxx>
Date: Fri, 24 Nov 2000 10:08:48 +0900 (JST)

白井> > htmlize.elという、emacsのglobal-font-lockで色づけされたバッファーを、
白井> > そのままHTML+CSSの形式にしてブラウザーで表示できるようにしたパッケージが
白井> > あるのですが、これは日本語に対応していないのでしょうか？
白井> 
白井> ちらっとしか見ていないのですが、日本語に対応していません。(きっぱり)

白井> これまた、ちょっとしか実験していませんが、該当部分を

どう考えても気持ち悪いので、こんな風にしてみました。この方が速い
と思うし。

(defvar htmlize-character-alist
  '(("&". "&amp;")
    ("<" . "&lt;")
    (">". "&gt;")
    ("\"" . "&quot;")))

(defun htmlize-protect-string (string)
  ;; Checking whether STRING contains dangerous stuff removes a lot of
  ;; unnecessary consing.
  (with-temp-buffer
    (let (str)
      (insert string)
      (goto-char (point-min))
      (while (re-search-forward "[&<>\"]" nil t)
	(setq str (buffer-substring-no-properties
		   (match-beginning 0) (match-end 0)))
	(delete-char -1)
	(insert (cdr (assoc str htmlize-character-alist)))))
    (buffer-substring-no-properties (point-min) (point-max))))

-- 
白井秀行 (mailto:shirai@xxxxxxxxxxxxxxxxxxx)