X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fest.git;a=blobdiff_plain;f=cwiki-add.el;h=eca73eab964e64fc327982b5d1b5317e8c203df1;hp=d294880766d5a7e21de0d7ddc1f6e839bc9f3caf;hb=3a14975bf32bbe7f416ed359d0584453c4e56aad;hpb=883f788431a13d3e6b1c9bb7277501c194a2e5e7 diff --git a/cwiki-add.el b/cwiki-add.el index d294880..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-format) +(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 " -