X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=cwiki-edit.el;h=0c9a07bd7d62d34403032ccea1e092a214128d90;hb=8d1f45bec95682f85a982025a9cb384c4f07d307;hp=a8d81a0abde455a89bbe53d8850c2df8efaaa82f;hpb=41c6a9ab82c2142be738288dbff0be69e9ed191f;p=chise%2Fest.git diff --git a/cwiki-edit.el b/cwiki-edit.el index a8d81a0..0c9a07b 100644 --- a/cwiki-edit.el +++ b/cwiki-edit.el @@ -2,7 +2,8 @@ (defvar chise-wiki-view-url "view.cgi") (defvar chise-wiki-edit-url "edit.cgi") -(require 'cwiki-format) +;; (require 'cwiki-format) +(require 'cwiki-view) ;; (defun www-edit-display-input-box (object name value &optional format) ;; (when (stringp format) @@ -30,117 +31,129 @@ ;; 'without-tags) ;; )))) -(defun www-edit-display-feature-input-box (char feature-name - &optional format value) - (unless format - (setq format 'default)) - (unless value - (setq value (www-get-feature-value char feature-name))) - (princ - (format "
" - feature-name)) - (princ (encode-coding-string " \u2190 " 'utf-8-mcs-er)) - (princ - (format "%s -
-" - (if (or (eq format 'HEX)(eq format 'hex)) - "0x" - "") - format - (mapconcat (lambda (c) - (cond - ;; ((eq c ?<) "<") - ;; ((eq c ?>) ">") - ((eq c ?\u0022) """) - (t - (char-to-string c)))) - (www-format-value char feature-name - value format 'without-tags) - ""))) - ) +;; (defun www-edit-display-feature-input-box (char feature-name +;; &optional format value) +;; (unless format +;; (setq format 'default)) +;; (unless value +;; (setq value (www-get-feature-value char feature-name))) +;; (princ +;; (format "" +;; feature-name)) +;; (princ (encode-coding-string " \u2190 " 'utf-8-mcs-er)) +;; (princ +;; (format "%s +;;
+;; " +;; (if (or (eq format 'HEX)(eq format 'hex)) +;; "0x" +;; "") +;; format +;; (mapconcat (lambda (c) +;; (cond +;; ;; ((eq c ?<) "<") +;; ;; ((eq c ?>) ">") +;; ((eq c ?\u0022) """) +;; (t +;; (char-to-string c)))) +;; (est-format-unit +;; (est-eval-unit +;; (if (symbolp format) +;; (list format) +;; format) +;; char feature-name) +;; 'without-tags) +;; ;; (www-format-value char feature-name +;; ;; value format 'without-tags) +;; ""))) +;; ) (defun www-edit-display-object-desc (genre uri-object uri-feature-name &optional lang format) - (when (stringp format) - (setq format (intern format))) - (let ((object (www-uri-decode-object genre uri-object)) - (feature-name (www-uri-decode-feature-name uri-feature-name)) - base-name metadata-name - parents - object-spec str) - (when object - (princ - (encode-coding-string - (format " -%s %s
\n%s %s
\n%s %s
\n%s %s
\n