using require

2025-12-17 04:20:57 +01:00 · 2023-05-16 11:18:38 +02:00
parent 8fdad944f9
commit 98ccb528ea
65 changed files with 5977 additions and 0 deletions
--- a/lisp/init-autoscratch.el
+++ b/lisp/init-autoscratch.el
@@ -0,0 +1,53 @@
+;; ** More scratch space
+;; *** Text scratch
+;; Sometimes  I need  a  text  mode scratch  buffer  while scratch  is
+;; already in use. So let's prepare one. I also add a buffer hook so that
+;; this never gets deleted, but cleaned instead.
+
+(with-current-buffer (get-buffer-create "*text*")
+  (text-mode))
+
+;; *** Autoscratch
+;; use autoscratch otherwise
+;; [[https://github.com/TLINDEN/autoscratch][autoscratch github]]
+(use-package autoscratch-mode
+             :ensure nil
+             :config
+             (setq initial-major-mode 'autoscratch-mode)
+             (add-hook 'autoscratch-mode-hook '(lambda ()
+                                                 (setq autoscratch-triggers-alist
+                                                       '(("[(;]"         . (progn
+                                                                             (call-interactively 'emacs-lisp-mode)
+                                                                             (call-interactively 'enable-paredit-mode)
+                                                                             (call-interactively 'electric-pair-mode)))
+                                                         ("#"            . (progn
+                                                                             (call-interactively 'config-general-mode)
+                                                                             (electric-indent-local-mode t)))
+                                                         ("[-a-zA-Z0-9]" . (text-mode))
+                                                         ("/"            . (c-mode))
+                                                         ("*"            . (progn (insert " ") (org-mode)))
+                                                         ("."            . (fundamental-mode)))
+                                                       autoscratch-trigger-on-first-char t
+                                                       autoscratch-reset-default-directory t)
+                                                 (electric-indent-local-mode nil)
+                                                 ))
+             (defalias 'scratch 'autoscratch-buffer))
+
+;;; *** Persistent Scratch
+;; I also like to be scratch buffers persistent with
+;; [[https://github.com/Fanael/persistent-scratch][persistent-scratch]]
+
+(defun tvd-autoscratch-p ()
+  "Return non-nil if the current buffer is a scratch buffer"
+  (string-match "scratch*" (buffer-name)))
+
+(use-package persistent-scratch
+             :config
+             (setq persistent-scratch-save-file (expand-file-name "scratches.el" user-emacs-directory))
+             (persistent-scratch-setup-default)
+
+             (setq persistent-scratch-scratch-buffer-p-function 'tvd-autoscratch-p))
+
+
+(provide 'init-autoscratch)
+;;; init-autoscratch.el ends here