X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fest.git;a=blobdiff_plain;f=cwiki-view.el;h=ca965f2517ac12de0edc15c7c33fdbcdfaed47fc;hp=da0447d189db93b2117739ebc467c6f11ec50a14;hb=HEAD;hpb=0d31d421a58ea9e0f7d0d0b3be9435ec33bcdacb
diff --git a/cwiki-view.el b/cwiki-view.el
index da0447d..bf0dd07 100644
--- a/cwiki-view.el
+++ b/cwiki-view.el
@@ -1,6 +1,7 @@
;; -*- coding: utf-8-mcs-er -*-
(require 'cwiki-format)
(require 'char-db-json)
+(require 'concord-turtle-dump)
(defvar chise-wiki-view-url "view.cgi")
(defvar chise-wiki-edit-url "edit.cgi")
@@ -69,6 +70,8 @@ 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)
(setq level 1
@@ -96,6 +99,7 @@ size=\"64\" maxlength=\"256\" value=\"%s\">
(format "
+ src=\"https://image.chise.org/openseadragon/openseadragon.min.js\">
EsT %s = %s
\n"
@@ -174,24 +180,49 @@ li { margin: 0 0 0 2em; }
(substring uri-object (match-end 0))))))))
(princ
(format "
+
-
+
%s
\n"
+ 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)
+ (setq parents (list parents)))
(princ (format "%s %s
\n
\n"
(www-format-value-as-char-list parents)
(www-format-feature-name '->denotational lang))))
(when (setq parents (www-get-feature-value object '<-subsumptive))
+ (if (characterp parents)
+ (setq parents (list parents)))
(princ (format "%s %s
\n
\n"
(www-format-value-as-char-list parents)
(www-format-feature-name '->subsumptive lang))))
@@ -229,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,
@@ -256,7 +287,7 @@ li { margin: 0 0 0 2em; }