diff options
| author | Case Duckworth | 2021-08-24 23:07:45 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-08-24 23:07:45 -0500 |
| commit | b84ebb8cd9867c4f134dd5f4d5183849b04a9811 (patch) | |
| tree | feb1f8ae2d152c68532a1c3baf84fc09fdb9a7de /lisp/acdw-erc.el | |
| parent | Setup `repeat-mode' real nice like (diff) | |
| parent | IDK change stuff (diff) | |
| download | emacs-b84ebb8cd9867c4f134dd5f4d5183849b04a9811.tar.gz emacs-b84ebb8cd9867c4f134dd5f4d5183849b04a9811.zip | |
Merge branch 'main' of https://tildegit.org/acdw/emacs
Diffstat (limited to 'lisp/acdw-erc.el')
| -rw-r--r-- | lisp/acdw-erc.el | 20 |
1 files changed, 12 insertions, 8 deletions
| diff --git a/lisp/acdw-erc.el b/lisp/acdw-erc.el index 3e120ad..22e6831 100644 --- a/lisp/acdw-erc.el +++ b/lisp/acdw-erc.el | |||
| @@ -102,14 +102,18 @@ If USE-TLS is non-nil, use TLS." | |||
| 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>" | 105 | (propertize |
| 106 | name | 106 | (format "%s%s>" |
| 107 | (let ((ss) ; Rewrite s-repeat to avoid dependency. | 107 | name |
| 108 | (num (- len 2 (length name)))) | 108 | (let ((ss) ; Rewrite s-repeat to avoid dependency. |
| 109 | (while (> num 0) | 109 | (num (- len 2 (length name)))) |
| 110 | (setq ss (cons " " ss)) | 110 | (while (> num 0) |
| 111 | (setq num (1- num))) | 111 | (setq ss (cons " " ss)) |
| 112 | (apply #'concat ss)))))) | 112 | (setq num (1- num))) |
| 113 | (apply #'concat ss))) | ||
| 114 | 'read-only t | ||
| 115 | 'intangible t | ||
| 116 | 'cursor-intangible t)))) | ||
| 113 | 117 | ||
| 114 | (defcustom erc-nick-truncate nil | 118 | (defcustom erc-nick-truncate nil |
| 115 | "The width at which to truncate a nick with `erc-format-truncate-@nick'." | 119 | "The width at which to truncate a nick with `erc-format-truncate-@nick'." |