Make the Twitter link supply a default tweet content

4clojure · Apr 19, 2011 · 5b202b0 · 5b202b0
1 parent b59ea04
commit 5b202b0
Showing 1 changed file with 13 additions and 3 deletions.
diff --git a/src/foreclojure/problems.clj b/src/foreclojure/problems.clj
@@ -2,10 +2,12 @@
   (:use [foreclojure.utils]
         [clojail core testers]
 	[somnium.congomongo]
-        [hiccup form-helpers])
+        [hiccup form-helpers]
+        [amalloy.utils.debug :only [?]])
   (:require [sandbar.stateful-session :as session]
             [clojure.string :as s]
-            [clj-github.gists :as gist]))
+            [clj-github.gists :as gist])
+  (:import (java.net URLEncoder)))
 
 (defn get-solved [user]
   (set
@@ -40,14 +42,22 @@
            (str "https://gist.github.com/"))
       (catch Throwable _ nil))))
 
+(defn tweet-link [id gist-url & [link-text]]
+  (let [status-msg (str "Check out how I solved http://4clojure.com/problem/"
+                        id " - " gist-url " #clojure #4clojure")]
+    (str "<a href=\"http://twitter.com/home?status="
+         (URLEncoder/encode status-msg) "\">"
+         (or link-text "Twitter")
+         "</a>")))
+
 (defn mark-completed [id code & [user]]
   (let [user (or user (session/session-get :user))
         gist-url (gist! user id code)
         gist-link (if gist-url
                     (str "<div class='share'>"
                          "Share this "
                          "<a href='" gist-url "'>solution</a>"
-                         " on <a href='http://twitter.com'>Twitter</a>!"
+                         " on " (tweet-link id gist-url) "!"
                          "</div>")
                     (str "<div class='error'>Failed to create gist of "
                          "your solution</div>"))