blob: 70ca6511c581e71ebb181eaa5949415e032de1d1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
;; ~/.emacs.d/hoersten-pastebin-region.el
;; Luke Hoersten <[email protected]>
;; custom keys
(global-set-key (kbd "C-c w") 'pastebin-region)
;; Based on http://www.emacswiki.org/cgi-bin/wiki/download/pastebin.el
(defvar pastebin-type-assoc
'((emacs-lisp-mode . "common-lisp")
(c-mode . "c")
(python-mode . "python")
(nxml-mode . "xml")
(c++-mode . "cpp")))
(defun pastebin-region (start end)
"Send selected text to dpaste pastebin."
(interactive "r")
(let*
((pastebin-url "http://inf/paste/")
(url-request-method "POST")
(url-request-extra-headers '(("Content-Type" . "application/x-www-form-urlencoded")))
(url-request-data
(format
"title=%s&content=%s&lexer=%s&author=%s"
(url-hexify-string (buffer-file-name)) ; title
(url-hexify-string (buffer-substring-no-properties start end)) ; content
(url-hexify-string (or (assoc-default major-mode pastebin-type-assoc) "text")) ; lexer
(url-hexify-string (user-full-name))))) ; author
(url-retrieve
pastebin-url
(lambda (arg)
(cond
((equal :error (car arg))
(signal (cdr arg)))
((equal :redirect (car arg))
(let ((redirected (cadr arg)))
(message redirected)
(with-temp-buffer
(insert redirected)
(clipboard-kill-ring-save (point-min) (point-max))))))))))
(message "Loaded Hoersten pastebin")
(provide 'hoersten-pastebin-region)
|
