butaji · November 8, 2014 22:51
diff --git a/clojure-html.clj b/clojure-html.clj
 (ns app (:refer-clojure :exclude [meta tag]))

 (defn attr [args]
  (apply str (reduce str (map #(map (fn [[k v]] (str " " (name k) "='" v "'")) %) args))))

 (defn tag [x, args]
  (str "<" x (attr (filter #(not (string? %)) args)) ">\n" (reduce str (filter string? args)) "</" x ">" "\n"))

 (defn body [& args]
  (tag "body" args))

 (defn head [& args]
  (tag "head" args))

 (defn html [& args]
  (str "<!DOCTYPE html>\n"
    (tag "html" args) "\n"))

 (defn title [& args]
  (tag "title" args))

 (defn link [& args]
  (tag "link" args))

 (defn h1 [& args]
  (tag "h1" args))

 (defn script [& args]
  (tag "script" args))

 (defn meta [& args]
  (tag "meta" args))


 (println
 (html {:lang "en"}
 (head
  (meta {:charset "utf-8"})
  (meta { :http-equiv "X-UA-Compatible", :content "IE=edge"})
  (meta { :name "viewport", :content "width=device-width, initial-scale=1"})
  (title "Bootstrap 101 Template")
  (link { :href "css/bootstrap.min.css", :rel "stylesheet"})
  )
 (body
  (h1 "Hello, world!")
  (script {:src "https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"})
  (script {:src "js/bootstrap.min.js"})
  )))
	(ns app (:refer-clojure :exclude [meta tag]))

	(defn attr [args]
	(apply str (reduce str (map #(map (fn [[k v]] (str " " (name k) "='" v "'")) %) args))))

	(defn tag [x, args]
	(str "<" x (attr (filter #(not (string? %)) args)) ">\n" (reduce str (filter string? args)) "</" x ">" "\n"))

	(defn body [& args]
	(tag "body" args))

	(defn head [& args]
	(tag "head" args))

	(defn html [& args]
	(str "<!DOCTYPE html>\n"
	(tag "html" args) "\n"))

	(defn title [& args]
	(tag "title" args))

	(defn link [& args]
	(tag "link" args))

	(defn h1 [& args]
	(tag "h1" args))

	(defn script [& args]
	(tag "script" args))

	(defn meta [& args]
	(tag "meta" args))


	(println
	(html {:lang "en"}
	(head
	(meta {:charset "utf-8"})
	(meta { :http-equiv "X-UA-Compatible", :content "IE=edge"})
	(meta { :name "viewport", :content "width=device-width, initial-scale=1"})
	(title "Bootstrap 101 Template")
	(link { :href "css/bootstrap.min.css", :rel "stylesheet"})
	)
	(body
	(h1 "Hello, world!")
	(script {:src "https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"})
	(script {:src "js/bootstrap.min.js"})
	)))