 			\" "&quot;"
 			\' "&#39;"})))
 
-(defn- readable-string [id] (if (keyword? id) (join " " (map capitalize (split (name id) #"-"))) id))
+(defn- readable-string [id]
+	(if-not (keyword? id) id
+		(join " " (map capitalize (split (name id) #"-")))))
 
 (defn- $lift [& fs] (partial map #(%1 %2) fs))
 

	'address 'article 'header 'footer 'main 'section 'aside 'figure 'figcaption
	'form 'legend 'fieldset 'select 'option 'optgroup 'label 'input 'button 'progress
	'html 'head 'title 'link 'style 'script 'base 'body 'noscript]))

(defn literal [& content] (Literal. (str-join content)))

(defn !-- [& content] (literal (str-join "<!-- " content " -->")))


	      css (apply merge empty-css (filter css? stuff))
	      items (flatten (filter child-item? stuff))]
		(Tag. nm attrs css items)))

(defn literal [& content] (Literal. (str-join content)))

;; Declaring a whole bunch of tags

