awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-31 14:43:40 -05:00
Code Issues Packages Projects Releases Wiki Activity

feature/eval: rewrite module

Browse Source
This commit is contained in:
Henrik Lissner
2017-03-04 18:28:51 -05:00
parent 05e1a15ba8
commit 74d50f6159
6 changed files with 140 additions and 136 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
modules/feature/eval/autoload/eval.el
View File

@@ -1,15 +1,15 @@
;;; feature/repl/autoload/eval.el
;;; feature/eval/autoload/eval.el
;;;###autoload
(defun +repl/eval-buffer ()
(defun +eval/buffer ()
"Evaluate the whole buffer."
(interactive)
(cond ((eq major-mode 'emacs-lisp-mode)
(+repl/eval-region (point-min) (point-max)))
(+eval/region (point-min) (point-max)))
(t (quickrun))))
;;;###autoload
(defun +repl/eval-region (beg end)
(defun +eval/region (beg end)
"Evaluate a region and, if large enough, prints its output to a popup buffer (if an
elisp buffer). Otherwise forward the region to Quickrun."
(interactive "r")
@@ -24,8 +24,8 @@ elisp buffer). Otherwise forward the region to Quickrun."
(read-only-mode -1)
(setq-local scroll-margin 0)
(erase-buffer)
(set-syntax-table emacs-lisp-mode-syntax-table)
(prin1 result buf)
(emacs-lisp-mode)
(pp-buffer)
(read-only-mode 1)
(setq lines (count-lines (point-min) (point-max)))
@@ -38,7 +38,7 @@ elisp buffer). Otherwise forward the region to Quickrun."
(t (quickrun-region beg end)))))
;;;###autoload
(defun +repl/eval-region-and-replace (beg end)
(defun +eval/region-and-replace (beg end)
(interactive "r")
(cond ((eq major-mode 'emacs-lisp-mode)
(kill-region beg end)