aboutsummaryrefslogtreecommitdiffstats
path: root/l/src/main.lisp
diff options
context:
space:
mode:
authorTeddy Wing2021-02-27 17:59:41 +0100
committerTeddy Wing2021-02-27 18:02:44 +0100
commit5fdb4c06911fa73ce2b1c864f6c37b841bfdd65b (patch)
tree1db8558c0b15f4c00ae0bcbdf12aace82dcd19fb /l/src/main.lisp
parenta93a51089c514f9c52860945e0815aa61b191cc1 (diff)
downloadextreload-5fdb4c06911fa73ce2b1c864f6c37b841bfdd65b.tar.bz2
main: Move command line option definitions to `option.lisp`
Makes more sense to group the option code together.
Diffstat (limited to 'l/src/main.lisp')
-rw-r--r--l/src/main.lisp21
1 files changed, 0 insertions, 21 deletions
diff --git a/l/src/main.lisp b/l/src/main.lisp
index 61a48be..5dee032 100644
--- a/l/src/main.lisp
+++ b/l/src/main.lisp
@@ -9,27 +9,6 @@
(defconstant +timeout-seconds+ 5)
-(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"))
-
(defun main ()
(handler-bind ((error #'(lambda (e)
(exit-with-error e sysexits:+unavailable+))))