diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2018-07-16 21:11:56 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2018-07-16 21:11:56 +0200 |
| commit | a3dac617380038140104afaa233ad6a2f04eb0a9 (patch) | |
| tree | 0143edd642bbe1b7d2b3e624796db100d0987e5a | |
| parent | d46a9126a63a31847a17fb7d5b0d6c5019873331 (diff) | |
Skip titleless articles in the archive list.
| -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 |