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

Add support for looking up content by relative path.

Browse source
This commit is contained in:
Brit Butler 2014-05-07 17:51:49 -04:00
parent 0760459e8f
commit 52b32f459b
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/content.lisp
View file

@ -79,6 +79,10 @@
"Sort CONTENT in reverse chronological order."
(sort content #'string> :key #'content-date))
(defun find-content-by-path (path)
"Find the CONTENT corresponding to the file at PATH."
(find path (find-all 'content) :key #'content-file :test #'string=))
(defgeneric render-text (text format)
(:documentation "Render TEXT of the given FORMAT to HTML for display.")
(:method (text (format (eql :html)))