aboutsummaryrefslogtreecommitdiff
path: root/lib/client.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lib/client.lisp')
-rw-r--r--lib/client.lisp8
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 ()