diff options
Diffstat (limited to 'lisp/+util.el')
| -rw-r--r-- | lisp/+util.el | 5 |
1 files changed, 3 insertions, 2 deletions
| diff --git a/lisp/+util.el b/lisp/+util.el index fb77278..45d1e6d 100644 --- a/lisp/+util.el +++ b/lisp/+util.el | |||
| @@ -58,7 +58,8 @@ either side of S. | |||
| 58 | 58 | ||
| 59 | FILL is the string to fill extra space with (default \" \"). | 59 | FILL is the string to fill extra space with (default \" \"). |
| 60 | 60 | ||
| 61 | ELLIPSIS is the string to show when S is too long to fit (default \"...\"). | 61 | ELLIPSIS is the string to show when S is too long to fit (default |
| 62 | \"...\"). If nil, don't truncate the string. | ||
| 62 | 63 | ||
| 63 | ALIGNMENT can be one of these: | 64 | ALIGNMENT can be one of these: |
| 64 | - nil: align to `+string-default-alignment' | 65 | - nil: align to `+string-default-alignment' |
| @@ -73,7 +74,7 @@ ALIGNMENT can be one of these: | |||
| 73 | (format "%s%s%s%s%s" | 74 | (format "%s%s%s%s%s" |
| 74 | before | 75 | before |
| 75 | (if (eq alignment 'left) "" filler) | 76 | (if (eq alignment 'left) "" filler) |
| 76 | (+string-truncate s max-length ellipsis alignment) | 77 | (if ellipsis (+string-truncate s max-length ellipsis alignment) s) |
| 77 | (if (eq alignment 'right) "" filler) | 78 | (if (eq alignment 'right) "" filler) |
| 78 | after))) | 79 | after))) |
| 79 | 80 | ||