From: Mark Wooding <mdw@distorted.org.uk>
Date: Tue, 4 Aug 2020 09:48:38 +0000 (+0100)
Subject: el/dot-emacs.el: Arrange for Slime to name me better.
X-Git-Url: https://git.distorted.org.uk/~mdw/profile/commitdiff_plain/5432b9cdaf11453dd6ad5e3dc05f2058230d9e40

el/dot-emacs.el: Arrange for Slime to name me better.
---

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index 4b4be86..c53beff 100644
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -4310,6 +4310,13 @@ that character only to be normal punctuation.")
 
 ;; SLIME setup.
 
+(defvar mdw-friendly-name "[mdw]"
+  "How I want to be addressed.")
+(defadvice slime-user-first-name
+    (around mdw-use-friendly-name compile activate)
+  (if mdw-friendly-name (setq ad-return-value mdw-friendly-name)
+    ad-do-it))
+
 (trap
  (if (not mdw-fast-startup)
      (progn