diff options
| author | Case Duckworth | 2021-07-14 08:38:00 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-07-14 08:38:00 -0500 |
| commit | a67fc7dc87be0d567ab032c9e35b338e6d2f2766 (patch) | |
| tree | 8c2222ffe32752534acf04b19b8d8704517fc122 /lisp | |
| parent | Add `erc/reconnect' (diff) | |
| parent | Add "AWAY" to erc-track-exclude-types (diff) | |
| download | emacs-a67fc7dc87be0d567ab032c9e35b338e6d2f2766.tar.gz emacs-a67fc7dc87be0d567ab032c9e35b338e6d2f2766.zip | |
Merge branch 'main' of tildegit.org:acdw/emacs
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/acdw-erc.el | 17 |
1 files changed, 9 insertions, 8 deletions
| diff --git a/lisp/acdw-erc.el b/lisp/acdw-erc.el index 783dcd8..423c4a5 100644 --- a/lisp/acdw-erc.el +++ b/lisp/acdw-erc.el | |||
| @@ -96,19 +96,20 @@ If USE-TLS is non-nil, use TLS." | |||
| 96 | "The prompt to show for ERC." | 96 | "The prompt to show for ERC." |
| 97 | ;; Rewrite s-truncate to avoid dependency. | 97 | ;; Rewrite s-truncate to avoid dependency. |
| 98 | (let ((name (buffer-name)) | 98 | (let ((name (buffer-name)) |
| 99 | (ellipsis "...") | 99 | (ellipsis "~") |
| 100 | (len erc-fill-static-center)) | 100 | (len erc-fill-static-center)) |
| 101 | (if (and len (> (length name) (- len 2))) | 101 | (if (and len (> (length name) (- len 2))) |
| 102 | (format "%s%s>" | 102 | (format "%s%s>" |
| 103 | (substring name 0 (- len 2 (length ellipsis))) | 103 | (substring name 0 (- len 2 (length ellipsis))) |
| 104 | ellipsis) | 104 | ellipsis) |
| 105 | (format "%s%s>" (let ((ss) ; Rewrite s-repeat to avoid dependency. | 105 | (format "%s%s>" |
| 106 | (num (- len 2 (length name)))) | 106 | name |
| 107 | (while (> num 0) | 107 | (let ((ss) ; Rewrite s-repeat to avoid dependency. |
| 108 | (setq ss (cons " " ss)) | 108 | (num (- len 2 (length name)))) |
| 109 | (setq num (1- num))) | 109 | (while (> num 0) |
| 110 | (apply #'concat ss)) | 110 | (setq ss (cons " " ss)) |
| 111 | name)))) | 111 | (setq num (1- num))) |
| 112 | (apply #'concat ss)))))) | ||
| 112 | 113 | ||
| 113 | 114 | ||
| 114 | ;;; Uh | 115 | ;;; Uh |