(setq dest
(format "%s %s=\"%s\""
dest key
- (www-format-encode-string
- (format "%s"
- (est-format-unit val 'without-tags
- 'without-edit 'as-property))
- 'without-tags))))
+ (format "%s"
+ (est-format-unit val 'without-tags
+ 'without-edit 'as-property))
+ )))
dest))
(defun est-format-unit (format-unit
props (nth 1 format-unit)
children (nthcdr 2 format-unit))
(cond
- ((eq name 'list)
+ ((or (eq name 'list)
+ (eq name 'image-list))
(cond
((or (eq output-format 'plain-text)
(eq output-format 'wiki-text))
children)))
))
)
+ ((eq name 'omitted)
+ (cond
+ ((eq output-format 'wiki-text)
+ (setq output-string "{{...}}")
+ )
+ ((and (eq output-format 'html)
+ (setq object (plist-get props :object))
+ (setq feature (plist-get props :feature)))
+ (setq children
+ (list
+ (list* 'a
+ (list :href
+ (concat (www-uri-make-object-url object)
+ (if est-hide-cgi-mode
+ "/feature="
+ "&feature=")
+ (www-uri-encode-feature-name feature)))
+ children)))
+ ))
+ )
((eq name 'feature-name)
(setq name 'span)
(when (eq output-format 'html)
(setq feature (plist-get props :feature)))
(setq children
(list
- (list* 'a
- (list :href
- (www-uri-make-feature-name-url
- (est-object-genre object)
- (www-uri-encode-feature-name feature)
- (www-uri-encode-object object)))
- children)))))
+ (list 'span
+ '(:class "feature-name")
+ (list* 'a
+ (list :href
+ (www-uri-make-feature-name-url
+ (est-object-genre object)
+ (www-uri-encode-feature-name feature)
+ (www-uri-encode-object object)))
+ children))))))
)
((eq name 'value)
(cond
((memq name '(div
a ul ol p
span
- input))
+ input img))
)
(t
(when (eq output-format 'html)
(t
(mapconcat (lambda (unit)
(est-format-unit
- unit output-format without-edit as-property separator))
+ unit output-format without-edit as-property))
format-list separator)
)))