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

    (.click $share-by-email
            (get-short-url-jq-evt-handler-maker $urlShortenerInput
                                                localStorage
                                                :email))))

; Main entry point of the program
(defn ^:export init [acad-year sem]

                       (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
