From a540a0ccf4716cb0340f4e3e781f6fad2ab5bcc3 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Fri, 14 Jan 2022 11:56:34 +0900 Subject: [PATCH] Mount `=hdic-tsj-entry-id' and `=hdic-tsj-glyph-id'. (www-format-encode-string): Add settings for `===chise-hdic-tsj' and `=chise-hdic-tsj'. --- cwiki-common.el | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) 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" 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 + "
\"HDIC-TSJ-%s\"%s
" + 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 -- 1.7.10.4