[emacs] Add eval and replace

.doom.d/config.org

@@ -795,3 +795,19 @@ Manage background services
   (use-package! uuidgen
     :commands (uuidgen))
 #+end_src
+* Eval and Replace
+Taken from [[http://emacsredux.com/blog/2013/06/21/eval-and-replace/][Emacs Redux]]
+
+#+begin_src emacs-lisp
+  (defun eval-and-replace ()
+    "Replace the preceding sexp with its value."
+    (interactive)
+    (backward-kill-sexp)
+    (condition-case nil
+        (prin1 (eval (read (current-kill 0)))
+               (current-buffer))
+      (error (message "Invalid expression")
+             (insert (current-kill 0)))))
+
+  (global-set-key (kbd "C-)") 'eval-and-replace)
+#+end_src