diff options
| author | Case Duckworth | 2021-12-04 23:09:33 -0600 |
|---|---|---|
| committer | Case Duckworth | 2021-12-04 23:09:33 -0600 |
| commit | b1d307126913cbd4d8af818f7aec7ada6a0ea4ad (patch) | |
| tree | fdbedcf62596ad56d8bc1a36ea4c4d993ddc3168 /lisp/+elisp.el | |
| parent | Change defaults (diff) | |
| download | emacs-b1d307126913cbd4d8af818f7aec7ada6a0ea4ad.tar.gz emacs-b1d307126913cbd4d8af818f7aec7ada6a0ea4ad.zip | |
uhhhhhhhh
Diffstat (limited to 'lisp/+elisp.el')
| -rw-r--r-- | lisp/+elisp.el | 18 |
1 files changed, 18 insertions, 0 deletions
| diff --git a/lisp/+elisp.el b/lisp/+elisp.el new file mode 100644 index 0000000..d2f018a --- /dev/null +++ b/lisp/+elisp.el | |||
| @@ -0,0 +1,18 @@ | |||
| 1 | ;;; +elisp.el -*- lexical-binding: t; -*- | ||
| 2 | |||
| 3 | ;;; Code: | ||
| 4 | |||
| 5 | (defun +elisp-eval-region-or-buffer () | ||
| 6 | (interactive) | ||
| 7 | (if (region-active-p) | ||
| 8 | (eval-region (region-beginning) (region-end)) | ||
| 9 | (eval-buffer))) | ||
| 10 | |||
| 11 | ;; Should I move this to `+pulse' ? | ||
| 12 | (defun +eval-region@pulse (advised beg end &rest args) | ||
| 13 | "ADVICE to pulse an eval'd region." | ||
| 14 | (apply advised beg end args) | ||
| 15 | (pulse-momentary-highlight-region beg end)) | ||
| 16 | |||
| 17 | (provide '+elisp) | ||
| 18 | ;;; +elisp.el ends here | ||