X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=cwiki-add.el;h=eca73eab964e64fc327982b5d1b5317e8c203df1;hb=f40c7b7454424634c382936af73dc2b44d1c4db9;hp=554d04833bc02c1a6935576bfaa0d2fdf84d01a6;hpb=1662baf81ca538b8384053ce2ef5ee69ecbbf199;p=chise%2Fest.git diff --git a/cwiki-add.el b/cwiki-add.el index 554d048..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-char uri-char)) - char-spec) - (when (characterp char) - (princ - (format " -