37 lines
1.2 KiB
EmacsLisp
37 lines
1.2 KiB
EmacsLisp
;;; defuns-repl.el
|
|
|
|
;;;###autoload (autoload 'narf:repl "defuns-repl" nil t)
|
|
(evil-define-command narf:repl (&optional bang command)
|
|
:repeat nil
|
|
(interactive "<!><a>")
|
|
(if (and narf--repl-buffer (buffer-live-p narf--repl-buffer))
|
|
(narf/popup-buffer narf--repl-buffer)
|
|
(rtog/toggle-repl (if (use-region-p) 4))
|
|
(setq narf--repl-buffer (current-buffer))
|
|
(when command
|
|
(with-current-buffer narf--repl-buffer
|
|
(insert command)
|
|
(unless bang (comint-send-input))))))
|
|
|
|
;;;###autoload (autoload 'narf:repl-eval "defuns-repl" nil t)
|
|
(evil-define-operator narf: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))))
|
|
(narf:repl bang)
|
|
(when (and region-p beg end)
|
|
(let* ((buf narf--repl-buffer)
|
|
(win (get-buffer-window buf)))
|
|
(unless (eq buf popwin:popup-buffer)
|
|
(popwin:pop-to-buffer buf nil t))
|
|
(when (and narf--repl-buffer (buffer-live-p narf--repl-buffer))
|
|
(with-current-buffer narf--repl-buffer
|
|
(goto-char (point-max))
|
|
(insert selection)))))))
|
|
|
|
|
|
(provide 'defuns-repl)
|
|
;;; defuns-repl.el ends here
|