(require 'thingatpt)
  (defun evil-replace-symbol-at-point ()
    "Opens a replacement prompt containing the symbol at the point."
    (interactive)
    (evil-ex (concat "%s/\\(" (regexp-quote (symbol-name (symbol-at-point))) "\\)/")))