From 90c921b535da19f1d7baa0da53decd5a10ea94c4 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sun, 16 Jan 2022 02:14:40 +0900
Subject: [PATCH] (www-display-object-desc): Add code to link HDIC Viewer from
 HDIC-SYP characters.

---
 cwiki-view.el |   12 ++++++++++++
 1 file changed, 12 insertions(+)

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))))
-- 
1.7.10.4