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

This commit is contained in:
PuercoPop 2014-05-08 04:48:14 -05:00
parent 3b59ca1321
commit 03b1cb9a0b

View file

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