diff options
| author | Teddy Wing | 2021-02-02 23:47:10 +0100 |
|---|---|---|
| committer | Teddy Wing | 2021-02-02 23:47:10 +0100 |
| commit | 75b5d75523d36336af810207c3363044020bba17 (patch) | |
| tree | 12769202537aa9169e4c108374397aee0b79c2c8 | |
| parent | 1a0c2c421d97f06087fab401676f0904b288bbd2 (diff) | |
| download | extreload-75b5d75523d36336af810207c3363044020bba17.tar.bz2 | |
Add config class
We'll use this as a storage container for the command line options.
| -rw-r--r-- | l/extreload.asd | 1 | ||||
| -rw-r--r-- | l/src/config.lisp | 16 |
2 files changed, 17 insertions, 0 deletions
diff --git a/l/extreload.asd b/l/extreload.asd index 73402fb..9a09c1b 100644 --- a/l/extreload.asd +++ b/l/extreload.asd @@ -9,6 +9,7 @@ :components ((:file "package") (:file "macro") (:file "option") + (:file "config") (:file "main")))) :build-operation "program-op" diff --git a/l/src/config.lisp b/l/src/config.lisp new file mode 100644 index 0000000..86b77d3 --- /dev/null +++ b/l/src/config.lisp @@ -0,0 +1,16 @@ +(in-package :extreload) + +(defclass config () + ((socket-url + :initarg :socket-url + :reader socket-url + :documentation "DevTools WebSocket URL") + (extension-ids + :initarg :extension-ids + :reader extension-ids + :documentation "Sequence of extension IDs") + (reload-current-tab + :initarg :reload-current-tab + :initform nil + :reader reload-current-tab + :documentation "True if the current tab should be reloaded"))) |