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

Simple fix to find-by-date, TODO updates.

Browse source
This commit is contained in:
Brit Butler 2011-04-20 00:12:27 -04:00
parent b7e8f78465
commit 6a1e793016
2 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
TODO
View file

@ -18,12 +18,10 @@ TODO:
;; identical between the static and dynamic backend? ;; identical between the static and dynamic backend?
;; indexes should be id/name, title + posts. rewrite indices to use them. ;; indexes should be id/name, title + posts. rewrite indices to use them.
;;; posts ;;; posts
;; Make find-by-date, post-url not suck. ;; post-url, improve escaping.
;; -- 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.
;;;; PLUGINS ;;;; PLUGINS
;;;; add activate-plugin, deactivate-plugin, :active-plugins?
;;;; implement: analytics, crossposting, disqus, mathjax, pygments, recaptcha, s3 ;;;; implement: analytics, crossposting, disqus, mathjax, pygments, recaptcha, s3
;;;; support input or output dirs being git repos + have git hooks? ;;;; support input or output dirs being git repos + have git hooks?
;;; import ;;; import

2
static/posts.lisp
View file

@ -52,7 +52,7 @@
(when (and (= year (local-time:timestamp-year date)) (when (and (= year (local-time:timestamp-year date))
(= month (local-time:timestamp-month date))) (= month (local-time:timestamp-month date)))
(push post results)))) (push post results))))
results)) (sort results #'local-time:timestamp> :key #'post-date)))
(defmethod find-by-range (start end) (defmethod find-by-range (start end)
(if (> start end) (if (> start end)