From: tomo <tomo>
Date: Thu, 2 Jun 2005 07:39:56 +0000 (+0000)
Subject: (www-ids-find-format-line): Add setting for "&ZOB-dddd;".
X-Git-Tag: chise-base-0_23~88
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ab20a93f6ab7459242fbdaea82fba2d4107e977a;p=chise%2Fids.git

(www-ids-find-format-line): Add setting for "&ZOB-dddd;".
---

diff --git a/www/www-ids-find.el b/www/www-ids-find.el
index 5446d1f..cf47c73 100644
--- a/www/www-ids-find.el
+++ b/www/www-ids-find.el
@@ -71,6 +71,14 @@
 			 plane code plane code))
 	 (insert (format "C%d-%04X</a>" plane code))
 	 )
+	((string-match "&ZOB-\\([0-9]+\\);" str)
+	 (setq code (string-to-int (match-string 1 str)))
+	 (insert "<a href=\"http://mousai.kanji.zinbun.kyoto-u.ac.jp/char-desc?char=")
+	 (insert str)
+	 (insert (format "\"><img alt=\"ZOB-%04d\" src=\"http://mousai.kanji.zinbun.kyoto-u.ac.jp/glyphs/ZOB-1968/%04d.png\">\n"
+			 code code))
+	 (insert (format "ZOB-%04d</a>" code))
+	 )
 	(t
 	 (insert "<a href=\"http://mousai.kanji.zinbun.kyoto-u.ac.jp/char-desc?char=")
 	 (insert str)