;; -*- coding: utf-8-mcs-er -*- (defvar chise-wiki-view-url "view.cgi") (defvar chise-wiki-edit-url "edit.cgi") (require 'cwiki-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) ;; )))) (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-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