Mercurial Mercurial > emacs.d / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hoersten-pastebin-region.el
changeset 1 ede059431d20
parent 0 c25fee3c92e9
child 4 0fda818a8b6a 
--- a/hoersten-pastebin-region.el	Thu Jan 01 10:51:38 2009 -0600
+++ b/hoersten-pastebin-region.el	Fri Jan 09 10:39:57 2009 -0600
@@ -6,30 +6,30 @@
 ;; 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")))
+    (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://build-ch-03/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))))))))))
+         (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))))))))))
emacs.d