From 795f568aea0562a46568574234698e9cbbfff5ae Mon Sep 17 00:00:00 2001 From: Brit Butler Date: Wed, 7 May 2014 17:36:05 -0400 Subject: [PATCH] Track the original filepath for all content. --- src/content.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/content.lisp b/src/content.lisp index 4a0dd2b..c81e1de 100644 --- a/src/content.lisp +++ b/src/content.lisp @@ -31,7 +31,8 @@ ;; Content Types (defclass content () - ((tags :initform nil :initarg :tags :accessor content-tags) + ((file :initform nil :initarg :file :accessor content-file) + (tags :initform nil :initarg :tags :accessor content-tags) (slug :initform nil :initarg :slug :accessor content-slug) (date :initform nil :initarg :date :accessor content-date) (text :initform nil :initarg :text :accessor content-text))) @@ -59,8 +60,9 @@ until (string= line (separator *config*)) appending (list (field-name line) (aref (parse-field line) 0)))) + (filepath (enough-namestring file (repo *config*))) (content (slurp-remainder in))) - (append meta (list :text content)))))) + (append meta (list :text content :file filepath)))))) ;; Helper Functions