55 lines
2.0 KiB
Common Lisp
55 lines
2.0 KiB
Common Lisp
;; Migrate database structure
|
|
(mito:connect-toplevel :sqlite3 :database-name #P"timer.db")
|
|
(setq mito:*auto-migration-mode* t)
|
|
(load "database/category.lisp")
|
|
(load "database/run.lisp")
|
|
|
|
(defun get-input (prompt validation)
|
|
(clear-input)
|
|
(write-string prompt)
|
|
(finish-output)
|
|
(let ((input (read-line)))
|
|
(if (ignore-errors (funcall validation input))
|
|
input
|
|
(get-input prompt validation))))
|
|
|
|
;; Options is an alist with the prompt string as the car and the value as the cdr
|
|
(defun get-option (options)
|
|
(let ((i 0))
|
|
(loop for x in options
|
|
do
|
|
(inc i)
|
|
(format t " [~a] ~a~%" i (car x))))
|
|
(cdr (nth (1- (parse-integer (get-input
|
|
(format nil "[~a - ~a]: " 1 (length options)) (lambda (x) (let ((user-integer (parse-integer x)))
|
|
(and
|
|
(>= user-integer 1)
|
|
(<= user-integer (length options))))))))
|
|
options)))
|
|
|
|
(defun main ()
|
|
(mapcar #'(lambda (x) (format t "~a~%" x)) *lispruns-logo*)
|
|
(let ((choice (get-option '(("Help" . HELP)
|
|
("Import a category" . IMPORT-CATEGORY)
|
|
("Make a new category" . NEW-CATEGORY)
|
|
("Start a speedrun" . START-SPEEDRUN)
|
|
("Statistics" . LIST-CATEGORIES)
|
|
("Exit" . EXIT)))))
|
|
(case choice
|
|
('IMPORT-CATEGORY
|
|
(import-category (get-input (format nil "Relative or absolute path to configuration file [~a]: " (uiop/os:getcwd)) 'probe-file)))
|
|
('NEW-CATEGORY
|
|
(format t "NEW CATEGORY~%"))
|
|
('START-SPEEDRUN
|
|
(speedrun-ui (car (mito:select-dao 'category))))
|
|
('EXIT
|
|
(quit))))
|
|
(format t "~%")
|
|
(main))
|
|
|
|
|
|
;; (let ((options (opts:get-opts)))
|
|
;; (when-option (options :import)
|
|
;; (import-config (getf options :import)))
|
|
;; (run-ui (car (mito:select-dao 'category)))))
|