From 341e5d378b8d77a0e0dbffa131231b787dd92b68 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Mon, 23 Feb 2009 18:20:06 +0100 Subject: Use a template for OPML generation. --- cljssss-g.clj | 32 ++++++++++++-------------------- 1 file changed, 12 insertions(+), 20 deletions(-) (limited to 'cljssss-g.clj') diff --git a/cljssss-g.clj b/cljssss-g.clj index 59441db..6f77200 100644 --- a/cljssss-g.clj +++ b/cljssss-g.clj @@ -31,26 +31,18 @@ (defn opml-string [id] (with-dbt (sql/with-query-results - results - ["SELECT feed.uri, feed.link, user_feed_link.title FROM feed, user_feed_link WHERE user_feed_link.feed=feed.id AND user_feed_link.user=?" id] - (str - "" - "blah" - "Gödel-Gentzen Clojure Syndication Services Super System Feed Export" - (loop [clstr "" r results] - (if (first r) - (recur - (str clstr - "") - (rest r)) - clstr)) - "")))) + results + ["SELECT feed.uri, feed.link, user_feed_link.title FROM feed, user_feed_link WHERE user_feed_link.feed=feed.id AND user_feed_link.user=?" id] + (.toString (doto (.getInstanceOf templates "opml") + (.setAttributes {"date" "" ;FIXME + "feeds" + (map (fn [{title :title + uri :uri + link :link}] + {"text" title + "xmlurl" uri + "htmlurl" link}) + results)})))))) (defn lynxy-feedlist [id] (with-dbt -- cgit v1.2.3