   (let [[user-name possessive] (if user-name
                                  [user-name "'s"]
                                  ["anonymous" nil])
-	name (get-problem-title 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

(defn tweet-solution [id gist-url & [link-text]]
  (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 []

  (str "<a href=\"http://twitter.com/share?"
       "text=" (URLEncoder/encode status)
       "&url=" (URLEncoder/encode
                (str "https://4clojure.com/problem/" id))
       "&related=4clojure"
       "\">"
       (or anchor-text "Twitter")
