(defslimefn completions [symbol-string package]
(try
(let [[sym-ns sym-name] (symbol-name-parts symbol-string)
potential (potential-completions (when sym-ns (symbol sym-ns)) (ns-name (maybe-ns package)))
matches (seq (sort (filter #(split-compound-prefix-match? symbol-string %) potential)))]
(list matches
(if matches
(reduce largest-common-prefix matches)
symbol-string)))
(catch java.lang.Throwable t
(list nil symbol-string))))
Vars in
swank.commands.contrib.swank-c-p-c/completions:
let
list
reduce
Used in 0 other vars
Source
swank/commands/contrib/swank_c_p_c.clj:7
top
Comments top
No comments for completions. Log in to add a comment.