Import old config

[dotfiles/emacs.git] / config / pastebin.el

diff --git a/config/pastebin.el b/config/pastebin.el
new file mode 100644 (file)
index 0000000..ced33c5
--- /dev/null
+++ b/config/pastebin.el
@@ -0,0 +1,12 @@
+(message "Bringing up pastebin support")
+
+(if (locate-library "pastebin")
+       (require 'pastebin)
+  (message "[W] No pastebin stuff available"))
+
+(if (locate-library "identica-mode")
+       (defun snippet-publish ()
+         "Takes the actual region, pastes it on paste.q0a.de an asks you for a identi.ca message"
+         (interactive)
+         (identica-update-status-from-minibuffer
+          (pastebin (region-beginning) (region-end) "f"))))
\ No newline at end of file