Add filtering behavior to whos()

Defaults to not displaying modules

Author: jdlangs

base/show.jl

@@ -1118,17 +1118,21 @@ function show_nd(io::IO, a::AbstractArray, limit, print_matrix, label_slices)
     cartesianmap(print_slice, tail)
 end
 
-function whos(m::Module, pattern::Regex)
-    for v in sort(names(m))
-        s = string(v)
-        if isdefined(m,v) && ismatch(pattern, s)
-            println(rpad(s, 30), summary(eval(m,v)))
+function whos(m::Module, pattern::Regex; filter=[])
+    filtertypes = applicable(start, filter) ?
+        filter : [filter]
+    filtertest(var) = ! any(T -> typeof(var) <: T, filtertypes)
+    for n in sort(names(m))
+        s = string(n)
+        v = eval(m,n)
+        if isdefined(m,n) && ismatch(pattern, s) && filtertest(v)
+            println(rpad(s, 30), summary(v))
         end
     end
 end
-whos() = whos(r"")
-whos(m::Module) = whos(m, r"")
-whos(pat::Regex) = whos(current_module(), pat)
+whos(;filter=Module) = whos(r""; filter=filter)
+whos(m::Module; filter=[]) = whos(m, r""; filter=filter)
+whos(pat::Regex; filter=[]) = whos(current_module(), pat; filter=filter)
 
 # global flag for limiting output
 # TODO: this should be replaced with a better mechanism. currently it is only

doc/stdlib/base.rst

@@ -41,10 +41,14 @@ Getting Around
 
    Determine whether Julia is running an interactive session.
 
-.. function:: whos([Module,] [pattern::Regex])
+.. function:: whos([Module,] [pattern::Regex]; [filter=nothing])
 
-   Print information about exported global variables in a module, optionally restricted
-   to those matching ``pattern``.
+   Print information about exported global variables in a module (defaults to
+   the current module), optionally restricted to those matching ``pattern``.
+
+   The ``filter`` keyword is either a single type or iterable object of types.
+   Variables who are of type or subtype of an element in ``filter`` will not be
+   displayed. If invoked without arguments, ``filter`` defaults to ``Module``.
 
 .. function:: edit(file::AbstractString, [line])