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

Rename index-posts -> index-content.

Browse source
This commit is contained in:
Brit Butler 2014-04-15 20:30:47 -04:00
parent c66703ed19
commit fb224744e7
2 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
plugins/mathjax.lisp
View file

@ -5,7 +5,7 @@
#:content
#:index
#:tag-p
#:index-posts))
#:index-content))
(in-package :coleslaw-mathjax)
@ -23,6 +23,6 @@
(or force
(etypecase obj
(content (math-post-p obj))
(index (some #'math-post-p (index-posts obj)))))))
(index (some #'math-post-p (index-content obj)))))))
(let ((mathjax-header (format nil *mathjax-header* config location preset)))
(add-injection (list mathjax-header #'mathjax-p) :head))))

14
src/indexes.lisp
View file

@ -2,8 +2,8 @@
(defclass index ()
((slug :initform nil :initarg :slug :accessor index-slug)
(posts :initform nil :initarg :posts :accessor index-posts)
(title :initform nil :initarg :title :accessor index-title)))
(title :initform nil :initarg :title :accessor index-title)
(content :initform nil :initarg :content :accessor index-content)))
(defmethod render ((object index) &key prev next)
(funcall (theme-fn 'index) (list :tags (all-tags)
@ -29,7 +29,7 @@
(defun index-by-tag (tag content)
"Return an index of all CONTENT matching the given TAG."
(make-instance 'tag-index :slug (tag-slug tag)
:posts (remove-if-not (lambda (x) (tag-p tag x)) content)
:content (remove-if-not (lambda (x) (tag-p tag x)) content)
:title (format nil "Posts tagged ~a" (tag-name tag))))
(defmethod publish ((doc-type (eql (find-class 'tag-index))))
@ -52,7 +52,7 @@
(defun index-by-month (month content)
"Return an index of all CONTENT matching the given MONTH."
(make-instance 'month-index :slug month
:posts (remove-if-not (lambda (x) (month-p month x)) content)
:content (remove-if-not (lambda (x) (month-p month x)) content)
:title (format nil "Posts from ~a" month)))
(defmethod publish ((doc-type (eql (find-class 'month-index))))
@ -76,7 +76,7 @@
"Return the index for the Ith page of CONTENT in reverse chronological order."
(let ((content (subseq content (* 10 i))))
(make-instance 'numeric-index :slug (1+ i)
:posts (take-up-to 10 content)
:content (take-up-to 10 content)
:title "Recent Posts")))
(defmethod publish ((doc-type (eql (find-class 'numeric-index))))
@ -98,7 +98,7 @@
(defmethod discover ((doc-type (eql (find-class 'feed))))
(let ((content (take-up-to 10 (by-date (find-all 'post)))))
(dolist (format '(rss atom))
(let ((feed (make-instance 'feed :posts content :format format)))
(let ((feed (make-instance 'feed :content content :format format)))
(add-document feed)))))
(defmethod publish ((doc-type (eql (find-class 'feed))))
@ -115,7 +115,7 @@
(dolist (tag (feeds *config*))
(let ((posts (remove-if-not (lambda (x) (tag-p tag x)) content)))
(dolist (format '(rss atom))
(let ((feed (make-instance 'tag-feed :posts (take-up-to 10 posts)
(let ((feed (make-instance 'tag-feed :content (take-up-to 10 posts)
:format format
:slug tag)))
(add-document feed)))))))