acdw/emacs
acdw
/
emacs
1
2
Fork 0
Code Issues 4 Pull Requests Releases Activity

Use truncate-string-ellipsis by default

This commit is contained in:
Case Duckworth 2021-12-31 15:45:58 -06:00
parent a5d0c182a5
commit 13cb067d7f
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/+util.el
View File

@ -34,12 +34,12 @@
(defun +string-truncate (s length &optional ellipsis alignment) (defun +string-truncate (s length &optional ellipsis alignment)
"Return S, shortened to LENGTH including ELLIPSIS and aligned to ALIGNMENT. "Return S, shortened to LENGTH including ELLIPSIS and aligned to ALIGNMENT.
ELLIPSIS defaults to \"...\". ELLIPSIS defaults to `truncate-string-ellipsis', or \"...\".
ALIGNMENT defaults to `+string-default-alignment'." ALIGNMENT defaults to `+string-default-alignment'."
(declare (pure t) (declare (pure t)
(side-effect-free t)) (side-effect-free t))
(let ((ellipsis (or ellipsis "...")) (let ((ellipsis (or ellipsis truncate-string-ellipsis "..."))
(alignment (or alignment +string-default-alignment))) (alignment (or alignment +string-default-alignment)))
(if (> (length s) length) (if (> (length s) length)
(format "%s%s" (format "%s%s"
@ -50,7 +50,7 @@ ALIGNMENT defaults to `+string-default-alignment'."
(cl-defun +string-align (s len (cl-defun +string-align (s len
&key &key
(before "") (after "") (fill " ") (before "") (after "") (fill " ")
(ellipsis "...") (ellipsis (or truncate-string-ellipsis "..."))
(alignment +string-default-alignment)) (alignment +string-default-alignment))
"Print S to fit in LEN characters. "Print S to fit in LEN characters.
Optional arguments BEFORE and AFTER specify strings to go on Optional arguments BEFORE and AFTER specify strings to go on
@ -59,7 +59,8 @@ either side of S.
FILL is the string to fill extra space with (default \" \"). FILL is the string to fill extra space with (default \" \").
ELLIPSIS is the string to show when S is too long to fit (default ELLIPSIS is the string to show when S is too long to fit (default
\"...\"). If nil, don't truncate the string. `truncate-string-ellipsis' or \"...\"). If nil, don't truncate
the string.
ALIGNMENT can be one of these: ALIGNMENT can be one of these:
- nil: align to `+string-default-alignment' - nil: align to `+string-default-alignment'