- (princ
- (with-temp-buffer
- (insert
- (encode-coding-string
- (ideographic-structure-to-ids is)
- 'utf-8-er))
- (goto-char (point-min))
- (while (re-search-forward "&CB\\([0-9]+\\);" nil t)
- (setq code (string-to-int (match-string 1)))
- (replace-match
- (format "<img alt=\"CB%05d\" src=\"http://mousai.kanji.zinbun.kyoto-u.ac.jp/glyphs/cb-gaiji/%02d/CB%05d.gif\">"
- code (/ code 1000) code)
- t 'literal))
- (buffer-string))))