From: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
Date: Mon, 29 Mar 2010 00:55:09 +0000 (+0900)
Subject: (www-display-char-desc): Try to display glyph of GlyphWiki and link
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=aa55d55c6fcba8b6baeaa55d58b0fddae208b4aa;p=chise%2Fest.git

(www-display-char-desc): Try to display glyph of GlyphWiki and link
it.
---

diff --git a/cwiki-view.el b/cwiki-view.el
index 72aeb42..de83e12 100644
--- a/cwiki-view.el
+++ b/cwiki-view.el
@@ -10,7 +10,8 @@
     (setq level 1))
   (let ((char (www-uri-decode-char uri-char))
 	logical-feature displayed-features
-	parents)
+	parents
+	GlyphWiki-id)
     (when (characterp char)
       (when (= (length uri-char) 1)
 	(setq uri-char (www-uri-encode-char char)))
@@ -34,9 +35,16 @@
 	(princ (format "<p>%s %s</p>\n<hr>\n"
 		       (www-format-value-as-char-list parents)
 		       (www-format-feature-name '->subsumptive lang))))
-      (princ (format "<h%d>%s</h%d>\n"
+      (setq GlyphWiki-id (char-GlyphWiki-id char))
+      (princ (format "<h%d>%s%s</h%d>\n"
 		     level
 		     (www-format-encode-string (char-to-string char))
+		     (if GlyphWiki-id
+			 (format
+			  " <a href=\"http://glyphwiki.org/wiki/%s\"><img alt=\"%s\" src=\"http://glyphwiki.org/glyph/%s.50px.png\" /></a>"
+			  GlyphWiki-id
+			  GlyphWiki-id GlyphWiki-id)
+		       "")
 		     level))
       (if (> level 1)
 	  (princ "<ul>"))