;; -*- coding: utf-8-mcs-er -*- (defvar chise-wiki-view-url "view.cgi") (defvar chise-wiki-edit-url "edit.cgi") ;; (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 " ;; ;; ;; " ;; (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)))) ;; (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) (www-display-object-desc genre uri-object nil lang 1 nil uri-feature-name format)) ;; (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