add view command and color test
This commit is contained in:
parent
7ab8f97e3e
commit
589e48304f
3 changed files with 36 additions and 3 deletions
|
|
@ -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.")))
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue