From a3dac617380038140104afaa233ad6a2f04eb0a9 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Mon, 16 Jul 2018 21:11:56 +0200 Subject: Skip titleless articles in the archive list. --- mulkcms.lisp | 10 +++++++--- 1 file 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 -- cgit v1.2.3