ElectricCoffee

(defun copy-to-clipboard ()
  (interactive)
  (if (region-active-p)
      (progn (shell-command-on-region 
              (region-beginning) (region-end) 
              "pbcopy")
             (message "Copied region to clipboard!")
             (deactivate-mark))
    (message "No mark set.")))