diff --git a/src/content.lisp b/src/content.lisp
index cc6ae0d..1e6af76 100644
--- a/src/content.lisp
+++ b/src/content.lisp
@@ -6,7 +6,8 @@
(defclass content ()
((tags :initform nil :initarg :tags :accessor content-tags)
(slug :initform nil :initarg :slug :accessor content-slug)
- (date :initform nil :initarg :date :accessor content-date)))
+ (date :initform nil :initarg :date :accessor content-date)
+ (text :initform nil :initarg :text :accessor content-text)))
(defun construct (content-type args)
"Create an instance of CONTENT-TYPE with the given ARGS."
@@ -42,7 +43,7 @@ If PLIST-P is non-nil, a single plist is returned with :content holding the text
(content (slurp-remainder in)))
(setf (getf meta :tags) (read-delimited (getf meta :tags)))
(if plist-p
- (append meta (list :content content))
+ (append meta (list :text content))
(values meta content))))))
(defun find-all (content-type)
diff --git a/src/posts.lisp b/src/posts.lisp
index d251a8a..95ca6e0 100644
--- a/src/posts.lisp
+++ b/src/posts.lisp
@@ -2,8 +2,7 @@
(defclass post (content)
((title :initform nil :initarg :title :accessor post-title)
- (format :initform nil :initarg :format :accessor post-format)
- (content :initform nil :initarg :content :accessor post-content)))
+ (format :initform nil :initarg :format :accessor post-format)))
(defmethod render ((object post) &key prev next)
(funcall (theme-fn 'post) (list :config *config*
@@ -17,10 +16,10 @@
(defmethod initialize-instance :after ((object post) &key)
(with-accessors ((title post-title)
(format post-format)
- (content post-content)) object
+ (text content-text)) object
(setf (content-slug object) (slugify title)
format (make-keyword (string-upcase format))
- content (render-content content format))))
+ text (render-content text format))))
(defmethod discover ((content-type (eql :post)))
(purge-all 'post)
diff --git a/themes/atom.tmpl b/themes/atom.tmpl
index 6e22603..c11d019 100644
--- a/themes/atom.tmpl
+++ b/themes/atom.tmpl
@@ -22,7 +22,7 @@