Bläddra i källkod

Hook to publish instead of render

PuercoPop 11 år sedan
förälder
incheckning
f95a3c27a2
1 ändrade filer med 4 tillägg och 2 borttagningar
  1. 4 2
      plugins/twitter.lisp

+ 4 - 2
plugins/twitter.lisp

@@ -3,7 +3,9 @@
3 3
 
4 4
 (defpackage :coleslaw-twitter
5 5
   (:use :cl)
6
-  (:import-from :coleslaw :*config*)
6
+  (:import-from :coleslaw
7
+                :*config*
8
+                :publish)
7 9
   (:export #:enable))
8 10
 
9 11
 (in-package :coleslaw-twitter)
@@ -26,7 +28,7 @@
26 28
   (when tweet-format
27 29
     (setf *tweet-format* tweet-format)))
28 30
 
29
-(defmethod render :after (post (eql (find-class 'coleslaw:post)))
31
+(defmethod publish :after (post (eql (find-class 'coleslaw:post)))
30 32
   (format-post post))
31 33
 
32 34
 (defun format-post (post)