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

Track the original filepath for all content.

Browse source
This commit is contained in:
Brit Butler 2014-05-07 17:36:05 -04:00
parent a67a08d54a
commit 795f568aea
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/content.lisp
View file

@ -31,7 +31,8 @@
;; Content Types ;; Content Types
(defclass content () (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) (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))) (text :initform nil :initarg :text :accessor content-text)))
@ -59,8 +60,9 @@
until (string= line (separator *config*)) until (string= line (separator *config*))
appending (list (field-name line) appending (list (field-name line)
(aref (parse-field line) 0)))) (aref (parse-field line) 0))))
(filepath (enough-namestring file (repo *config*)))
(content (slurp-remainder in))) (content (slurp-remainder in)))
(append meta (list :text content)))))) (append meta (list :text content :file filepath))))))
;; Helper Functions ;; Helper Functions