about summary refs log tree commit diff stats
path: root/lisp/+elisp.el
blob: 3eafbf39f2ec348ef7d4babc6c190f894ac4c047 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
;;; +elisp.el -*- lexical-binding: t; -*-

;;; Code:

(defun +elisp-eval-region-or-buffer ()
  (interactive)
  (if (region-active-p)
      (eval-region (region-beginning) (region-end))
    (+eval-region@pulse (lambda (_ _) (eval-buffer)) (point-min) (point-max))))

;; Should I move this to `+pulse' ?
(defun +eval-region@pulse (advised beg end &rest args)
  "ADVICE to pulse an eval'd region."
  (apply advised beg end args)
  (pulse-momentary-highlight-region beg end))

(provide '+elisp)
;;; +elisp.el ends here