From 7cb6461cb291271f3635d9ea354a502d7036fe12 Mon Sep 17 00:00:00 2001 From: PuercoPop Date: Wed, 7 May 2014 07:52:29 -0500 Subject: [PATCH] post url should include domain --- plugins/twitter.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/plugins/twitter.lisp b/plugins/twitter.lisp index 30f1a87..9f4080f 100644 --- a/plugins/twitter.lisp +++ b/plugins/twitter.lisp @@ -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)