 (dorun (map declare-tag [
 	'h1 'h2 'h3 'h4 'h5 'h6
 	'b 'i 'u 's 'del 'ins 'small 'sup 'sub 'pre 'q 'cite 'mark 'dbo
-	'a 'img 'embed 'object 'param
+	'a 'img 'embed 'object 'param 'iframe
 	'ul 'ol 'li 'dl 'dt 'dd
 	'p 'span 'div 'nav 'br 'canvas 'textarea 'blockquote
 	'table 'thead 'tbody 'tfoot 'th 'tr 'td 'caption 'colgroup 'col
 	'address 'article 'header 'footer 'main 'section 'aside 'figure 'figcaption
-	'form 'legend 'fieldset 'select 'input 'button
+	'form 'legend 'fieldset 'select 'label 'input 'button 'progress
 	'html 'head 'title 'style 'base 'body 'noscript]))
 
 ;; Tags with specific features


;; Core types

(defn str-attrs [attrs] (str-join (map (fn [[k v]] [" " k "=\"" v "\""]) attrs)))

(defrecord Tag [tag-name attrs css items]
	java.lang.Object

	([label value] (new-tag "option" {:value value} label)))

(defn optgroup [label & opts] (new-tag "optgroup" {:label label} opts))

(defn page-meta [prop value] (new-tag "meta" {:name prop :content value}))

