From b475595d076d2dc26aa79edba633e30070962843 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Thu, 1 Apr 2021 17:02:22 -0500
Subject: 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
---
 early-init.el | 4 +---
 init.el       | 6 +-----
 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 @@
 
 ;;; Message startup time for profiling
 
-(defun hook--message-startup-time ()
+(defun display-startup-echo-area-message ()
   "Show Emacs's startup time in the message buffer.  For profiling."
   (message "Emacs ready in %s with %d garbage collections."
            (format "%.2f seconds"
@@ -137,8 +137,6 @@
                                               before-init-time)))
            gcs-done))
 
-(add-hook 'emacs-startup-hook #'hook--message-startup-time)
-
 ;;; Install `no-littering', pointing both directories at `acdw/dir'.  This will
 ;;; take care of the packages I don't care about configuring.
 
diff --git a/init.el b/init.el
index 67f9a7a..e385e4a 100644
--- a/init.el
+++ b/init.el
@@ -368,11 +368,7 @@
                                     " Client")))
       tab-bar-show 1
       use-dialog-box nil
-      use-file-dialog nil
-      inhibit-startup-echo-area-message (pcase acdw/system
-                                          (:home "acdw")
-                                          (:work "aduckworth")
-                                          (:other (getenv "USER"))))
+      use-file-dialog nil)
 
 ;;;; Etc. bindings
 (global-set-key [remap just-one-space] #'cycle-spacing)
-- 
cgit 1.4.1-21-gabe81