;; -*- coding: utf-8-mcs-er -*-
(defvar chise-wiki-view-url "../view.cgi")
(defvar chise-wiki-edit-url "edit.cgi")
(require 'cwiki-common)
(require 'cwiki-view)
;;; @ stext parser
;;;
(defun www-xml-parse-string (string)
(require 'xml)
(nthcdr
2
(car
(with-temp-buffer
(insert "
") (princ (www-format-eval-list (or (char-feature-property logical-feature 'format) '((name) " : " (value))) char logical-feature lang uri-char)) (princ (format " " chise-wiki-edit-url (www-format-encode-string uri-char) (www-format-encode-string (www-uri-encode-feature-name (intern (format "%s*note" logical-feature)))))) (princ "
\n") )) (princ (format "" chise-wiki-add-url (www-format-encode-string uri-char))) ))) (defun www-set-display-feature-desc (feature-name property-name value &optional lang uri-char) (www-html-display-paragraph (format "set: feature: %S, property-name: %S, value: %S, lang: %S, char: %S\n" feature-name property-name value lang uri-char)) (put-char-feature-property feature-name property-name value) (let ((name@lang (intern (format "name@%s" lang))) (uri-feature-name (www-uri-encode-feature-name feature-name))) (princ (encode-coding-string (format "