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
---
init.el | 4 ++--
lisp/acdw-erc.el | 17 +++++++++--------
2 files changed, 11 insertions(+), 10 deletions(-)
diff --git a/init.el b/init.el
index 057934a..bea881c 100644
--- a/init.el
+++ b/init.el
@@ -349,9 +349,9 @@
(setup (:straight erc-image)
(:option (append erc-modules) 'image
- erc-image-inline-rescale 'window))
+ erc-image-inline-rescale 300))
- (erc-update-modules)))
+ (erc-update-modules)))
(setup eshell
(:also-load acdw-eshell
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