diff options
Diffstat (limited to 'lib/client.lisp')
| -rw-r--r-- | lib/client.lisp | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lib/client.lisp b/lib/client.lisp index 9f92c6e..680d07b 100644 --- a/lib/client.lisp +++ b/lib/client.lisp @@ -79,7 +79,13 @@ running the body. If such a oneliner can be found." (when-oneliner (ol name-or-number) (print-oneliner-result-for-user ol) (when (oneliner-explanation ol) - (princ #\newline) + (loop repeat (floor (/ *term-width* 3)) do (princ " ")) + (let ((tilde-count + (floor (* 0.5 (- (/ *term-width* 3) (length "NOTES")))))) + (loop repeat tilde-count do (princ "~")) + (princ "NOTES") + (loop repeat tilde-count do (princ "~"))) + (terpri) (princ (oneliner-explanation ol))))) (defun print-drafts () |