1 files changed, 17 insertions, 0 deletions

@@ -81,6 +81,23 @@ If USE-TLS is non-nil, use TLS."
     (with-message (format "Killing server buffer: %s" (buffer-name buffer))
       (with-current-buffer buffer
         (erc-quit-server erc/bye-message)))))
+(defun acdw-erc/prompt ()
+  "The prompt to show for ERC."
+  ;; Rewrite s-truncate to avoid dependency.
+  (let ((name (buffer-name))
+        (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))))
 
 (provide 'acdw-erc)
 ;;; acdw-erc.el ends here