1 ;; -*- coding: utf-8-mcs-er -*-
2 (require 'cwiki-common)
7 (defun www-format-value (object feature-name
9 without-tags without-edit)
11 (setq object (concord-decode-object '=id object 'feature)))
13 (setq value (www-get-feature-value object feature-name)))
14 (www-format-apply-value object feature-name
15 format nil value nil nil
16 without-tags without-edit)
19 (defun www-format-value-as-char-list (value &optional without-tags)
21 (est-eval-value-as-object-list value " ") without-tags))
23 (defun www-format-apply-value (object feature-name
25 &optional uri-object uri-feature
26 without-tags without-edit)
28 (est-eval-apply-value object feature-name format props value uri-object)
29 without-tags without-edit))
31 (defun www-format-eval-list (format-list object feature-name
32 &optional lang uri-object
33 without-tags without-edit)
35 (est-eval-list format-list object feature-name lang uri-object)
36 without-tags without-edit))
42 (provide 'cwiki-format)
44 ;;; cwiki-format.el ends here