about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-04-01 17:02:22 -0500
committerCase Duckworth2021-04-01 17:04:41 -0500
commitb475595d076d2dc26aa79edba633e30070962843 (patch)
tree35c7f0e1d602ddcc29c7cfb0b2f2f99470a666f4
parentFix typos (diff)
downloademacs-b475595d076d2dc26aa79edba633e30070962843.tar.gz
emacs-b475595d076d2dc26aa79edba633e30070962843.zip
Change method of init-time message
Going off [1], I've just redefined the `display-startup-echo-area-message'
function to show the startup time, instead of adding a hook to Emacs's startup
and trying to figure out how to give my username to the original function.

[1]: https://depp.brause.cc/dotemacs/#org2cdacdd
-rw-r--r--early-init.el4
-rw-r--r--init.el6
2 files changed, 2 insertions, 8 deletions
diff --git a/early-init.el b/early-init.el index f993d03..fac0705 100644 --- a/early-init.el +++ b/early-init.el
@@ -129,7 +129,7 @@
129 129
130;;; Message startup time for profiling 130;;; Message startup time for profiling
131 131
132(defun hook--message-startup-time () 132(defun display-startup-echo-area-message ()
133 "Show Emacs's startup time in the message buffer. For profiling." 133 "Show Emacs's startup time in the message buffer. For profiling."
134 (message "Emacs ready in %s with %d garbage collections." 134 (message "Emacs ready in %s with %d garbage collections."
135 (format "%.2f seconds" 135 (format "%.2f seconds"
@@ -137,8 +137,6 @@
137 before-init-time))) 137 before-init-time)))
138 gcs-done)) 138 gcs-done))
139 139
140(add-hook 'emacs-startup-hook #'hook--message-startup-time)
141
142;;; Install `no-littering', pointing both directories at `acdw/dir'. This will 140;;; Install `no-littering', pointing both directories at `acdw/dir'. This will
143;;; take care of the packages I don't care about configuring. 141;;; take care of the packages I don't care about configuring.
144 142
diff --git a/init.el b/init.el index 67f9a7a..e385e4a 100644 --- a/init.el +++ b/init.el
@@ -368,11 +368,7 @@
368 " Client"))) 368 " Client")))
369 tab-bar-show 1 369 tab-bar-show 1
370 use-dialog-box nil 370 use-dialog-box nil
371 use-file-dialog nil 371 use-file-dialog nil)
372 inhibit-startup-echo-area-message (pcase acdw/system
373 (:home "acdw")
374 (:work "aduckworth")
375 (:other (getenv "USER"))))
376 372
377;;;; Etc. bindings 373;;;; Etc. bindings
378(global-set-key [remap just-one-space] #'cycle-spacing) 374(global-set-key [remap just-one-space] #'cycle-spacing)