+doom:scratch-buffer => doom/scratch-buffer

This commit is contained in:
Henrik Lissner 2017-07-03 03:11:54 +02:00
parent 7477546892
commit 8c1fb1e6b2
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
4 changed files with 29 additions and 26 deletions

View file

@ -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)))))