;; -*- 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 object-spec str) (when (characterp object) (princ (format "