about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el2
-rw-r--r--lisp/acdw-erc.el17
2 files changed, 10 insertions, 9 deletions
diff --git a/init.el b/init.el index d1e81fe..3efed13 100644 --- a/init.el +++ b/init.el
@@ -355,7 +355,7 @@
355 355
356 (setup (:straight erc-image) 356 (setup (:straight erc-image)
357 (:option (append erc-modules) 'image 357 (:option (append erc-modules) 'image
358 erc-image-inline-rescale 'window)) 358 erc-image-inline-rescale 300))
359 359
360 (erc-update-modules))) 360 (erc-update-modules)))
361 361
diff --git a/lisp/acdw-erc.el b/lisp/acdw-erc.el index f62e731..ba00355 100644 --- a/lisp/acdw-erc.el +++ b/lisp/acdw-erc.el
@@ -87,19 +87,20 @@ If USE-TLS is non-nil, use TLS."
87 "The prompt to show for ERC." 87 "The prompt to show for ERC."
88 ;; Rewrite s-truncate to avoid dependency. 88 ;; Rewrite s-truncate to avoid dependency.
89 (let ((name (buffer-name)) 89 (let ((name (buffer-name))
90 (ellipsis "...") 90 (ellipsis "~")
91 (len erc-fill-static-center)) 91 (len erc-fill-static-center))
92 (if (and len (> (length name) (- len 2))) 92 (if (and len (> (length name) (- len 2)))
93 (format "%s%s>" 93 (format "%s%s>"
94 (substring name 0 (- len 2 (length ellipsis))) 94 (substring name 0 (- len 2 (length ellipsis)))
95 ellipsis) 95 ellipsis)
96 (format "%s%s>" (let ((ss) ; Rewrite s-repeat to avoid dependency. 96 (format "%s%s>"
97 (num (- len 2 (length name)))) 97 name
98 (while (> num 0) 98 (let ((ss) ; Rewrite s-repeat to avoid dependency.
99 (setq ss (cons " " ss)) 99 (num (- len 2 (length name))))
100 (setq num (1- num))) 100 (while (> num 0)
101 (apply #'concat ss)) 101 (setq ss (cons " " ss))
102 name)))) 102 (setq num (1- num)))
103 (apply #'concat ss))))))
103 104
104 105
105;;; Uh 106;;; Uh