21 lines
923 B
Hy
21 lines
923 B
Hy
|
#!/usr/bin/hy ; -*- mode: clojure -*-
|
||
|
|
(import subprocess os sys os.path)
|
||
|
|
|
||
|
|
(defn fmit [formatstring iterable]
|
||
|
|
(apply .format (+ [formatstring] (list iterable))))
|
||
|
|
|
||
|
|
(defmain [&rest args]
|
||
|
|
(let [[git_dir (subprocess.check_output ["git" "rev-parse" "--show-toplevel"])]]
|
||
|
|
(.append sys.path (os.path.join git_dir "git_lint"))
|
||
|
|
(import [git_lint [git_lint]])
|
||
|
|
(print (.join "\n" (map (fn [i] (if (get i 2)
|
||
|
|
(+ (fmit "\item[\oOptArg{{-{0}}}{{ names}} " i)
|
||
|
|
(fmit "\oOptArg{{--{1}}}={{ names}}] " i)
|
||
|
|
(fmit "{3}" i))
|
||
|
|
(+ (fmit "\item[\oOptArg{{-{0}}} " i)
|
||
|
|
(fmit "\oOptArg{{--{1}}}] " i)
|
||
|
|
(fmit "{3}" i))))
|
||
|
|
git_lint.OPTIONS_LIST)))))
|
||
|
|
|
||
|
|
|