From 9024301eddb7de855a9f57ac730f4446a0628a6f Mon Sep 17 00:00:00 2001 From: Thomas von Dein Date: Thu, 17 Aug 2023 19:12:54 +0200 Subject: [PATCH] +eval-and-replcae from crux --- lisp/init-elisp.el | 12 +++++++++++- lisp/init-lsp.el | 1 + 2 files changed, 12 insertions(+), 1 deletion(-) diff --git a/lisp/init-elisp.el b/lisp/init-elisp.el index b915149..7de097c 100644 --- a/lisp/init-elisp.el +++ b/lisp/init-elisp.el @@ -189,7 +189,17 @@ Returns t if version changed, nil otherwise." (set-window-dedicated-p (selected-window) t) (set-background-color "azure")))) - +;; from prelude and crux, comes in handy when I need to do an ad hoc +;; calc +(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))))) (provide 'init-elisp) ;;; init-elisp.el ends here diff --git a/lisp/init-lsp.el b/lisp/init-lsp.el index 29d56b8..bb74a00 100644 --- a/lisp/init-lsp.el +++ b/lisp/init-lsp.el @@ -12,6 +12,7 @@ :init ;; I'm not using any of th lsp commands, but better define a prefix ;; than being unable to reach it + ;; FIXME: add at least lsp-find-definition (setq lsp-keymap-prefix "C-c C-l") :commands lsp)