X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=cwiki-view.el;h=5b1d63b95078badc0caec1360aba0e030eaae738;hb=356fd716c2e1487f44704ace1d3c71315dae12a1;hp=85f38d979d22ff55a1992434a029c2086feb7877;hpb=3fbd544da087508b055c1b07aa065d4f8e2cd964;p=chise%2Fest.git

diff --git a/cwiki-view.el b/cwiki-view.el
index 85f38d9..5b1d63b 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)
@@ -402,10 +422,16 @@ size=\"30\" maxlength=\"30\" value=\"%s\">)</p>
 			'=id HNG-card-id
 			'hng-card)))
 	(put-char-attribute object 'sources@HNG/card (list HNG-card-cobj))
-	(if (setq ret (concord-object-get
-		       HNG-card-cobj
-		       '->glyph-image@zinbun/takuhon))
-	    (put-char-attribute object 'sources@zinbun/takuhon ret))
+	(cond ((setq ret (concord-object-get
+			  HNG-card-cobj
+			  '->glyph-image@zinbun/takuhon))
+	       (put-char-attribute object 'sources@zinbun/takuhon ret)
+	       )
+	      ((setq ret (concord-object-get
+			  HNG-card-cobj
+			  '->glyph-image@gallica))
+	       (put-char-attribute object 'sources@gallica ret)
+	       ))
 	)
       (setq object-spec
 	    (cond