(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"))))