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

post url should include domain

Browse source
This commit is contained in:
PuercoPop 2014-05-07 07:52:29 -05:00
parent d7ef24664d
commit 7cb6461cb2
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
plugins/twitter.lisp
View file

@ -3,6 +3,7 @@
(defpackage :coleslaw-twitter
(:use :cl)
(:import-from :coleslaw :*config*)
(:export #:enable))
(in-package :coleslaw-twitter)
@ -35,7 +36,9 @@
(defun %format-post (offset post)
"Garauntee that the tweet content is 140 chars at most."
(let* ((content-prefix (subseq (render-tweet post) 0 (- 117 offset)))
(content (format nil "~A ~A" content-prefix (coleslaw:page-url post)))
(content (format nil "~A ~A/~A" content-prefix
(coleslaw::domain *config*)
(coleslaw:page-url post)))
(content-length (chirp:compute-status-length content)))
(cond
((>= 140 content-length) content)