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