X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fest.git;a=blobdiff_plain;f=cwiki-view.el;fp=cwiki-view.el;h=6d48331f6bac72096e211fc3923b69079e6f68d8;hp=e868df989f3a8e37424f390330fe88c06befce1e;hb=4755ad70494ea2e7e8849a5982861ef5cc4bb659;hpb=1a11294a6e72f8632243e3835f4094cc88b407db
diff --git a/cwiki-view.el b/cwiki-view.el
index e868df9..6d48331 100644
--- a/cwiki-view.el
+++ b/cwiki-view.el
@@ -69,6 +69,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
+ item-code page char-num glyph-image-id
width height image-cobj base-image x y w h)
(if (eq level 0)
(setq level 1
@@ -277,9 +278,34 @@ li { margin: 0 0 0 2em; }
(format ""
ret ret)))
)
- ((and (eq genre 'glyph-image)
- (setq image-cobj
- (car (concord-object-get object '->image-resource))))
+ ((or (and (eq genre 'glyph-image)
+ (setq image-cobj
+ (car (concord-object-get object '->image-resource))))
+ (and (eq genre 'character)
+ (setq ret (www-format-encode-string
+ (est-format-object object 'readable)))
+ (string-match
+ "image-resource)))
+ ))
(if (and (setq ret (concord-object-get image-cobj '=location@iiif))
(setq base-image
(car (concord-object-get image-cobj '<-image-segment))))