aboutsummaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorColin Okay <okay@toyful.space>2022-03-13 14:43:59 -0500
committerColin Okay <okay@toyful.space>2022-03-13 14:43:59 -0500
commit6890b0349f79c0fbbbe5b8b7b3dbf8c2d2262e79 (patch)
treedf7c38a8a366e805cbd3177edc255d3c663f3f73 /lib
parent6a6c2ec8e2ef6cc9fa91f769d7dbe79387529619 (diff)
better printing of drafts
Diffstat (limited to 'lib')
-rw-r--r--lib/client.lisp2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/client.lisp b/lib/client.lisp
index 530b454..dea6de6 100644
--- a/lib/client.lisp
+++ b/lib/client.lisp
@@ -79,7 +79,7 @@ running the body. If such a oneliner can be found."
(princ (oneliner-explanation ol)))))
(defun print-drafts ()
- (format t "DRAFTS~%")
+ (format t (concatenate 'string "~%~" (prin1-to-string *term-width*) "< ~;DRAFTS~; ~>~%"))
(dolist (draft *drafts*)
(print-oneliner-result-for-user (cdr draft))))