X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=cwiki-common.el;h=937afa5bad71b0bbd6336daf9c31ea6fd539261e;hb=dd7082c83e05bb4dca11526dec1a0d5925b755f7;hp=0e1f7c585e5aadbacd5159da405796b56a308065;hpb=4974caddc5c0e65b5155344b7ddfa60107991c02;p=chise%2Fest.git

diff --git a/cwiki-common.el b/cwiki-common.el
index 0e1f7c5..937afa5 100644
--- a/cwiki-common.el
+++ b/cwiki-common.el
@@ -69,12 +69,13 @@
 (mount-char-attribute-table '=hdic-ktb-entry-id)
 (mount-char-attribute-table 'hdic-syp-description)
 (mount-char-attribute-table 'hdic-ktb-description)
-(mount-char-attribute-table 'hdic-ktb-type)
+(mount-char-attribute-table 'hdic-ktb-entry-type)
 (mount-char-attribute-table 'hdic-ktb-diff)
 (mount-char-attribute-table 'hdic-ktb-syp-id)
 (mount-char-attribute-table 'hdic-ktb-yy-id)
-(mount-char-attribute-table '<-same@SYP/KTB)
-(mount-char-attribute-table '->same@SYP/KTB)
+(mount-char-attribute-table 'hdic-ktb-ndl-pid)
+(mount-char-attribute-table '<-HDIC-SYP@KTB)
+(mount-char-attribute-table '->HDIC-SYP@KTB)
 
 (defvar est-hide-cgi-mode nil)
 (defvar est-view-url-prefix "..")
@@ -1176,6 +1177,20 @@ class=\"tooltiptext\">%s</span></div>"
 	       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
+		"<div class=\"tooltip\"><img alt=\"HDIC-KTB-%s\" src=\"https://hdic.chise.org/img/ktb/%s.jpg\" style=\"
+vertical-align:middle; width: auto; max-height: 60px\"><span
+class=\"tooltiptext\">%s</span></div>"
+		ret ret
+		(charset-description '===chise-hdic-ktb))
+	       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