(www-display-object-desc): Add code to link HDIC Viewer from HDIC-SYP

characters.

diff --git a/cwiki-view.el b/cwiki-view.el
index f3830a0..78e306e 100644 (file)
--- a/cwiki-view.el
+++ b/cwiki-view.el
@@ -314,6 +314,18 @@ li { margin: 0 0 0 2em; }
                 (www-format-encode-string
                  (est-format-object object 'readable))))
        )
+       ((and (eq genre 'character)
+            (setq ret (or (encode-char object '=chise-hdic-syp)
+                          (encode-char object '===chise-hdic-syp)))
+            (setq ret (decode-char '===chise-hdic-syp ret))
+            (setq ret (get-char-attribute ret '=hdic-syp-entry-id)))
+       (princ
+        (format "<a href=\"https://viewer.hdic.jp/syp/%s\"
+>%s</a>"
+                ret
+                (www-format-encode-string
+                 (est-format-object object 'readable))))
+       )
        ((or (and (eq genre 'glyph-image)
                 (setq image-cobj
                       (car (concord-object-get object '->image-resource))))