hoersten-pastebin-region.el
changeset 8 f16b95667aa6
parent 4 0fda818a8b6a
child 17 2067d6164e07
equal deleted inserted replaced
7:de2d02049ed6 8:f16b95667aa6
    13     (c++-mode        . "cpp")))
    13     (c++-mode        . "cpp")))
    14 
    14 
    15 (defun pastebin-region (start end)
    15 (defun pastebin-region (start end)
    16   "Send selected text to dpaste pastebin."
    16   "Send selected text to dpaste pastebin."
    17   (interactive "r")
    17   (interactive "r")
    18   (let* ((pastebin-url "http://build-ch-03/paste/")
    18   (let* ((pastebin-url "http://inf/paste/")
    19          (url-request-method "POST")
    19          (url-request-method "POST")
    20          (url-request-extra-headers '(("Content-Type" . "application/x-www-form-urlencoded")))
    20          (url-request-extra-headers '(("Content-Type" . "application/x-www-form-urlencoded")))
    21          (url-request-data
    21          (url-request-data
    22           (format "title=%s&content=%s&lexer=%s&author=%s"
    22           (format "title=%s&content=%s&lexer=%s&author=%s"
    23                   (url-hexify-string (buffer-file-name))                                         ; title
    23                   (url-hexify-string (buffer-file-name))                                         ; title