diff options
author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2012-02-29 23:03:56 +0100 |
---|---|---|
committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2012-02-29 23:03:56 +0100 |
commit | 9a38fec9b6552798bb341ce92f40d1ec92865a73 (patch) | |
tree | 119fa96af5cbfd294abd04751cbbfde9f529920f /src/mulk/benki/book_marx.clj | |
parent | 30515c14a029c140a82729962b06eecac1745f11 (diff) |
Book Marx: Add feed link to bookmark list page.
Diffstat (limited to 'src/mulk/benki/book_marx.clj')
-rw-r--r-- | src/mulk/benki/book_marx.clj | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/src/mulk/benki/book_marx.clj b/src/mulk/benki/book_marx.clj index bbaa9f6..ef5da7e 100644 --- a/src/mulk/benki/book_marx.clj +++ b/src/mulk/benki/book_marx.clj @@ -103,7 +103,16 @@ (escape-html (format-date (:date mark)))] [:span {:class "bookmark-owner"} " by " (escape-html (:first_name mark))]] [:div {:class "bookmark-description"} - (htmlize-description (:description mark))]])]])))) + (htmlize-description (:description mark))]])]] + [:div {:id "bookmarx-feed-link"} + (let [feed-link (linkrel :marx :feed)] + [:span {:id "bookmarx-feed-link-text"} + [:a {:href (resolve-uri feed-link)} "Atom"] + (when *user* + (list + " [" + [:a {:href (resolve-uri (authlink feed-link))} "authlink"] + "]"))])])))) (defn marx-feed-for-user [user] (let [marks (bookmarks-visible-by user)] |