From 887dfe4f57e6c2dc403595f29cb1d2f81dc42f7d Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Tue, 9 Aug 2022 10:40:00 -0500 Subject: [change] NOTES section only prints for non-empty explainations --- lib/client.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/client.lisp') diff --git a/lib/client.lisp b/lib/client.lisp index 680d07b..ae5534f 100644 --- a/lib/client.lisp +++ b/lib/client.lisp @@ -78,7 +78,7 @@ running the body. If such a oneliner can be found." (defun print-item-explanation (name-or-number) (when-oneliner (ol name-or-number) (print-oneliner-result-for-user ol) - (when (oneliner-explanation ol) + (when (plusp (length (remove #\space (oneliner-explanation ol)))) (loop repeat (floor (/ *term-width* 3)) do (princ " ")) (let ((tilde-count (floor (* 0.5 (- (/ *term-width* 3) (length "NOTES")))))) -- cgit v1.2.3