diff --git a/modules/home/users/msyds/emacs/init.el b/modules/home/users/msyds/emacs/init.el index 670cad3..4bb6519 100644 --- a/modules/home/users/msyds/emacs/init.el +++ b/modules/home/users/msyds/emacs/init.el @@ -54,4 +54,5 @@ syd/minibuffer syd/auto-save syd/rainbow-delimiters - syd/form-feed)) + syd/form-feed + syd/scratch)) diff --git a/modules/home/users/msyds/emacs/lisp/syd/scratch.el b/modules/home/users/msyds/emacs/lisp/syd/scratch.el new file mode 100644 index 0000000..65f2c58 --- /dev/null +++ b/modules/home/users/msyds/emacs/lisp/syd/scratch.el @@ -0,0 +1,20 @@ +;;; -*- lexical-binding: t; -*- + +(require 'syd/base) + +;; Persistent and per-project scratch buffers. +(use-package scratch-plus + :hook after-init + :custom ((scratch-plus-save-directory + (file-name-concat syd-data-dir "scratch")) + (scratch-plus-project-subdir "scratch"))) + +(setq + ;; Disable the initial "help" screen, in favour of starting off in + ;; the scratch buffer. + inhibit-splash-screen t + inhibit-startup-screen t + inhibit-startup-message t + initial-buffer-choice t) + +(provide 'syd/scratch)