diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-08-09 10:40:00 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-08-09 10:40:00 -0500 |
| commit | 887dfe4f57e6c2dc403595f29cb1d2f81dc42f7d (patch) | |
| tree | 643be9a74e3ca33362aec34d97fc4e50117b01fb | |
| parent | 2fab4d7f237c91568c2206527535c70d657b2846 (diff) | |
[change] NOTES section only prints for non-empty explainations
| -rw-r--r-- | lib/client.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
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")))))) |