+ ((and (eq genre 'character)
+ (not GlyphWiki-id)
+ (setq ret (or (encode-char object '=chise-hdic-tsj)
+ (encode-char object '===chise-hdic-tsj)))
+ (setq ret (decode-char '===chise-hdic-tsj ret))
+ (setq ret (get-char-attribute ret 'hdic-tsj-word-id)))
+ (princ
+ (format "<a href=\"https://viewer.hdic.jp/tsj2/%s\"
+>%s</a>"
+ ret
+ (www-format-encode-string
+ (est-format-object object 'readable))))
+ )
+ ((and (eq genre 'character)
+ (not GlyphWiki-id)
+ (setq ret (or (encode-char object '=chise-hdic-syp)
+ (encode-char object '===chise-hdic-syp)))
+ (setq ret (decode-char '===chise-hdic-syp ret))
+ (setq ret (get-char-attribute ret '=hdic-syp-entry-id)))
+ (princ
+ (format "<a href=\"https://viewer.hdic.jp/syp/%s\"
+>%s</a>"
+ ret
+ (www-format-encode-string
+ (est-format-object object 'readable))))
+ )
+ ((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
+ ;; "<img alt=\"SW-JIGUGE\\([45]\\)-\\([0-9][0-9][0-9]\\)\\([0-9][0-9]\\)"
+ ;; ret)
+ ;; (setq item-code (string-to-int (match-string 1 ret))
+ ;; page (string-to-int (match-string 2 ret))
+ ;; char-num (string-to-int (match-string 3 ret)))
+ (cond ((setq ret (or (encode-char object '=shuowen-jiguge)
+ (encode-char object '===shuowen-jiguge5)))
+ (setq item-code 5
+ page (/ ret 100)
+ char-num (% ret 100)))
+ ((setq ret (encode-char object '===shuowen-jiguge4))
+ (setq item-code 4
+ page (/ ret 100)
+ char-num (% ret 100))))
+ (setq glyph-image-id
+ (cond ((eq item-code 4)
+ (intern
+ (format "zinbun/toho/A024/A024%04d/char=%d"
+ (+ page 18) char-num))
+ )
+ ((eq item-code 5)
+ (intern
+ (format "zinbun/toho/A020/A020%04d/char=%d"
+ (+ page 16) char-num))
+ )))
+ (setq image-cobj
+ (concord-decode-object '=id glyph-image-id 'glyph-image))
+ (setq image-cobj
+ (car (concord-object-get image-cobj '->image-resource)))
+ ))
+ (if (and (setq ret (concord-object-get image-cobj '=location@iiif))
+ (setq base-image
+ (car (concord-object-get image-cobj '<-image-segment))))
+ (princ
+ (format "<a href=\"../image-resource/%s...$.zoom-xywh=%d,%d,%d,%d\"
+><img alt=\"%s\" src=\"%s\" /></a>"
+ (www-uri-encode-object base-image)
+ (concord-object-get image-cobj 'image-offset-x)
+ (concord-object-get image-cobj 'image-offset-y)
+ (concord-object-get image-cobj 'image-width)
+ (concord-object-get image-cobj 'image-height)
+ ret ret))
+ (setq ret (concord-object-get image-cobj '=location))
+ (princ (format "<img alt=\"%s\" src=\"%s\" />"
+ ret ret)))
+ )