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

14
src/indexes.lisp
View file

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