(www-display-object-desc): Add [HNG-data] button for each character
authorMORIOKA Tomohiko <tomo.git@chise.org>
Wed, 30 Oct 2019 07:03:34 +0000 (16:03 +0900)
committerMORIOKA Tomohiko <tomo.git@chise.org>
Mon, 16 Dec 2019 10:32:47 +0000 (19:32 +0900)
which has the corresponding HNG glyphs.

cwiki-view.el

index 85f38d9..8b1cecb 100644 (file)
@@ -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)