Selaa lähdekoodia

Use *tweet-format-fn* in render-tweet

PuercoPop 11 vuotta sitten
vanhempi
commit
03b1cb9a0b
1 muutettua tiedostoa jossa 1 lisäystä ja 4 poistoa
  1. 1 4
      plugins/twitter.lisp

+ 1 - 4
plugins/twitter.lisp

@@ -105,7 +105,4 @@ the spaxe needed for a space and the url."
105 105
 
106 106
 (defun render-tweet (post)
107 107
   "Sans the url, which is a must."
108
-  (apply #'format `(nil ,(car *tweet-format*)
109
-                        ,@(loop
110
-                             :for accesor in (cdr *tweet-format*)
111
-                             :collect (funcall accesor post)))))
108
+  (funcall *tweet-format-fn* post))