diff --git a/TODO b/TODO index b48c0b3..5e9fb03 100644 --- a/TODO +++ b/TODO @@ -18,12 +18,10 @@ TODO: ;; identical between the static and dynamic backend? ;; indexes should be id/name, title + posts. rewrite indices to use them. ;;; posts -;; Make find-by-date, post-url not suck. -;; -- re: find-by-date, aside from the subseq+string= grossness, the posts it -;; -- returns are not in reverse chronological order. Fix it! -;; -- re: post-url, improve escaping. +;; post-url, improve escaping. ;;;; PLUGINS +;;;; add activate-plugin, deactivate-plugin, :active-plugins? ;;;; implement: analytics, crossposting, disqus, mathjax, pygments, recaptcha, s3 ;;;; support input or output dirs being git repos + have git hooks? ;;; import diff --git a/static/posts.lisp b/static/posts.lisp index b3c60b2..f5cd016 100644 --- a/static/posts.lisp +++ b/static/posts.lisp @@ -52,7 +52,7 @@ (when (and (= year (local-time:timestamp-year date)) (= month (local-time:timestamp-month date))) (push post results)))) - results)) + (sort results #'local-time:timestamp> :key #'post-date))) (defmethod find-by-range (start end) (if (> start end)