(www-display-object-desc): Add [HNG-data] button for each character

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

diff --git a/cwiki-view.el b/cwiki-view.el
index ca965f2..8b1cecb 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)
@@ -329,14 +349,21 @@ li { margin: 0 0 0 2em; }
             (setq ret (concord-object-get object '=hng-card))
             (setq ret (symbol-name ret))
             (string-match "\\([0-9]+\\)-\\([0-9]+\\)" ret))
-       (princ
-        (format
-         "<img alt=\"HNG-card:%s\"
+       (setq ret
+             (format
+              "<img alt=\"HNG-card:%s\"
 src=\"http://hng.chise.org/images/HNG/%03d/card/%04d.jpg\"
 style=\"height: 480px;\" />"
-         ret
-         (string-to-int (match-string 1 ret))
-         (string-to-int (match-string 2 ret))))
+              ret
+              (string-to-int (match-string 1 ret))
+              (string-to-int (match-string 2 ret))))
+       (princ
+        (if (setq image-cobj
+                  (car (concord-object-get object '->image-resource)))
+            (format "<a href=\"../image-resource/%s\">%s</a>"
+                    (www-uri-encode-object image-cobj)
+                    ret)
+          ret))
        )
        (t
        (setq ret (www-format-encode-string