From c6fca94d84cf988a72df6074dc7a469b6b4ccad4 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Fri, 4 Mar 2022 13:50:27 -0600 Subject: fallback setting term widht in print-oneliner-result-for-user --- src/lib.lisp | 1 + 1 file changed, 1 insertion(+) (limited to 'src/lib.lisp') 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 -- cgit v1.2.3