From 074cb7d048c97484112474c0e2ee89a6a78660b7 Mon Sep 17 00:00:00 2001
From: Teddy Wing
Date: Tue, 2 Feb 2021 00:34:32 +0100
Subject: 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.
---
 l/src/main.lisp | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'l/src/main.lisp')

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