cwiki-format.el

   1 ;; -*- coding: utf-8-mcs-er -*-
   2 (require 'cwiki-common)
   3 (require 'est-eval)
   4 (require 'est-format)
   5 (require 'est-xml)
   6
   7 (defun www-format-value (object feature-name
   8                                 &optional value format
   9                                 without-tags without-edit)
  10   (if (symbolp object)
  11       (setq object (concord-decode-object '=id object 'feature)))
  12   (unless value
  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)
  17   )
  18
  19 (defun www-format-value-as-char-list (value &optional without-tags)
  20   (est-format-unit
  21    (est-eval-value-as-object-list value " ") without-tags))
  22
  23 (defun www-format-apply-value (object feature-name
  24                                       format props value
  25                                       &optional uri-object uri-feature
  26                                       without-tags without-edit)
  27   (est-format-unit
  28    (est-eval-apply-value object feature-name format props value uri-object)
  29    without-tags without-edit))
  30
  31 (defun www-format-eval-list (format-list object feature-name
  32                                          &optional lang uri-object
  33                                          without-tags without-edit)
  34   (est-format-unit
  35    (est-eval-list format-list object feature-name lang uri-object)
  36    without-tags without-edit))
  37
  38
  39 ;;; @ End.
  40 ;;;
  41
  42 (provide 'cwiki-format)
  43
  44 ;;; cwiki-format.el ends here