update.

[chise/est.git] / cwiki-view.el

diff --git a/cwiki-view.el b/cwiki-view.el
index 85f38d9..5b1d63b 100644 (file)
--- 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