Updated nav and yasnipped modes as well as cleaned up the pastebin script.

1 files changed, 23 insertions, 19 deletions

diff --git a/hoersten-pastebin-region.el b/hoersten-pastebin-region.el
index ab7be13..ccaa0ef 100644
--- a/hoersten-pastebin-region.el
+++ b/hoersten-pastebin-region.el
@@ -15,24 +15,28 @@
 (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))))))))))
+  (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))))))))))
 
 (provide 'hoersten-pastebin-region)