21 lines
537 B
Common Lisp
21 lines
537 B
Common Lisp
;; Migrate database structure
|
|
(mito:connect-toplevel :sqlite3 :database-name #P"timer.db")
|
|
(setq mito:*auto-migration-mode* t)
|
|
|
|
;; Define command line arguments
|
|
(opts:define-opts
|
|
(:name :import
|
|
:description "create splits and category from a config file"
|
|
:short #\i
|
|
:long "import"
|
|
:arg-parser #'identity))
|
|
|
|
(defun main ()
|
|
(let ((options (opts:get-opts))
|
|
(category (car (mito:select-dao 'category))))
|
|
(when-option (options :import)
|
|
(import-config (getf options :import)))
|
|
(run-ui category)))
|
|
|
|
(main)
|