+doom:scratch-buffer => doom/scratch-buffer
This commit is contained in:
parent
7477546892
commit
8c1fb1e6b2
4 changed files with 29 additions and 26 deletions
|
@ -1,23 +0,0 @@
|
|||
;;; ui/doom/autoload/evil.el -*- lexical-binding: t; -*-
|
||||
|
||||
;;;###autoload (autoload '+doom:scratch-buffer "ui/doom/autoload/evil" nil t)
|
||||
(evil-define-operator +doom:scratch-buffer (&optional beg end bang)
|
||||
"Opens the scratch buffer in a popup window and, optionally, send the selected
|
||||
region to it. If BANG, use current window instead of a popup."
|
||||
:move-point nil :type inclusive
|
||||
(interactive "<r><!>")
|
||||
(let ((text (when (and (not (evil-normal-state-p)) beg end)
|
||||
(buffer-substring beg end)))
|
||||
(mode major-mode)
|
||||
(old-project (doom-project-root))
|
||||
(new-buf (get-buffer-create "*doom:scratch*")))
|
||||
(if bang
|
||||
(switch-to-buffer new-buf)
|
||||
(doom-popup-buffer new-buf))
|
||||
(with-current-buffer new-buf
|
||||
(setq default-directory old-project)
|
||||
(when (and (not (eq major-mode mode))
|
||||
(functionp mode))
|
||||
(funcall mode))
|
||||
(if text (insert text)))))
|
||||
|
Loading…
Add table
Add a link
Reference in a new issue