X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fest.git;a=blobdiff_plain;f=cwiki-view.el;h=de83e1270ed140c2069216dbc4e8a2d162f39195;hp=72aeb4267f0b3a64c3e5db1b0d8ef96d70173ba4;hb=aa55d55c6fcba8b6baeaa55d58b0fddae208b4aa;hpb=9a78cf2764abaa3e1b23bb4c681d4e65d04cb6b6

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>"))