b- PieschenRadioClj edit** - wiki at8a.....

; ; ;{{{ ((defn radio [] (handle "radio" (fn [] (str "" (apply str (map (fn [x] (str "

" x "

" "TwitterPic :RainerWasserfuhr) "' width='64' height='64'/>" " ")) (if (> (.length (.getRequestURI request)) (.length "/radio/")) (let [name (.substring (.getRequestURI request) (.length "/radio/"))] [name]) ["JanzFrischAusseFinger" "StadtDresden2056" "MartinRoell" "AnneWillSingularity" "SingularGeplauder" "CloudFee" "LockCloudCamp" "WilliSchroll" "InterShopShop" "GlaeserneWelt" "PeaNuts" "NacktAufAnJa" "TakeTwo" "MindQuestOne"]))) "
") ) "")))) ;}}}