21 lines
330 B
Clojure
21 lines
330 B
Clojure
(defmulti task first)
|
|
|
|
(defmethod task :default
|
|
[[task-name]]
|
|
(println "Unknown task:" task-name)
|
|
(System/exit 1))
|
|
|
|
(require '[figwheel.main :as figwheel])
|
|
|
|
(defmethod task nil
|
|
[_]
|
|
(figwheel/-main "--build" "dev"))
|
|
|
|
(require '[music.core])
|
|
|
|
(defmethod task "play"
|
|
[_]
|
|
(music.core/-main))
|
|
|
|
(task *command-line-args*)
|