X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=cwiki-view.el;h=33c6957db69343ad1f4d08bae4045160e3d910fd;hb=HEAD;hp=d6267146cd0e2666bcaf6219f5c512ca2b085b01;hpb=c7eacb59b6c11c458ee5b0d5af024090c09134b6;p=chise%2Fest.git
diff --git a/cwiki-view.el b/cwiki-view.el
index d626714..bf0dd07 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)
@@ -98,6 +99,7 @@ size=\"64\" maxlength=\"256\" value=\"%s\">
(format "
+ src=\"https://image.chise.org/openseadragon/openseadragon.min.js\">
EsT %s = %s
\n"
@@ -190,8 +192,27 @@ li { margin: 0 0 0 2em; }
(format "
+\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 "
+
+
\n"
- genre rdf-uri-object)
+ (www-uri-encode-object ret))
+ ""))
"")))
(when (setq parents (www-get-feature-value object '<-denotational))
(if (characterp parents)
@@ -239,7 +260,7 @@ li { margin: 0 0 0 2em; }
var viewer;
viewer = OpenSeadragon({
id: \"openseadragon1\",
- prefixUrl: \"http://hng.chise.org/openseadragon/images/\",
+ prefixUrl: \"https://image.chise.org/openseadragon/images/\",
preserveViewport: true,
visibilityRatio: 1,
minZoomLevel: 1,
@@ -266,7 +287,7 @@ li { margin: 0 0 0 2em; }