Problem title added to tweet text if it will fit

amcnamara · May 20, 2011 · 52f44fd · 52f44fd
1 parent 1636129
commit 52f44fd
Showing 1 changed file with 13 additions and 5 deletions.
diff --git a/src/foreclojure/social.clj b/src/foreclojure/social.clj
@@ -36,16 +36,20 @@
        (or anchor-text "Twitter")
        "</a>"))
 
+(defn get-problem-title [id]
+  (:title
+   (fetch-one :problems
+	      :only [:title]
+	      :where {:_id id})))
+
 (defn gist!
   "Create a new gist containing a user's solution to a problem and
   return its url."
   [user-name problem-num solution]
   (let [[user-name possessive] (if user-name
                                  [user-name "'s"]
                                  ["anonymous" nil])
-
-        {name :title} (fetch-one :problems
-                                 :where {:_id problem-num})
+	name (get-problem-title problem-num)
         filename (str user-name "-4clojure-solution" problem-num ".clj")
         text (str ";; " user-name possessive " solution to " name "\n"
                   ";; https://4clojure.com/problem/" problem-num
@@ -58,8 +62,12 @@
       (catch Throwable _))))
 
 (defn tweet-solution [id gist-url & [link-text]]
-  (let [status-msg (str "Check out how I solved problem #"
-                        id " on #4clojure " (clojure-hashtag) gist-url)]
+  (let [status-msg (str "Check out how I solved "
+                        (let [title (get-problem-title id)]
+			  (if (> (count title) 35)
+			    (str "problem " id)
+			    (str "\"" title "\"")))
+			" on #4clojure " (clojure-hashtag) gist-url)]
     (tweet-link id status-msg link-text)))
 
 (def-page share-page []