main: Move command line option definitions to `option.lisp`

Makes more sense to group the option code together.

1 files changed, 22 insertions, 0 deletions

diff --git a/l/src/option.lisp b/l/src/option.lisp
index 3c266ea..6f9129c 100644
--- a/l/src/option.lisp
+++ b/l/src/option.lisp
@@ -2,6 +2,28 @@
 
 (in-package :extreload)
 
+;; Available command line options.
+(opts:define-opts
+  (:name :socket-url
+         :description "DevTools protocol WebSocket URL"
+         :long "socket-url"
+         :arg-parser #'identity
+         :meta-var "SOCKET_URL")
+  (:name :reload-current-tab
+         :description "pass this to reload the active Chrome tab"
+         :long "reload-current-tab")
+  (:name :debug
+         :description "print debug output"
+         :long "debug")
+  (:name :help
+         :description "print this help menu"
+         :short #\h
+         :long "help")
+  (:name :version
+         :description "show the program version"
+         :short #\V
+         :long "version"))
+
 (defmacro when-option ((options option) &body body)
   "When `option` is present in `options`, run `body`."
   `(let ((value (getf ,options ,option)))