X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=cwiki-edit.el;h=0c9a07bd7d62d34403032ccea1e092a214128d90;hb=aa419fd536c3c8bee29dfd0ff186d969b4ff8afe;hp=b526cfbc633ac1b1d2b02cbcd9b98377cc2f4298;hpb=a54ed69623f7bd78fc6e741e86b6748d7737832b;p=chise%2Fest.git diff --git a/cwiki-edit.el b/cwiki-edit.el index b526cfb..0c9a07b 100644 --- a/cwiki-edit.el +++ b/cwiki-edit.el @@ -2,131 +2,163 @@ (defvar chise-wiki-view-url "view.cgi") (defvar chise-wiki-edit-url "edit.cgi") -(require 'cwiki-common) +;; (require 'cwiki-format) +(require 'cwiki-view) -(defun www-edit-display-input-box (object name value &optional format) - (when (stringp format) - (setq format (intern format))) - (let (prefix) - (if (or (eq format 'HEX) - (eq format 'hex)) - (if (integerp value) - (setq prefix "0x"))) - (princ (www-format-encode-string - (format "%s \u2190 %s" - name - (or prefix "")))) - (princ - (format " - +;; (defun www-edit-display-input-box (object name value &optional format) +;; (when (stringp format) +;; (setq format (intern format))) +;; (let (prefix) +;; (if (or (eq format 'HEX) +;; (eq format 'hex)) +;; (if (integerp value) +;; (setq prefix "0x"))) +;; (princ (www-format-encode-string +;; (format "%s \u2190 %s" +;; name +;; (or prefix "")))) +;; (princ +;; (format " +;; +;; +;; " +;; (www-format-encode-string +;; (format "%s" name) 'without-tags) +;; (www-format-apply-value object name +;; format nil value +;; nil nil +;; 'without-tags) +;; )))) -" - (www-format-encode-string - (format "%s" name) 'without-tags) - (www-format-apply-value object name - format nil value - nil nil - '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 - object-spec str) - (when (characterp object) - (princ - (format " -%s %s
\n%s %s
\n