-;;; atom.el --- Create an Atom feed
+;;; atom.el --- Create an Atom feed -*- lexical-binding: t -*-
;; Copyright (C) 2011 Frédéric Perrin
;;
;; (atom-print my-atom-feed)
;; ;; If you prefer RSS feeds:
-;; (atom-to-rss-print my-atom-feed))
+;; (atom-print-as-rss my-atom-feed))
;; Full documentation is available at <http://tar-jx.bz/code/atom.html>.
(require 'xml)
(require 'url-parse)
-(require 'cl) ; for setf in url-canonalize
(defun atom-create (title link &optional subtitle self id author updated)
"Create a new atom structure.
ID defaults to LINK, which is not optimal; see `atom-generate-id'
for a way to create good identifiers. For a given entry, it must
not change between successive generations of the atom feed, even
-when the content of the entry ."
+when the content of the entry changes."
(let ((entry (list (list 'title nil title))))
(atom-modify-entry entry 'link (list (list (cons 'href link))))
(atom-modify-entry entry 'id (or id link))