emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

New commands: doom/open-{,project-}scratch-buffer

Browse source
This commit is contained in:
Henrik Lissner 2017-09-25 03:02:13 +02:00
parent bc1d2480b0
commit 1685076202
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 41 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

55
core/autoload/editor.el
View file

@ -225,32 +225,57 @@ for function signatures or notes. Run again to clear the header line."
content)))))
;;;###autoload
(defun doom/scratch-buffer (&optional arg)
"Opens the scratch buffer in a popup window.
(defun doom|enable-delete-trailing-whitespace ()
(add-hook 'before-save-hook #'delete-trailing-whitespace nil t))
If ARG (universal argument) is non-nil, open it in the current window instead of
a popup.
If a region is active, copy it into the scratch buffer."
(interactive "P")
;; -- scratch buffer ----------------------
(defvar doom-scratch-files-dir (concat doom-etc-dir "scratch/")
"Where to store project scratch files, created by
`doom/open-project-scratch-buffer'.")
(defvar doom-scratch-buffer-hook ()
"The hooks to run after a scratch buffer is made.")
(defun doom--create-scratch-buffer (&optional project-p)
(let ((text (and (region-active-p)
(buffer-substring-no-properties
(region-beginning) (region-end))))
(mode major-mode)
(derived-p (derived-mode-p 'prog-mode 'text-mode))
(old-project (doom-project-root))
(new-buf (get-buffer-create "*doom:scratch*")))
(if arg
(switch-to-buffer new-buf)
(doom-popup-buffer new-buf))
(with-current-buffer new-buf
(old-project (doom-project-root)))
(unless (file-directory-p doom-scratch-files-dir)
(mkdir doom-scratch-files-dir t))
(with-current-buffer
(if project-p
(find-file-noselect (expand-file-name (replace-regexp-in-string "\\." "_" (projectile-project-name) t t)
doom-scratch-files-dir)
nil t)
(get-buffer-create "*doom:scratch*"))
(when project-p
(rename-buffer (format "*doom:scratch (%s)*" (projectile-project-name))))
(setq default-directory old-project)
(when (and (not (eq major-mode mode))
derived-p
(functionp mode))
(funcall mode))
(if text (insert text)))))
(if text (insert text))
(run-hooks 'doom-scratch-buffer-hook)
(current-buffer))))
;;;###autoload
(defun doom|enable-delete-trailing-whitespace ()
(add-hook 'before-save-hook #'delete-trailing-whitespace nil t))
(defun doom/open-scratch-buffer (arg)
"Opens a temporary scratch buffer in a popup window. It is discarded once it
is closed. If a region is active, copy it to the scratch buffer."
(interactive)
(doom-popup-buffer (doom--create-scratch-buffer)
'(:size 10 :autokill t :noesc nil) t))
;;;###autoload
(defun doom/open-project-scratch-buffer ()
"Opens a (persistent) scratch buffer associated with the current project in a
popup window. Scratch buffers are stored in `doom-scratch-files-dir'. If a
region is active, copy it to the scratch buffer."
(interactive)
(doom-popup-buffer (doom--create-scratch-buffer t)))