Added a radio button form helper

Author: mtnygard

src/compojure/html/form_helpers.clj

@@ -66,6 +66,19 @@
              :value   value
              :checked checked?}]))
 
+(defn radio-button
+ "Creates a radio button."
+ ([name]
+    (radio-button name (*params* name)))
+ ([name checked?]
+    (radio-button name checked? "true"))
+ ([name checked? value]
+    [:input {:type    "radio"
+             :name    (str* name)
+             :id      (str* name)
+             :value   value
+             :checked checked?}]))
+
 (defn select-options
   "Turn a collection into a set of option tags."
   ([options]

test/compojure/html/form_helpers.clj

@@ -31,6 +31,22 @@
                   :value "true"
                   :checked nil}])))
 
+(deftest test-radio-button
+  (is (= (radio-button :foo)
+         [:input {:type "radio"
+                  :id "foo"
+                  :name "foo"
+                  :value "true"
+                  :checked nil}])))
+
+(deftest test-radio-button-selected
+  (is (= (radio-button :foo true "abcdef")
+         [:input {:type "radio"
+                  :id "foo"
+                  :name "foo"
+                  :value "abcdef"
+                  :checked true}])))
+  
 (deftest select-options-with-values
   (is (= (select-options [["a" "1"] ["b" "2"] ["c" "3"]])
         '([:option {:value "1"} "a"]