Trying to get the man page just right.
This commit is contained in:
parent
256b4b6306
commit
b75b4efe7e
|
@ -33,23 +33,7 @@
|
|||
\section{Synopsis}
|
||||
%%%%%%%%%%%%%%%%%%
|
||||
|
||||
\Prog{git-lint}
|
||||
\oOptArg{-o}{ linters}
|
||||
\oOptArg{-x}{ linters}
|
||||
\oOpt{-l}
|
||||
\oOpt{-b}
|
||||
\oOpt{-a}
|
||||
\oOpt{-e}
|
||||
\oOpt{-w}
|
||||
\oOpt{-s}
|
||||
\oOpt{-g}
|
||||
\oOpt{-p}
|
||||
\oOpt{-t}
|
||||
\oOpt{-f}
|
||||
\oOpt{-d}
|
||||
\oOptArg{-c}{ config-file}
|
||||
\oOpt{-h}
|
||||
\oOpt{-v}
|
||||
\Prog{git lint} [<options>..] [filenames..]
|
||||
|
||||
\section{Description}
|
||||
%%%%%%%%%%%%%%%%%%%%%
|
||||
|
|
|
@ -0,0 +1,20 @@
|
|||
#!/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)))))
|
||||
|
||||
|
Loading…
Reference in New Issue