blob: e2e6722ffa6bb53dc752d05174421f7ee148c3a3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
;;; private/startup/config.el -*- lexical-binding: t; -*-
(defun +startup/create-scratch-message ()
"Generate a string for the scratch buffer"
(format "Welcome to Emacs! (｡◕‿◕｡)
Load time was %s
Time of startup: %s"
(emacs-init-time)
(current-time-string (current-time))))
(setq-default mode-line-format (list "%l:%c %P \t %+%b(" '(:eval (format "%s" major-mode)) ") \t %I \t" vc-mode mode-line-end-spaces))
(setq initial-scratch-message (+startup/create-scratch-message))
|
