     (.click $share-by-email
             (get-short-url-jq-evt-handler-maker $urlShortenerInput
                                                 localStorage
-                                                :email))))
+                                                :email))
+    (.click $share-on-twitter
+            (get-short-url-jq-evt-handler-maker $urlShortenerInput
+                                                localStorage
+                                                :twitter))))
 
 ; Main entry point of the program
 (defn ^:export init [acad-year sem]

        zcbClient           (ZeroClipboard. $copy-to-clipboard)
        $urlShortenerInput  ($ :#url-shortener)
        $share-by-email     ($ :#share-by-email)
        get-url-evt-handler (get-short-url-jq-evt-handler-maker
                              $urlShortenerInput localStorage)
        qtipOrgCopyText     "Copy to Clipboard"

                       (str "mailto:?"
                            "subject=My%20cljs-nusmods%20timetable&body="
                            "&body=" (js/encodeURI shortUrl)))
        :twitter (.open js/window
                        (str "https://twitter.com/intent/tweet?url="
                             (js/encodeURI shortUrl)))
        nil      nil))

(defn- make-request-to-get-short-url
