1 (message "Bringing up pastebin support")
3 (if (locate-library "pastebin")
5 (message "[W] No pastebin stuff available"))
7 (if (locate-library "identica-mode")
8 (defun snippet-publish ()
9 "Takes the actual region, pastes it on paste.q0a.de an asks you for a identi.ca message"
11 (identica-update-status-from-minibuffer
12 (pastebin (region-beginning) (region-end) "f"))))