(ns cli-cms.main
  (:require
   [cli-cms.create :as create]
   [cli-cms.edit :as edit]
   [cli-cms.delete :as delete]
   [cli-cms.cli-utils :as utils]
   [cli-cms.view :as view]))

(defn color-test []
  (doseq [color (range 0 255)]
    (utils/color-print (str "COLOR --- " color) (str color))))

(defn -main [& args]
  (case (first args)
    "create" (create/run)
    "delete" (delete/run)
    "edit" (edit/run)
    "view" (view/run)
    "color-test" (color-test)
    (println "Missing command. Try create, edit, or delete.")))