feat(emacs): Scratch buffer

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))

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)