awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-09-24 16:30:58 -05:00
Code Issues Packages Projects Releases Wiki Activity

Refactor DOOM scratch buffer

Browse Source
This commit is contained in:
Henrik Lissner
2016-10-05 12:48:12 +02:00
parent 0903dfa0c8
commit e7d0e9f9ec
5 changed files with 95 additions and 88 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
core/core-defuns.el
View File

@@ -279,19 +279,6 @@ Examples:
(define-key evil-motion-state-map (kbd "SPC") ',next-func)
(define-key evil-motion-state-map (kbd "S-SPC") ',prev-func)))
;;
(defun doom|update-scratch-buffer (&optional dir inhibit-doom)
"Make sure scratch buffer is always 'in a project', and looks good."
(let ((dir (or dir (doom/project-root))))
(with-current-buffer doom-buffer
;; Reset scratch buffer if it wasn't visible
(when (and (get-buffer-window-list doom-buffer nil t)
(not doom-buffer-edited)
(not inhibit-doom))
(doom-mode-init t))
(setq default-directory dir)
(setq mode-line-format (doom-modeline 'scratch)))))
;;
;; Global Defuns