36 lines
1.2 KiB
EmacsLisp
36 lines
1.2 KiB
EmacsLisp
;;; defuns-repl.el
|
|
|
|
;;;###autoload (autoload 'doom:repl "defuns-repl" nil t)
|
|
(evil-define-command doom:repl (&optional bang command)
|
|
:repeat nil
|
|
(interactive "<!><a>")
|
|
(if (and doom-repl-buffer (buffer-live-p doom-repl-buffer))
|
|
(doom/popup-buffer doom-repl-buffer)
|
|
(rtog/toggle-repl (if (use-region-p) 4))
|
|
(setq doom-repl-buffer (current-buffer))
|
|
(when command
|
|
(with-current-buffer doom-repl-buffer
|
|
(insert command)
|
|
(unless bang (comint-send-input))))))
|
|
|
|
;;;###autoload (autoload 'doom:repl-eval "defuns-repl" nil t)
|
|
(evil-define-operator doom:repl-eval (&optional beg end bang)
|
|
:type inclusive
|
|
:repeat nil
|
|
(interactive "<r><!>")
|
|
(let ((region-p (use-region-p))
|
|
(selection (s-trim (buffer-substring-no-properties beg end))))
|
|
(doom:repl bang)
|
|
(when (and region-p beg end)
|
|
(let* ((buf doom-repl-buffer)
|
|
(win (get-buffer-window buf)))
|
|
(unless (eq buf (doom/popup-p (get-buffer-window buf)))
|
|
(doom/popup-buffer buf))
|
|
(when (and doom-repl-buffer (buffer-live-p doom-repl-buffer))
|
|
(with-current-buffer doom-repl-buffer
|
|
(goto-char (point-max))
|
|
(insert selection)))))))
|
|
|
|
(provide 'defuns-repl)
|
|
;;; defuns-repl.el ends here
|