That's cool.
(doseq [[name tag] [['html "html"]
['head "head"]
['style "style"]
['title "title"]
['body "body"]
['table "table"]
['row "tr"]
['col "td"]
['span "span"]
['h1 "h1"]]]
Why not use map here?
(eval `(defblockfn ~name [block#]
(html_tag* ~tag nil block#)))
(eval `(defblockfn ~(symbol (str name "_with")) [attributes# block#]
(html_tag* ~tag attributes# block#))))
See if you can simplify the above code.
Regards,
Emeka
On Thu, Jun 25, 2009 at 5:46 PM, CuppoJava <patrickli_2...@hotmail.com>wrote:
>
> Hey guys,
> I was a little tired of working on what I am supposed to be working
> on, and decided to take a break and create a website. I decided to use
> Clojure, and to my surprise, it only took a day and less than 3 pages
> of code.
>
> members.shaw.ca/patrickli
>
> It only has a single article right now, under Technical, that talks
> about how I programmed the website. It's still a rough work (I haven't
> written anything substantial for a long time....), but it'd be nice to
> hear some thoughts.
>
> -Patrick
> >
>
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to clojure@googlegroups.com
Note that posts from new members are moderated - please be patient with your
first post.
To unsubscribe from this group, send email to
clojure+unsubscr...@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
-~----------~----~----~----~------~----~------~--~---
