(require 'un-define)
(require 'utf)
(defun TT:html-entitize (&optional b e)
(interactive)
(unless (and b e)
(setq b (region-beginning)
e (region-end)))
(let ((str "") (cl))
(setq cl (cddr (string-to-list
(mucs-convert-string (buffer-substring b e)
'utf-16-be-unix-stream-encoder
t))))
(while cl
(setq str (concat str (format "%d;"
(+ (* 256 (car cl)) (cadr cl))))
cl (cddr cl)))
(goto-char b)
(delete-region b e)
(insert str)))
( ・∀・)つ〃∩ ヘェー ↓ ( ・∀・)つ〃∩ ヘェー 츠무라토모아키 ↓ 츠무라토모아키
なんかゴテゴテしてるかも...。 実体参照にしなくていい文字まで問答無用で変換してる。 spamよけとかにも使えるし(謎)。もっと楽な方法はないか。
昨日から,ずっと回し中。裏ジャケの色が綺麗だなと思って,
web の背景に使ってみたら,Sun blue みたいに見えて なんかイヤな
感じになったのでやめとく(笑)。


![[Go Patriots]](http://roguelife.org/diary/img/gopats.gif)

![[Masubi]](http://roguelife.org/img/masubi.png)
tomoaki@tsumura.info