marcuskammer/coleslaw
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix render-tweet

Browse source
This commit is contained in:
PuercoPop 2014-05-07 04:18:00 -05:00
parent 0be9a17cfa
commit d7ef24664d
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
plugins/twitter.lisp
View file

@ -7,8 +7,9 @@
(in-package :coleslaw-twitter)
(defvar *tweet-format* '("~A" (title post) (text content))
"Controls what the tweet annoucing the post looks like. It is the made up of a format control string followed with the pertinent variables.")
(defvar *tweet-format* '("~A by ~A" coleslaw::post-title coleslaw::post-author)
"Controls what the tweet annoucing the post looks like. It contains a format
control string followed with the accesors to evaluate for post.")
(defun enable (&key api-key api-secret access-token access-secret tweet-format)
(if (and api-key api-secret access-token access-secret)
@ -42,4 +43,7 @@
(defun render-tweet (post)
"Sans the url, which is a must."
(apply #'format (append '(nil) *tweet-format*)))
(apply #'format `(nil ,(car *tweet-format*)
,@(loop
:for accesor in (cdr *tweet-format*)
:collect (funcall accesor post)))))