From 752a6b55b5acf3a6dc9aa2a173b6c7816b67869d Mon Sep 17 00:00:00 2001 From: Luke Hoersten Date: Tue, 25 Jun 2013 11:12:54 -0500 Subject: Tons more cleanups after emacs24 update. --- pastebin-region.el | 43 ------------------------------------------- 1 file changed, 43 deletions(-) delete mode 100644 pastebin-region.el (limited to 'pastebin-region.el') diff --git a/pastebin-region.el b/pastebin-region.el deleted file mode 100644 index fbae423..0000000 --- a/pastebin-region.el +++ /dev/null @@ -1,43 +0,0 @@ -;; ~/.emacs.d/hoersten-pastebin-region.el -;; Luke Hoersten - -;; 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 "Loading pastebin-region...done") -(provide 'pastebin-region) -- cgit v1.2.3