diff options
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)] |