From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sat, 15 Jan 2022 17:14:40 +0000 (+0900)
Subject: (www-display-object-desc): Add code to link HDIC Viewer from HDIC-SYP
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=90c921b535da19f1d7baa0da53decd5a10ea94c4;p=chise%2Fest.git

(www-display-object-desc): Add code to link HDIC Viewer from HDIC-SYP
characters.
---

diff --git a/cwiki-view.el b/cwiki-view.el
index f3830a0..78e306e 100644
--- a/cwiki-view.el
+++ b/cwiki-view.el
@@ -314,6 +314,18 @@ li { margin: 0 0 0 2em; }
 		 (www-format-encode-string
 		  (est-format-object object 'readable))))
 	)
+       ((and (eq genre 'character)
+	     (setq ret (or (encode-char object '=chise-hdic-syp)
+			   (encode-char object '===chise-hdic-syp)))
+	     (setq ret (decode-char '===chise-hdic-syp ret))
+	     (setq ret (get-char-attribute ret '=hdic-syp-entry-id)))
+	(princ
+	 (format "<a href=\"https://viewer.hdic.jp/syp/%s\"
+>%s</a>"
+		 ret
+		 (www-format-encode-string
+		  (est-format-object object 'readable))))
+	)
        ((or (and (eq genre 'glyph-image)
 		 (setq image-cobj
 		       (car (concord-object-get object '->image-resource))))