X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=cwiki-view.el;h=33c6957db69343ad1f4d08bae4045160e3d910fd;hb=0862aab6dba2485eab186d8f9d96dbddd87af5bf;hp=a24b2201dfce3bac7f24c2e3e31397533e274746;hpb=c6150031d1a584a1da6f3ef031fc7622d77205ef;p=chise%2Fest.git
diff --git a/cwiki-view.el b/cwiki-view.el
index a24b220..33c6957 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"
@@ -178,20 +180,39 @@ li { margin: 0 0 0 2em; }
(substring uri-object (match-end 0))))))))
(princ
(format "
+
-
-
-%s
+
+%s
\n"
- genre rdf-uri-object
rdf-uri-object
+ genre rdf-uri-object
(if (eq genre 'character)
(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; }