contrib proposal: apropos

[Michel Salim]

Would anyone be interested in this? It takes either a string or a
symbol, and examines all namespaces for identifiers that match the
given input.

(defn substring? [str1 str2]
(let [c1 (count str1)
c2 (count str2)]
(and (<= c1 c2)
(or (= str1 (subs str2 0 c1))
(substring? str1
(subs str2 1 c2))))))

(defn apropos [kw]
(let [kwstr (str kw)]
(apply concat
(map (fn [ns]
(filter #(substring? kwstr (str %))
(keys (ns-publics ns))))
(all-ns)))))

Not sure what files in contrib to put these in -- and whether
substring? will be generally useful, and thus should be exported, or
not.

Thanks,

--
Michel Salim

[Richard Newman]

>
> (defn substring? [str1 str2]
> (let [c1 (count str1)
> c2 (count str2)]
> (and (<= c1 c2)
> (or (= str1 (subs str2 0 c1))
> (substring? str1
> (subs str2 1 c2))))))

This should be a little faster:

(defn substring? [#^String s1 #^String s2]
(not (= -1 (.indexOf s2 s1))))

user=> (substring? "foo" "foobar")
true
user=> (substring? "bar" "Baz")
false

[Michel Salim]

Ah, true -- I've not used Java's string API for a while, and forgot
about indexOf. Thanks.

--
Michel