20 lines
528 B
Clojure
20 lines
528 B
Clojure
(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.")))
|