;; -*- coding: utf-8-mcs-er -*-
(require 'char-db-util)
+(setq file-name-coding-system 'utf-8-mcs-er)
+
+(concord-assign-genre 'creator "/usr/local/var/ruimoku/db")
+(concord-assign-genre 'bibliography "/usr/local/var/ruimoku/db")
+(concord-assign-genre 'era "/usr/local/var/ruimoku/db")
+(concord-assign-genre 'period "/usr/local/var/ruimoku/db")
+(concord-assign-genre 'journal "/usr/local/var/ruimoku/db")
+
(defvar chise-wiki-view-url "view.cgi")
(defvar chise-wiki-edit-url "edit.cgi")
feature)))
(defun www-get-feature-value (object feature)
- (let ((latest-feature (char-feature-name-at-domain feature '$rev=latest)))
- (mount-char-attribute-table latest-feature)
- (or (char-feature object latest-feature)
- (char-feature object feature))))
+ (let ((genre (www-get-genre object))
+ (latest-feature (char-feature-name-at-domain feature '$rev=latest)))
+ (cond
+ ((eq genre 'character)
+ (mount-char-attribute-table latest-feature)
+ (or (char-feature object latest-feature)
+ (char-feature object feature))
+ )
+ (t
+ (or (concord-object-get object latest-feature)
+ (concord-object-get object feature))
+ ))))
(defun get-previous-code-point (ccs code)
(let ((chars (charset-chars ccs))
)
(t
(setq char-rep (decode-uri-string char-rep 'utf-8-mcs-er))
- (if (eq genre 'character)
- (when (= (length char-rep) 1)
- (aref char-rep 0))
- (concord-decode-object '=id char-rep genre))))))
+ (cond
+ ((eq genre 'character)
+ (when (= (length char-rep) 1)
+ (aref char-rep 0))
+ )
+ ((eq genre 'feature)
+ (concord-decode-object
+ '=id (www-uri-decode-feature-name char-rep) 'feature)
+ )
+ (t
+ (concord-decode-object
+ '=id (car (read-from-string char-rep)) genre)
+ ))))))
(defun www-uri-encode-char (char)
(if (encode-char char '=ucs)