From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 16 Mar 2016 15:07:40 +0000 (+0900)
Subject: (est-format-unit): For conversion of `feature-name' unit, enclose '(a
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=05ffd00f104110357b6674700ad56a8e4af2ee26;p=chise%2Fest.git

(est-format-unit): For conversion of `feature-name' unit, enclose '(a
(:href ...) ...) with (span (:class "feature-name") ...)
---

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