main: Show help output with -h/--help

Add `:arg-parser` to the `:socket-url` definition because 'unix-opts'
requires it in order to display the "SOCKET_URL" `:meta-var` in the help
output.

1 files changed, 8 insertions, 1 deletions

diff --git a/l/src/main.lisp b/l/src/main.lisp
index 5ea0384..99a60d0 100644
--- a/l/src/main.lisp
+++ b/l/src/main.lisp
@@ -8,6 +8,7 @@
   (:name :socket-url
          :description "DevTools protocol WebSocket URL"
          :long "socket-url"
+         :arg-parser #'identity
          :meta-var "SOCKET_URL")
   (:name :help
          :description "print this help menu"
@@ -20,7 +21,13 @@
 
 (defun main ()
   (multiple-value-bind (options free-args) (opts:get-opts)
-    ; (when-option (options :help))
+    (when-option (options :help)
+      (opts:describe
+        :usage-of "extreload"
+        :args "EXTENSION_ID...")
+
+      (opts:exit 64))
+
     (when-option (options :version)
       (format t "~a~%" (asdf:component-version (asdf:find-system :extreload)))