From 5fdb4c06911fa73ce2b1c864f6c37b841bfdd65b Mon Sep 17 00:00:00 2001
From: Teddy Wing
Date: Sat, 27 Feb 2021 17:59:41 +0100
Subject: main: Move command line option definitions to `option.lisp`

Makes more sense to group the option code together.
---
 l/src/option.lisp | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

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

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