X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=est-format.el;h=1b2703d1e48b461f570510bb6ad73728af1648fb;hb=287c1d3fa3f1136af6ba5cfe1768288a8820abad;hp=b9278abcfe55a8240b2ae2cd23e1a09b4483a867;hpb=ddeaac2017c624ecb802f6216440f1504962cdc4;p=chise%2Fest.git diff --git a/est-format.el b/est-format.el index b9278ab..1b2703d 100644 --- a/est-format.el +++ b/est-format.el @@ -159,13 +159,15 @@ (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