From: Frank Duncan <frank@kank.net>
Date: Sat, 3 Jul 2021 12:05:44 +0000 (-0500)
Subject: Fix bug with extra tildes, spacing in usage
X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?a=commitdiff_plain;h=431bef76ea3304860503dde9dcbc10e2cee8c5eb;p=opera

Fix bug with extra tildes, spacing in usage
---

diff --git a/src/main/opera.lisp b/src/main/opera.lisp
index 0d70f9f..b66a4c0 100644
--- a/src/main/opera.lisp
+++ b/src/main/opera.lisp
@@ -87,7 +87,8 @@
    ((process-options (remaining-options &optional current-strings)
      (if (not remaining-options)
       (format nil
-       (format nil "~~A~~{~~,,~A~~A~~}" command-width)
+       ; Then 1+ is for the space after the command
+       (format nil "~~A~~{~~%~~,,~A@A~~}" (1+ command-width))
        (car (reverse current-strings))
        (cdr (reverse current-strings)))
       (let*