Commit 6ad4951c authored by Mariano Montone's avatar Mariano Montone

Less past news in home page box.

parent 0f4604f6
...@@ -109,7 +109,7 @@ ...@@ -109,7 +109,7 @@
(slot-value original slot)))) (slot-value original slot))))
copy)) copy))
(defun generate-news-box-content (html &key (count 5)) (defun generate-news-box-content (html &key (count 4))
(let ((dom (plump-parser:parse html))) (let ((dom (plump-parser:parse html)))
(let ((state :start) (let ((state :start)
(node (plump:first-child dom)) (node (plump:first-child dom))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment