Fix help task to ignore hooks.
This commit is contained in:
parent
fe2927a9f2
commit
7efb72f963
2 changed files with 2 additions and 2 deletions
2
bin/lein
2
bin/lein
|
@ -145,7 +145,7 @@ else
|
||||||
fi
|
fi
|
||||||
|
|
||||||
if ([ "$1" = "repl" ] || [ "$1" = "interactive" ] || [ "$1" = "int" ]) &&
|
if ([ "$1" = "repl" ] || [ "$1" = "interactive" ] || [ "$1" = "int" ]) &&
|
||||||
[ -z $INSIDE_EMACS ] && [ $TERM != "dumb" ]; then
|
[ -z $INSIDE_EMACS ] && [ "$TERM" != "dumb" ]; then
|
||||||
# Use rlwrap if it's available, otherwise fall back to JLine
|
# Use rlwrap if it's available, otherwise fall back to JLine
|
||||||
RLWRAP=`which rlwrap`
|
RLWRAP=`which rlwrap`
|
||||||
if [ $? -eq 1 ]; then
|
if [ $? -eq 1 ]; then
|
||||||
|
|
|
@ -2,7 +2,7 @@
|
||||||
"Display a list of tasks or help for a given task."
|
"Display a list of tasks or help for a given task."
|
||||||
(:use [clojure.contrib.find-namespaces :only [find-namespaces-on-classpath]]))
|
(:use [clojure.contrib.find-namespaces :only [find-namespaces-on-classpath]]))
|
||||||
|
|
||||||
(def tasks (set (filter #(re-find #"^leiningen\.(?!core|util)" (name %))
|
(def tasks (set (filter #(re-find #"^leiningen\.(?!core|util)[^\.]+$" (name %))
|
||||||
(find-namespaces-on-classpath))))
|
(find-namespaces-on-classpath))))
|
||||||
|
|
||||||
(defn get-arglists [task]
|
(defn get-arglists [task]
|
||||||
|
|
Loading…
Reference in a new issue