emacs: tweak the scratch buffer message

This commit is contained in:
Protesilaos Stavrou 2024-09-19 11:10:59 +03:00
parent 479cba632c
commit 66a5a7c432
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
2 changed files with 10 additions and 4 deletions

View file

@ -104,8 +104,11 @@ before all other modules of my setup."
(setq initial-buffer-choice t)
(setq initial-major-mode 'lisp-interaction-mode)
(setq initial-scratch-message
(format ";; Use %s to evaluate and print results\n\n"
(substitute-command-keys "\\<lisp-interaction-mode-map>\\[eval-print-last-sexp]")))
(format ";; This is `%s'. Use `%s' to evaluate and print results\n\n"
'lisp-interaction-mode
(propertize
(substitute-command-keys "\\<lisp-interaction-mode-map>\\[eval-print-last-sexp]")
'face 'help-key-binding)))
(mapc
(lambda (string)

View file

@ -836,8 +836,11 @@ generic in this regard.
(setq initial-buffer-choice t)
(setq initial-major-mode 'lisp-interaction-mode)
(setq initial-scratch-message
(format ";; Use %s to evaluate and print results\n\n"
(substitute-command-keys "\\<lisp-interaction-mode-map>\\[eval-print-last-sexp]")))
(format ";; This is `%s'. Use `%s' to evaluate and print results\n\n"
'lisp-interaction-mode
(propertize
(substitute-command-keys "\\<lisp-interaction-mode-map>\\[eval-print-last-sexp]")
'face 'help-key-binding)))
#+end_src
** The =init.el= arrangements for my own modules and custom libraries