gistfile1.clj

(defn urlize
    "A function that takes some text and creates links out of URLs
    that it finds"
    ([text]
        (.replaceAll 
            (re-matcher #"https?://[-\w]+\.\w[-\w/]*+" text)
        "<a href=\"$0\">$0</a>")))

(defn twitter-status 
    ([tweet]
        (html 
            [:div {:class "tweet"} 
                [:div {:class "tweet-text"} (urlize (tweet "text"))]
                [:div {:class "tweet-user"} ((tweet "user" {}) "name" '()) ]
            ])))