yogsototh/leiningen
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add back in 1-arg version of help-for for backwards compatibility.

Browse source 
Note that this means that plugins using this won't be able to resolve
aliases when getting help.
This commit is contained in:
Jack Moffitt 2012-04-24 10:20:45 -06:00
parent 5f5c0cdbab
commit 95d1179138
1 changed files with 14 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
src/leiningen/help.clj
View file

@ -63,18 +63,20 @@
(defn help-for
"Help for a task is stored in its docstring, or if that's not present
in its namespace."
[project task-name]
(let [aliases (merge @main/aliases (:aliases project))
[task-ns task] (resolve-task (aliases task-name task-name))]
(if task
(let [help-fn (ns-resolve task-ns 'help)]
(str (or (and (not= task-ns 'leiningen.help) help-fn (help-fn))
(:doc (meta task))
(:doc (meta (find-ns task-ns))))
(subtask-help-for task-ns task)
(when (some seq (get-arglists task))
(str "\n\nArguments: " (pr-str (get-arglists task))))))
(format "Task: '%s' not found" task-name))))
([task-name]
(let [[task-ns task] (resolve-task task-name)]
(if task
(let [help-fn (ns-resolve task-ns 'help)]
(str (or (and (not= task-ns 'leiningen.help) help-fn (help-fn))
(:doc (meta task))
(:doc (meta (find-ns task-ns))))
(subtask-help-for task-ns task)
(when (some seq (get-arglists task))
(str "\n\nArguments: " (pr-str (get-arglists task))))))
(format "Task: '%s' not found" task-name))))
([project task-name]
(let [aliases (merge @main/aliases (:aliases project))]
(help-for (aliases task-name task-name)))))
(defn help-summary-for [task-ns]
(try (let [task-name (last (.split (name task-ns) "\\."))