浏览代码

Hook to publish instead of render

PuercoPop 11 年之前
父节点
当前提交
f95a3c27a2
共有 1 个文件被更改,包括 4 次插入2 次删除
  1. 4 2
      plugins/twitter.lisp

+ 4 - 2
plugins/twitter.lisp

3
 
3
 
4
 (defpackage :coleslaw-twitter
4
 (defpackage :coleslaw-twitter
5
   (:use :cl)
5
   (:use :cl)
6
-  (:import-from :coleslaw :*config*)
6
+  (:import-from :coleslaw
7
+                :*config*
8
+                :publish)
7
   (:export #:enable))
9
   (:export #:enable))
8
 
10
 
9
 (in-package :coleslaw-twitter)
11
 (in-package :coleslaw-twitter)
26
   (when tweet-format
28
   (when tweet-format
27
     (setf *tweet-format* tweet-format)))
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
   (format-post post))
32
   (format-post post))
31
 
33
 
32
 (defun format-post (post)
34
 (defun format-post (post)