diff options
author | Colin Okay <colin@cicadas.surf> | 2022-08-09 10:07:05 -0500 |
---|---|---|
committer | Colin Okay <colin@cicadas.surf> | 2022-08-09 10:07:05 -0500 |
commit | e955869d2868a8cf867db44aad53534a92e10b92 (patch) | |
tree | 79db0588f1acb1195b542bf82522fca95bb6d2f2 /lib | |
parent | 0fbf73d77b814f649323c48dc8c71d2f8f0769fc (diff) |
[change] the printout of ol show; [remove] uneeded stuff
Diffstat (limited to 'lib')
-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 () |