(www-display-char-desc): Try to display glyph of GlyphWiki and link
authorMORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
Mon, 29 Mar 2010 00:55:09 +0000 (09:55 +0900)
committerMORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
Mon, 29 Mar 2010 00:55:09 +0000 (09:55 +0900)
it.

cwiki-view.el

index 72aeb42..de83e12 100644 (file)
@@ -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)))
        (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>"))