91357a3e5d
This is a breaking change! Update your :popup settings. Old ones will throw errors! Doom's new popup management system casts off its shackles (hur hur) and replaces them with the monster that is `display-buffer-alist`, and window parameters. However, this is highly experimental! Expect edge cases. Particularly with org-mode and magit (or anything that does its own window management). Relevant to #261, #263, #325
54 lines
2.0 KiB
EmacsLisp
54 lines
2.0 KiB
EmacsLisp
;;; core/autoload/scratch.el -*- lexical-binding: t; -*-
|
|
|
|
(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)))
|
|
(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))
|
|
(run-hooks 'doom-scratch-buffer-hook)
|
|
(current-buffer))))
|
|
|
|
;;;###autoload
|
|
(defun doom/open-scratch-buffer (&optional in-project-p)
|
|
"Opens a temporary scratch buffer. It is discarded once it is closed. If a
|
|
region is active, copy it to the scratch buffer."
|
|
(interactive "P")
|
|
(pop-to-buffer (doom--create-scratch-buffer in-project-p)))
|
|
|
|
;;;###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/open-scratch-buffer 'in-project))
|
|
|