+ (setq id (www-uri-make-object-url char))
+ (insert (format "%s \"@id\": \"%s\"" line-separator id))
+ (setq obj-id (file-name-nondirectory id))
+ (setq type
+ (cond
+ ((string-match "^a2\\." obj-id)
+ "chise:super-abstract-character")
+ ((string-match "^a\\." obj-id)
+ "chise:abstract-character")
+ ((string-match "^o\\." obj-id)
+ "chise:unified-glyph")
+ ((string-match "^rep\\." obj-id)
+ "chise:abstract-glyph")
+ ((string-match "^g\\." obj-id)
+ "chise:detailed-glyph")
+ ((string-match "^g2\\." obj-id)
+ "chise:abstract-glyph-form")
+ ((string-match "^gi\\." obj-id)
+ "chise:abstract-glyph-form")
+ ((string-match "^repi\\." obj-id)
+ "chise:glyph-image")
+ (t
+ "chise:character")
+ ))
+ (insert (format "%s \"@type\": \"%s\"" line-separator type))