config/pastebin.el

   1 (message "Bringing up pastebin support")
   2
   3 (if (locate-library "pastebin")
   4         (require 'pastebin)
   5   (message "[W] No pastebin stuff available"))
   6
   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"
  10           (interactive)
  11           (identica-update-status-from-minibuffer
  12            (pastebin (region-beginning) (region-end) "f"))))