'a' tags now always have explicit end tag to prevent some browsers th…

…inking the tags are open
rnewman · Jul 18, 2009 · 086b486 · 086b486
1 parent 5e1a96f
commit 086b486
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/src/compojure/html/gen.clj b/src/compojure/html/gen.clj
@@ -94,8 +94,9 @@
 (declare html)
 
 (defvar- container-tags
-  #{:body :b :dd :div :dl :dt :em :fieldset :form :h1 :h2 :h3 :h4 :h5 :h6 :head
-    :html :i :label :li :ol :pre :script :span :strong :style :textarea :ul}
+  #{:a :b :body :dd :div :dl :dt :em :fieldset :form :h1 :h2 :h3 :h4 :h5 :h6
+    :head :html :i :label :li :ol :pre :script :span :strong :style :textarea
+    :ul}
   "A list of tags that need an explicit ending tag when rendered.")
 
 (defn explicit-ending-tag?

diff --git a/test/compojure/html/gen.clj b/test/compojure/html/gen.clj
@@ -13,6 +13,9 @@
   (is (= (html [:h1]) "<h1></h1>"))
   (is (= (html [:script]) "<script></script>")))
 
+(deftest empty-links-tag
+  (is (= (html [:a]) "<a></a>")))
+
 (deftest tags-can-be-strs
   (is (= (html ["div"] "<div></div>"))))