b- PieschenTvClj ^{** - wiki at8a.....}

; ; ;{{{ ((defn tv [] (handle "tv" (fn [] (str "" (apply str (map (fn [x] (if (= :entry (:tag x)) (str "" "" "" "" " "))) (:content (clojure.xml/parse "http://feeds.seesmic.com/user.rainer.atom")))) "

" (:title (:attrs (nth (:content x) 6))) " " (let [pdate (first (:content (nth (:content x) 4) ) )] (str (.substring pdate 0 10) " " (.substring pdate 11 16))) " view

" (if (get (:content x) 11) (camelify (first (:content (get (:content x) 11))))) "

") ) "")))) ;}}}