(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))
(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)