bbb969fa59
These two are now doom/open-scratch-buffer. If you're in a project, a (persistent) scratch buffer is opened. Otherwise, a non-persistent, transient scratch buffer is opened. If ARG (universal argument) is non-nil, then use the current window instead of a new window (or popup, if feature/popup is enabled). Also, the ex command :x[!] is improved. The BANG = open in current window.
57 lines
2.2 KiB
EmacsLisp
57 lines
2.2 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 ()
|
|
(let* ((project-p (doom-project-p 'nocache))
|
|
(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))
|
|
(project-root (if project-p (doom-project-root 'nocache)))
|
|
(id (projectile-project-name)))
|
|
(when (and id (string-empty-p id))
|
|
(user-error "Invalid id for a scratch buffer (%s)" id))
|
|
(unless (file-directory-p doom-scratch-files-dir)
|
|
(make-directory doom-scratch-files-dir t))
|
|
(with-current-buffer
|
|
(if project-p
|
|
(find-file-noselect
|
|
(expand-file-name (replace-regexp-in-string
|
|
"\\." "_" id
|
|
t t)
|
|
doom-scratch-files-dir)
|
|
nil t)
|
|
(get-buffer-create "*doom:scratch*"))
|
|
(when project-p
|
|
(rename-buffer (format "*doom:scratch (%s)*" id))
|
|
(setq default-directory project-root))
|
|
(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 arg)
|
|
"Opens a persistent scratch buffer in the same major-mode, at the current
|
|
project root. If no project is found, scratch buffer will not be persistent. If
|
|
a selection is active, copy it to the scratch buffer.
|
|
|
|
If ARG (universal argument) is non-nil, display the buffer in the current
|
|
window. Otherwise, display it in a pop up window.
|
|
|
|
Persistent scratch buffers are stored in `doom-scratch-files-dir'."
|
|
(interactive "P")
|
|
(funcall (if arg #'switch-to-buffer #'display-buffer)
|
|
(doom--create-scratch-buffer)))
|
|
|