diff --git a/TODO b/TODO index 3840534..4d45d2f 100644 --- a/TODO +++ b/TODO @@ -4,11 +4,8 @@ BUGS: ; Slugs aren't unicode safe. See [reddit discussion](http://www.reddit.com/r/lisp/comments/yvh6g/coleslaw_jekylllike_static_blogware_in_500_lines/) and [mozilla code](https://github.com/mozilla/unicode-slugify/blob/master/slugify/__init__.py). TODO: -0.9 -; Add HACKING.md docs, i.e. formalize workflow+releases. No more landing broken stuff on master! -; Document available plugins. -; Document plugin API. Coleslaw.next +; Add HACKING.md docs, i.e. formalize workflow+releases. No more landing broken stuff on master! ; Add SHOUT content type. ;; needs: shout template/render function. Twitter\Disqus integration with shouts? ;; Rename index.posts to something else? diff --git a/src/feeds.lisp b/src/feeds.lisp index 2a9bd87..f65c183 100644 --- a/src/feeds.lisp +++ b/src/feeds.lisp @@ -1,11 +1,8 @@ (in-package :coleslaw) -(defun make-pubdate (&optional date) - "Make a RFC1123 pubdate representing the current time or DATE, when supplied." - (let ((timestamp (if date - (date-to-timestamp date) - (local-time:now)))) - (local-time:format-rfc1123-timestring nil timestamp))) +(defun make-pubdate () + "Make a RFC1123 pubdate representing the current time." + (local-time:format-rfc1123-timestring nil (local-time:now))) (defun render-feeds (feeds) "Render and write the given FEEDS for the site."