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

Now, help output is sorted.

Browse source
This commit is contained in:
Sergio Arbeo 2010-09-21 00:32:27 +02:00
parent 2e0589ccb6
commit 5607761edf
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/leiningen/help.clj
View file

@ -2,8 +2,8 @@
"Display a list of tasks or help for a given task."
(:use [leiningen.util.ns :only [namespaces-matching]]))
(def tasks (set (filter #(re-find #"^leiningen\.(?!core|util)[^\.]+$" (name %))
(namespaces-matching "leiningen"))))
(def tasks (sort (set (filter #(re-find #"^leiningen\.(?!core|util)[^\.]+$" (name %))
(namespaces-matching "leiningen")))))
(defn- get-arglists [task]
(for [args (:arglists (meta task))]