Mount `=hdic-syp-entry-id' and `hdic-syp-description'.

(www-format-encode-string): Add settings for `===chise-hdic-syp' and
`=chise-hdic-syp'.

diff --git a/cwiki-common.el b/cwiki-common.el
index 337df57..d260b43 100644 (file)
--- a/cwiki-common.el
+++ b/cwiki-common.el
@@ -65,6 +65,8 @@
 
 (mount-char-attribute-table '=hdic-tsj-entry-id)
 (mount-char-attribute-table '=hdic-tsj-glyph-id)
+(mount-char-attribute-table '=hdic-syp-entry-id)
+(mount-char-attribute-table 'hdic-syp-description)
 
 (defvar est-hide-cgi-mode nil)
 (defvar est-view-url-prefix "..")
@@ -1152,6 +1154,20 @@ class=\"tooltiptext\">%s</span></div>"
               t 'literal)))
 
          (goto-char (point-min))
+         (while (re-search-forward "&\\(R-\\)?CHISE-HDIC-SYP\\([0-9A-F]+\\);" nil t)
+           (setq code (string-to-int (match-string 2) 16))
+           (setq char (decode-char '===chise-hdic-syp code))
+           (when (setq ret (get-char-attribute char '=hdic-syp-entry-id))
+             (replace-match
+              (format
+               "<div class=\"tooltip\"><img alt=\"HDIC-SYP-%s\" src=\"https://viewer.hdic.jp/img/syp/%s\" style=\"
+vertical-align:middle; width: auto; max-height: 60px\"><span
+class=\"tooltiptext\">%s</span></div>"
+               ret ret
+               (charset-description '===chise-hdic-syp))
+              t 'literal)))
+
+         (goto-char (point-min))
          (while (re-search-forward "&\\(o-\\|G-\\|g2-\\|R-\\)?AJ1-\\([0-9]+\\);" nil t)
            (setq code (string-to-int (match-string 2)))
            (replace-match