From 6890b0349f79c0fbbbe5b8b7b3dbf8c2d2262e79 Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Sun, 13 Mar 2022 14:43:59 -0500
Subject: better printing of drafts

---
 lib/client.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib')

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))))
 
-- 
cgit v1.2.3