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

Fix function call.

Browse source
This commit is contained in:
Jose Santos 2013-01-29 14:42:48 +00:00
parent 70fbaafe40
commit ce12c56644
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/indices.lisp
View file

@ -45,14 +45,14 @@
"Return an index of all CONTENT matching the given TAG." "Return an index of all CONTENT matching the given TAG."
(flet ((valid-p (obj) (member tag (content-tags obj) :test #'string=))) (flet ((valid-p (obj) (member tag (content-tags obj) :test #'string=)))
(make-instance 'tag-index :id tag (make-instance 'tag-index :id tag
:posts (remove-if-not valid-p content) :posts (remove-if-not #'valid-p content)
:title (format nil "Posts tagged ~a" tag)))) :title (format nil "Posts tagged ~a" tag))))
(defun index-by-month (month content) (defun index-by-month (month content)
"Return an index of all CONTENT matching the given MONTH." "Return an index of all CONTENT matching the given MONTH."
(flet ((valid-p (obj) (search month (content-date obj)))) (flet ((valid-p (obj) (search month (content-date obj))))
(make-instance 'date-index :id month (make-instance 'date-index :id month
:posts (remove-if-not valid-p content) :posts (remove-if-not #'valid-p content)
:title (format nil "Posts from ~a" month)))) :title (format nil "Posts from ~a" month))))
(defun index-by-n (i content &optional (step 10)) (defun index-by-n (i content &optional (step 10))