blob: 8cafce966f3b8eeab95d57d9be161c39c90f4d60 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
;; 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)
|
