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