marcuskammer/coleslaw
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Cleanup make-pubdate based on information from cl-test-grid. Thanks Fare!

Browse source
This commit is contained in:
Brit Butler 2013-02-21 09:18:09 -05:00
parent 149c384dce
commit 13a7a7dc65
2 changed files with 4 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
TODO
View file

@ -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). ; 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: 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 Coleslaw.next
; Add HACKING.md docs, i.e. formalize workflow+releases. No more landing broken stuff on master!
; Add SHOUT content type. ; Add SHOUT content type.
;; needs: shout template/render function. Twitter\Disqus integration with shouts? ;; needs: shout template/render function. Twitter\Disqus integration with shouts?
;; Rename index.posts to something else? ;; Rename index.posts to something else?

9
src/feeds.lisp
View file

@ -1,11 +1,8 @@
(in-package :coleslaw) (in-package :coleslaw)
(defun make-pubdate (&optional date) (defun make-pubdate ()
"Make a RFC1123 pubdate representing the current time or DATE, when supplied." "Make a RFC1123 pubdate representing the current time."
(let ((timestamp (if date (local-time:format-rfc1123-timestring nil (local-time:now)))
(date-to-timestamp date)
(local-time:now))))
(local-time:format-rfc1123-timestring nil timestamp)))
(defun render-feeds (feeds) (defun render-feeds (feeds)
"Render and write the given FEEDS for the site." "Render and write the given FEEDS for the site."