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

Merge pull request #212 from equwal/master

Browse source 
Unmagic the number 10 for index posts
This commit is contained in:
Cthulhux 2024-05-11 22:39:19 +02:00 • committed by GitHub
commit 55525f5c15
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/indexes.lisp
View file

@ -5,6 +5,9 @@
(defvar *all-tags* nil (defvar *all-tags* nil
"The list of tags which content has been tagged with.") "The list of tags which content has been tagged with.")
(defvar *pages-listings-on-index* 10
"Page listings in the index per page.")
(defclass index () (defclass index ()
((url :initarg :url :reader page-url) ((url :initarg :url :reader page-url)
(name :initarg :name :reader index-name) (name :initarg :name :reader index-name)
@ -67,14 +70,14 @@
(defmethod discover ((doc-type (eql (find-class 'numeric-index)))) (defmethod discover ((doc-type (eql (find-class 'numeric-index))))
(let ((content (by-date (find-all 'post)))) (let ((content (by-date (find-all 'post))))
(dotimes (i (ceiling (length content) 10)) (dotimes (i (ceiling (length content) *pages-listings-on-index*))
(add-document (index-by-n i content))))) (add-document (index-by-n i content)))))
(defun index-by-n (i content) (defun index-by-n (i content)
"Return the index for the Ith page of CONTENT in reverse chronological order." "Return the index for the Ith page of CONTENT in reverse chronological order."
(let ((content (subseq content (* 10 i)))) (let ((content (subseq content (* *pages-listings-on-index* i))))
(make-instance 'numeric-index :slug (1+ i) :name (1+ i) (make-instance 'numeric-index :slug (1+ i) :name (1+ i)
:content (take-up-to 10 content) :content (take-up-to *pages-listings-on-index* content)
:title "Recent Content"))) :title "Recent Content")))
(defmethod publish ((doc-type (eql (find-class 'numeric-index)))) (defmethod publish ((doc-type (eql (find-class 'numeric-index))))