diff options
| -rw-r--r-- | mulkcms.lisp | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/mulkcms.lisp b/mulkcms.lisp index 08566a7..8d5ff6e 100644 --- a/mulkcms.lisp +++ b/mulkcms.lisp @@ -622,7 +622,11 @@ revisions (subseq revisions 0 - (min 5 (length revisions)))))) + (min 5 (length revisions))))) + (minor-revisions (remove-if (lambda (x) + (or (null (getf x :title)) + (equal (getf x :title) ""))) + revisions))) (cond ((member path '("journal" "journal/") :test #'string=) (let* ((page-skeleton (template "page_skeleton")) @@ -646,13 +650,13 @@ page-template (list* :head t :articles displayed-revisions - :minor-articles revisions + :minor-articles minor-revisions template-params))) (body (expand-template page-template (list* :body t :articles displayed-revisions - :minor-articles revisions + :minor-articles minor-revisions template-params)))) (expand-template page-skeleton (list :title *site-name* :head head |