Use transducers for local keyword completions

planck-repl · May 21, 2017 · 6555ccf · 6555ccf
1 parent f6e1484
commit 6555ccf
Showing 1 changed file with 9 additions and 7 deletions.
diff --git a/planck-cljs/src/planck/repl.cljs b/planck-cljs/src/planck/repl.cljs
@@ -480,10 480,10 @@
 
 (defn- spec-registered-keywords
  [ns]
- (->> (s/registry)
- keys
  (eduction
  (filter keyword?)
- (filter #(= (str ns) (namespace %)))))
  (filter #(= (str ns) (namespace %)))
  (keys (s/registry))))
 
 (defn- local-keyword-str
  [kw]
@@ -497,10 497,12 @@
 (defn- local-keyword-completions
  [buffer kw-name]
  (let [buffer-prefix (subs buffer 0 (- (count buffer) (count kw-name) 2))]
- (clj->js (->> (spec-registered-keywords @current-ns)
- (map local-keyword-str)
- (filter #(string/starts-with? % (str "::" kw-name)))
- (map #(str buffer-prefix %))))))
  (clj->js (sequence
  (comp
  (map local-keyword-str)
  (filter #(string/starts-with? % (str "::" kw-name)))
  (map #(str buffer-prefix %)))
  (spec-registered-keywords @current-ns)))))
 
 (defn- ^:export get-completions
  [buffer]