Hook to publish instead of render

This commit is contained in:
PuercoPop 2014-05-07 13:53:59 -05:00
parent 7cb6461cb2
commit f95a3c27a2

View file

@ -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)