From b66f5ec1d87eb036b579ecd400fe505afb4a0f9b Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Fri, 2 Jul 2021 21:45:37 -0500
Subject: Modify erc config

---
 lisp/acdw-erc.el | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

(limited to 'lisp')

diff --git a/lisp/acdw-erc.el b/lisp/acdw-erc.el
index 8cf9734..6038f5a 100644
--- a/lisp/acdw-erc.el
+++ b/lisp/acdw-erc.el
@@ -87,19 +87,20 @@ If USE-TLS is non-nil, use TLS."
   "The prompt to show for ERC."
   ;; Rewrite s-truncate to avoid dependency.
   (let ((name (buffer-name))
-        (ellipsis "...")
+        (ellipsis "~")
         (len erc-fill-static-center))
     (if (and len (> (length name) (- len 2)))
         (format "%s%s>"
                 (substring name 0 (- len 2 (length ellipsis)))
                 ellipsis)
-      (format "%s%s>" (let ((ss) ; Rewrite s-repeat to avoid dependency.
-                            (num (- len 2 (length name))))
-                        (while (> num 0)
-                          (setq ss (cons " " ss))
-                          (setq num (1- num)))
-                        (apply #'concat ss))
-              name))))
+      (format "%s%s>"
+              name
+              (let ((ss) ; Rewrite s-repeat to avoid dependency.
+                    (num (- len 2 (length name))))
+                (while (> num 0)
+                  (setq ss (cons " " ss))
+                  (setq num (1- num)))
+                (apply #'concat ss))))))
 
 (provide 'acdw-erc)
 ;;; acdw-erc.el ends here
-- 
cgit 1.4.1-21-gabe81