From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Tue, 18 Jan 2022 03:04:32 +0000 (+0900)
Subject: (www-format-encode-string): Add settings for `===chise-hdic-ktb' and
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=10322e9002aba7e4260bd3e73b1e374f3199ae6e;p=chise%2Fids.git

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

diff --git a/www/www-ids-find.el b/www/www-ids-find.el
index 3596bbf..c7e95c6 100644
--- a/www/www-ids-find.el
+++ b/www/www-ids-find.el
@@ -320,6 +320,18 @@ vertical-align:middle; width: auto; max-height: 60px\">"
 	       t 'literal)))
 
 	  (goto-char (point-min))
+	  (while (re-search-forward "&\\(R-\\)?CHISE-HDIC-KTB\\([0-9A-F]+\\);" nil t)
+	    (setq code (string-to-int (match-string 2) 16))
+	    (setq char (decode-char '===chise-hdic-ktb code))
+	    (when (setq ret (get-char-attribute char '=hdic-ktb-entry-id))
+	      (replace-match
+	       (format
+		"<img alt=\"HDIC-KTB-%s\" src=\"https://hdic.chise.org/img/ktb/%s.jpg\" style=\"
+vertical-align:middle; width: auto; max-height: 60px\">"
+		ret ret)
+	       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