From 3dc9ef86c85dbd7140aca275a8fed851e4ec9fbd Mon Sep 17 00:00:00 2001 From: Phil Hagelberg Date: Wed, 30 Nov 2011 17:42:55 -0800 Subject: [PATCH] Preserve order in subtask help list. --- src/leiningen/help.clj | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/src/leiningen/help.clj b/src/leiningen/help.clj index cfaef0fb..ad3bd4d0 100644 --- a/src/leiningen/help.clj +++ b/src/leiningen/help.clj @@ -30,18 +30,17 @@ (formatted-docstring command docstring padding)))) (defn- get-subtasks-and-docstrings-for [task] - (into {} - (map (fn [subtask] - (let [m (meta subtask)] - [(str (:name m)) (:doc m)])) - (:subtasks (meta task))))) + (map (fn [subtask] + (let [m (meta subtask)] + [(str (:name m)) (:doc m)])) + (:subtasks (meta task)))) (defn subtask-help-for [task-ns task] (let [subtasks (get-subtasks-and-docstrings-for task)] (if (empty? subtasks) nil - (let [longest-key-length (apply max (map count (keys subtasks))) + (let [longest-key-length (apply max (map (comp count first) subtasks)) help-fn (ns-resolve task-ns 'help)] (string/join "\n" (concat ["\n\nSubtasks available:"]