From: tomo <tomo>
Date: Tue, 10 May 2005 15:13:12 +0000 (+0000)
Subject: (www-batch-ids-find): Display images of =cbeta characters.
X-Git-Tag: chise-core-0_22~34
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6e500584f86577d37d4a0f3eeefcad8fa4db297a;p=chise%2Fids.git

(www-batch-ids-find): Display images of =cbeta characters.
---

diff --git a/www/www-ids-find.el b/www/www-ids-find.el
index 5e53e7c..68efbd6 100644
--- a/www/www-ids-find.el
+++ b/www/www-ids-find.el
@@ -20,7 +20,12 @@
 
 (defun www-batch-ids-find ()
   (let ((components (car command-line-args-left))
-	is ucs)
+	(coded-charset-entity-reference-alist
+	 (list*
+	  '((=cbeta      "CB" 5 d)
+	    (=jef-china3 "JC3-" 4 X))
+	  coded-charset-entity-reference-alist))
+	is ucs str code)
     (setq command-line-args-left (cdr command-line-args-left))
     (cond
      ((stringp components)
@@ -81,10 +86,17 @@
 	(when (every (lambda (c)
 		       (ideographic-structure-member c is))
 		     components)
-	  (princ
-	   (encode-coding-string
-	    (format "%c" c)
-	    'utf-8-jp-er))
+	  (setq str
+		(encode-coding-string (format "%c" c) 'utf-8-jp-er))
+	  (cond
+	   ((string-match "&CB\\([0-9]+\\);" str)
+	    (setq code (string-to-int (match-string 1 str)))
+	    (princ (format "<img alt=\"CB%05d\" src=\"http://mousai.kanji.zinbun.kyoto-u.ac.jp/glyphs/cb-gaiji/%02d/CB%05d.gif\">\n"
+			   code (/ code 1000) code))
+	    (princ (format "CB%05d" code))
+	    )
+	   (t
+	    (princ str)))
 	  (princ
 	   (or (if (setq ucs (or (char-ucs c)
 				 (encode-char c 'ucs)))
@@ -97,9 +109,19 @@
 		 "          ")))
 	  (princ " ")
 	  (princ
-	   (encode-coding-string
-	    (ideographic-structure-to-ids is)
-	    'utf-8-jp-er))
+	   (with-temp-buffer
+	     (insert
+	      (encode-coding-string
+	       (ideographic-structure-to-ids is)
+	       'utf-8-jp-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)))
 	  (when (and ucs
 		     (with-current-buffer
 			 (find-file-noselect