39 lines
1.1 KiB
Common Lisp
39 lines
1.1 KiB
Common Lisp
|
(in-package :coleslaw)
|
||
|
|
|
||
|
|
(defclass post ()
|
||
|
|
((id :initform nil
|
||
|
|
:accessor post-id)
|
||
|
|
(title :initform nil
|
||
|
|
:accessor post-title)
|
||
|
|
(tags :initform nil
|
||
|
|
:accessor post-tags)
|
||
|
|
(date :initform nil
|
||
|
|
:accessor post-date)
|
||
|
|
(content :initform nil
|
||
|
|
:accessor post-content)))
|
||
|
|
|
||
|
|
(defgeneric make-post (title tags date content &key &allow-other-keys)
|
||
|
|
(:documentation "Create a POST with the given data."))
|
||
|
|
|
||
|
|
(defgeneric add-post (post id)
|
||
|
|
(:documentation "Insert a post into *storage* with the given ID."))
|
||
|
|
|
||
|
|
(defgeneric remove-post (id)
|
||
|
|
(:documentation "Remove a post from *storage* matching ID."))
|
||
|
|
|
||
|
|
(defgeneric render-post (id)
|
||
|
|
(:documentation "Generate the final HTML for post."))
|
||
|
|
|
||
|
|
(defgeneric find-post (id)
|
||
|
|
(:documentation "Retrieve a post from *storage* matching ID."))
|
||
|
|
|
||
|
|
(defgeneric find-by-tag (tag)
|
||
|
|
(:documentation "Retrieve all posts from *storage* tagged with TAG."))
|
||
|
|
|
||
|
|
(defgeneric find-by-date (date)
|
||
|
|
(:documentation "Retrieve all posts from *storage* matching DATE."))
|
||
|
|
|
||
|
|
(defgeneric find-by-range (start end)
|
||
|
|
(:documentation "Retrieve all posts from *storage* with ids between
|
||
|
|
START and END."))
|