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 ++++++++++++-------------------- opml.st | 2 +- 2 files changed, 13 insertions(+), 21 deletions(-) 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 diff --git a/opml.st b/opml.st index 3fd6360..9a928ed 100644 --- a/opml.st +++ b/opml.st @@ -2,7 +2,7 @@ $date$ - Gödel-Gentzen Clojure Syndication Services Super System Feed Export + Gödel-Gentzen Clojure Syndication Services Super System Feed Export $feeds:{f | -- cgit v1.2.3