Configure!
Use the fortunes tangled above.
(setopt fortune-file "~/fortune")
When using a fortune in signatures, add a mail address too.
(setopt fortune-sigend
(string-join
'(""
"Rudolf Adamkovič <rudolf@adamkovic.org> [he/him]"
"http://adamkovic.org")
"\n"))
Edit fortune files in text-mode instead of fundamental-mode.
(add-to-list 'auto-mode-alist '("fortune\\'" . text-mode))
Inhibit the splash screen in favor of the scratch buffer.
(setopt inhibit-startup-screen t)
Add a fortune on top of the *scratch* buffer.
(setopt initial-scratch-message
(with-temp-buffer
(delay-mode-hooks (funcall initial-major-mode))
(require 'fortune)
(let ((fortune-buffer-name (current-buffer)))
(fortune-in-buffer nil))
(newline)
(goto-char 0)
(let ((comment-empty-lines t))
(comment-region (point-min) (point-max)))
(fill-paragraph)
(buffer-string)))