X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=cwiki-add.el;h=eca73eab964e64fc327982b5d1b5317e8c203df1;hb=119d3f414b394fad827fd622a549db6e267c67e2;hp=01fe12b7640c016fc71340b67301bd3eb1e3a729;hpb=a275f38aac7477584abcdf4d706e923c9f4401a7;p=chise%2Fest.git diff --git a/cwiki-add.el b/cwiki-add.el index 01fe12b..eca73ea 100644 --- a/cwiki-add.el +++ b/cwiki-add.el @@ -2,66 +2,30 @@ (defvar chise-wiki-view-url "view.cgi") (defvar chise-wiki-edit-url "edit.cgi") -(require 'cwiki-common) +(require 'cwiki-edit) -(defun www-add-display-feature-input-box (char &optional format) - (unless format - (setq format 'default)) - (princ - "

") - (princ (encode-coding-string " \u2190 " 'utf-8-mcs-er)) - (princ - (format "%s -

-" - (if (or (eq format 'HEX)(eq format 'hex)) - "0x" - "") - format)) +;; (defun www-add-display-feature-input-box (char &optional format) +;; (unless format +;; (setq format 'default)) +;; (princ +;; "

") +;; (princ (encode-coding-string " \u2190 " 'utf-8-mcs-er)) +;; (princ +;; (format "%s +;;

+;; " +;; (if (or (eq format 'HEX)(eq format 'hex)) +;; "0x" +;; "") +;; format)) +;; ) + +(defun www-add-display-object-desc (genre uri-object &optional lang format) + (www-edit-display-object-desc genre uri-object "" lang format) ) -(defun www-add-display-char-desc (uri-char &optional lang format) - (when (stringp format) - (setq format (intern format))) - (let ((char (www-uri-decode-object 'character uri-char)) - char-spec) - (when (characterp char) - (princ - (format " -CHISE-wiki character: %s -\n" - (encode-coding-string - (decode-uri-string uri-char 'utf-8-mcs-er) - 'utf-8-mcs-er))) - (princ "\n") - (princ - (format "

%s

\n" - (www-format-encode-string (char-to-string char)))) - (princ "
\n") - (princ - (encode-coding-string - (format "

(char : )

-" - (decode-uri-string uri-char 'utf-8-mcs-er)) - 'utf-8-mcs-er)) - (www-add-display-feature-input-box char format) - (setq char-spec (char-attribute-alist char)) - (dolist (cell (sort char-spec - (lambda (a b) - (char-attribute-name< (car a)(car b))))) - (princ "

") - (princ - (www-format-eval-list - (or (char-feature-property (car cell) 'format) - '((name) " : " (value))) - char (car cell) lang uri-char)) - (princ "

\n")) - (princ "
\n") - ))) - (defun www-batch-add () (setq terminal-coding-system 'binary) (condition-case err @@ -93,9 +57,10 @@ size=\"30\" maxlength=\"30\" value=\"%s\">)

(list (decode-uri-string cell 'utf-8-mcs-er)))) (split-string target "&"))) (setq ret (car target)) - (cond ((eq (car ret) 'char) - (www-add-display-char-desc - (cdr ret) + (cond (t ; (eq (car ret) 'char) + (www-add-display-object-desc + (car ret) + (cdr ret) lang (decode-uri-string (cdr (assq 'format target)) 'utf-8-mcs-er)) @@ -119,7 +84,7 @@ size=\"30\" maxlength=\"30\" value=\"%s\">)

(princ (format "lang=%S\n" lang)) (princ emacs-version) (princ " CHISE ") - (princ xemacs-chise-version) + (princ (encode-coding-string xemacs-chise-version 'utf-8-jp-er)) (princ " ")