diff options
| author | Colin Okay <okay@toyful.space> | 2022-03-04 13:50:27 -0600 |
|---|---|---|
| committer | Colin Okay <okay@toyful.space> | 2022-03-04 13:50:27 -0600 |
| commit | c6fca94d84cf988a72df6074dc7a469b6b4ccad4 (patch) | |
| tree | b39718e3559cd59fc5dc84a2de48a75af23d7446 | |
| parent | 76205ae5a8c1387b663317baa9cf78daeb7451aa (diff) | |
fallback setting term widht in print-oneliner-result-for-user
| -rw-r--r-- | src/lib.lisp | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/lib.lisp b/src/lib.lisp index b3741cd..b5256fe 100644 --- a/src/lib.lisp +++ b/src/lib.lisp @@ -474,6 +474,7 @@ and, failing that, try to fetch from configured server." 4))) (defun print-oneliner-result-for-user (oneliner) + (unless *term-width* (set-term-width)) ; setting here as a fallback, can set it elswere if desired. (let* ((title-line-format-str (concatenate 'string "~" (prin1-to-string *term-width*) "<[~a]~;~a~;~a~>~%")) (tags-line-format-string |