copy the region or thing-at-point

my-smart-copy.el

(defun my-smart-copy ()
  "If the region is selected, copy the region. If not, copy thing-at-point."
  (interactive)
  (cond
   ((region-active-p)
	 (progn
	   (copy-region-as-kill (region-beginning) (region-end))
	   (message "region copied!")))
   ((thing-at-point 'symbol)
    (progn
      (kill-new (thing-at-point 'symbol))
      (message "copied!: %s" (thing-at-point 'symbol))))
   (t
    (message "No symbol or region selected"))))