Compare commits
2 Commits
1fbd7258fe
...
1ec2749319
| Author | SHA1 | Date | |
|---|---|---|---|
| 1ec2749319 | |||
| 70190d3cc9 |
@@ -1,22 +1,13 @@
|
||||
(ns riot.app
|
||||
#_{:clj-kondo/ignore [:refer-all]}
|
||||
(:require [riot.core :refer :all]
|
||||
[riot.data :refer :all]
|
||||
[lambdaisland.cli :as cli]
|
||||
[clojure.pprint :as pp]
|
||||
[clojure.string :as s])
|
||||
(:require [riot.commands :refer :all]
|
||||
[lambdaisland.cli :as cli])
|
||||
(:gen-class))
|
||||
|
||||
(defn test-fn
|
||||
[opts]
|
||||
(println "Options:")
|
||||
(pp/pprint opts)
|
||||
(println "Positional args:" (s/join "," (:lambdaisland.cli/argv opts))))
|
||||
|
||||
(defn -main [& args]
|
||||
(cli/dispatch
|
||||
{:name "cli-test"
|
||||
:command #'test-fn ; The function to call
|
||||
{:name "cmd-test"
|
||||
:command #'cmd-test ; The function to call
|
||||
:flags ["-v, --verbose" "Increases verbosity"
|
||||
"--input FILE" "Specify the input file"]}
|
||||
args))
|
||||
|
||||
14
projects/cli/src/riot/commands.clj
Normal file
14
projects/cli/src/riot/commands.clj
Normal file
@@ -0,0 +1,14 @@
|
||||
(ns riot.commands
|
||||
#_{:clj-kondo/ignore [:refer-all]}
|
||||
(:require [riot.core :refer :all]
|
||||
[riot.data :refer :all]
|
||||
[clojure.pprint :as pp]
|
||||
[clojure.string :as s])
|
||||
(:gen-class))
|
||||
|
||||
|
||||
(defn cmd-test
|
||||
[params]
|
||||
(println "Options:")
|
||||
(pp/pprint opts)
|
||||
(println "Positional args:" (s/join "," (:lambdaisland.cli/argv opts))))
|
||||
Reference in New Issue
Block a user