|
|
|
|
36
|
(chirp:statuses/update (%format-post post)))
|
36
|
(chirp:statuses/update (%format-post post)))
|
37
|
|
37
|
|
38
|
(defun %format-post (offset post)
|
38
|
(defun %format-post (offset post)
|
39
|
- "Garauntee that the tweet content is 140 chars at most."
|
|
|
|
|
39
|
+ "Guarantee that the tweet content is 140 chars at most."
|
40
|
(let* ((content-prefix (subseq (render-tweet post) 0 (- 117 offset)))
|
40
|
(let* ((content-prefix (subseq (render-tweet post) 0 (- 117 offset)))
|
41
|
(content (format nil "~A ~A/~A" content-prefix
|
41
|
(content (format nil "~A ~A/~A" content-prefix
|
42
|
(coleslaw::domain *config*)
|
42
|
(coleslaw::domain *config*)
|