 
 (put 'wandbox-eval-with 'lisp-indent-function 1)
 
-(setf (symbol-function 'wandbox) #'wandbox-compile)
-
 (defun wandbox-tweet (url)
   (browse-url (concat "https://twitter.com/intent/tweet?text=Wandbox&url="
                       (url-hexify-string url))))
 
+;; [Tweet This]
+;; (setq wandbox-permalink-function #'wandbox-tweet)
+
 (provide 'wandbox)
 
 ;;; wandbox.el ends here

         (progn
           (when (equal (car status) :error)
             (error "return error: %s" (cdr status)))
           (let* ((http-body (buffer-substring (1+ url-http-end-of-headers) (point-max)))
                  (alist (let ((json-key-type 'string))
                           (json-read-from-string
                            (decode-coding-string http-body 'utf-8-unix))))
                  (url (cdr (assoc "url" alist))))
             (message "Wandbox recieve message: %s" http-body)
             (if url (browse-url url))  ; or (wandbox-tweet url)
             (with-output-to-temp-buffer "*Wandbox Output*"
               (dolist (res wandbox-response-keywords)
                 (when (assoc res alist)

  (let ((url-request-method "POST")
        (url-request-extra-headers '(("Content-Type" . "application/json")))
        (url-request-data json))
    (url-retrieve "http://melpon.org/wandbox/api/compile.json" 
                  'wandbox-format-url-buffer)
    t))

(defun* wandbox-compile (&rest profile
                         &key
