dotfiles/emacs
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add utility function/binding to evaluate math in place

Browse Source
This commit is contained in:
Adam Goldsmith 2022-08-07 22:45:08 -04:00
parent 8e089fef9b
commit 88fa55e297
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
.emacs.d/init.el
View File

@ -334,6 +334,18 @@
(add-hook 'yaml-mode-hook (add-hook 'yaml-mode-hook
(lambda () (setq-local show-trailing-whitespace t)))) (lambda () (setq-local show-trailing-whitespace t))))
(use-package calc
:bind ("C-x M-e" . calc-eval-in-place)
:init
(defun calc-eval-in-place ()
(interactive)
(let ((result (calc-eval (buffer-substring-no-properties (point) (mark)))))
(if (stringp result)
(progn
(delete-region (point) (mark))
(insert result))
(apply 'user-error "Error at charater %d: %s" result)))))
;;;; external packages (required) ;;;; external packages (required)
(use-package auto-package-update :ensure (use-package auto-package-update :ensure
:commands auto-package-update-cli :commands auto-package-update-cli