@@ -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] src/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"] test/compojure/html/form_helpers.clj dd36e217de2ea968eca1953a0b9d5a81b54d0d9c Michael Nygard michael.nygard@n6consulting.com http://github.com/abedra/compojure/commit/f5927543fdcc1e14fec927ad8ecbfb2efdae3c40 f5927543fdcc1e14fec927ad8ecbfb2efdae3c40 2009-10-24T05:47:49-07:00 2009-10-22T10:25:44-07:00 Added a radio button form helper b0a65717365e81aef89e306579f17e13762b2079 James Reeves jreeves@weavejester.com