From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Fri, 14 Jan 2022 02:56:34 +0000 (+0900)
Subject: Mount `=hdic-tsj-entry-id' and `=hdic-tsj-glyph-id'.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a540a0ccf4716cb0340f4e3e781f6fad2ab5bcc3;p=chise%2Fest.git

Mount `=hdic-tsj-entry-id' and `=hdic-tsj-glyph-id'.
(www-format-encode-string): Add settings for `===chise-hdic-tsj' and
`=chise-hdic-tsj'.
---

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