Hook to publish instead of render
This commit is contained in:
parent
7cb6461cb2
commit
f95a3c27a2
1 changed files with 4 additions and 2 deletions
|
@ -3,7 +3,9 @@
|
|||
|
||||
(defpackage :coleslaw-twitter
|
||||
(:use :cl)
|
||||
(:import-from :coleslaw :*config*)
|
||||
(:import-from :coleslaw
|
||||
:*config*
|
||||
:publish)
|
||||
(:export #:enable))
|
||||
|
||||
(in-package :coleslaw-twitter)
|
||||
|
@ -26,7 +28,7 @@
|
|||
(when tweet-format
|
||||
(setf *tweet-format* tweet-format)))
|
||||
|
||||
(defmethod render :after (post (eql (find-class 'coleslaw:post)))
|
||||
(defmethod publish :after (post (eql (find-class 'coleslaw:post)))
|
||||
(format-post post))
|
||||
|
||||
(defun format-post (post)
|
||||
|
|
Loading…
Add table
Reference in a new issue