1 files changed, 48 insertions, 11 deletions
diff --git a/main.lisp b/main.lisp
index a15daca..6e89cd0 100644
--- a/main.lisp
+++ b/main.lisp
@@ -1,17 +1,54 @@
 ;; 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")
 
-;; 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 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 ()
-  (let ((options (opts:get-opts)))
-    (when-option (options :import)
-      (import-config (getf options :import)))
-    (run-ui (car (mito:select-dao 'category)))))
+  (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)))))