From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 30 Oct 2019 07:03:34 +0000 (+0900)
Subject: (www-display-object-desc): Add [HNG-data] button for each character
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b57ebcd1ead109ff5f9c874e8dd289aac92a899b;p=chise%2Fest.git

(www-display-object-desc): Add [HNG-data] button for each character
which has the corresponding HNG glyphs.
---

diff --git a/cwiki-view.el b/cwiki-view.el
index 85f38d9..8b1cecb 100644
--- a/cwiki-view.el
+++ b/cwiki-view.el
@@ -70,6 +70,7 @@ size=\"64\" maxlength=\"256\" value=\"%s\">
 	logical-feature chise-wiki-displayed-features
 	parents
 	GlyphWiki-id HNG-card HNG-card-id HNG-card-cobj ret object-spec
+	ucs
 	item-code page char-num glyph-image-id
 	width height image-cobj base-image x y w h)
     (if (eq level 0)
@@ -190,8 +191,27 @@ li { margin: 0 0 0 2em; }
 		   (format "
 <a href=\"/est/view/%s/%s/data.json\">
 <input type=\"submit\" value=\"JSON\" />
+</a>\n%s"
+			   genre rdf-uri-object
+			   (if (and (or (char-feature object '->HNG@CN/manuscript)
+					(char-feature object '->HNG@CN/printed)
+					(char-feature object '->HNG@JP/manuscript)
+					(char-feature object '->HNG@JP/printed)
+					(char-feature object '->HNG@KR)
+					(char-feature object '->HNG@MISC))
+				    (setq ucs (char-ucs object))
+				    (setq ret (decode-char '=ucs ucs))
+				    (setq ret
+					  (if (setq ucs (get-char-attribute
+							 ret '=>ucs*))
+					      (decode-char '=ucs ucs)
+					    ret)))
+			       (format "
+<a href=\"https://search.hng-data.org/search/%s\">
+<input type=\"submit\" value=\"HNG-data\" />
 </a>\n"
-			   genre rdf-uri-object)
+				       (www-uri-encode-object ret))
+			     ""))
 		 "")))
       (when (setq parents (www-get-feature-value object '<-denotational))
 	(if (characterp parents)