add view command and color test

This commit is contained in:
Travis Shears 2025-06-11 09:42:42 +02:00
parent 7ab8f97e3e
commit 589e48304f
3 changed files with 36 additions and 3 deletions

View file

@ -2,11 +2,19 @@
(:require
[cli-cms.create :as create]
[cli-cms.edit :as edit]
[cli-cms.delete :as delete]))
[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.")))