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 " -