Now successfully creating indexes. Started work on a search function, but out of steam.

src/clj/cc/journeyman/elboob/core.clj

@@ -26,6 +26,11 @@
         tokens (frequencies (remove ignorable? (tokenise (slurp f'))))]
     (reduce #(assoc %1 %2 {rel (tokens %2)}) {} (keys tokens))))
 
+(defn files-with-suffix [dir suffix]
+  (filter
+   #(ends-with? (.getName %) suffix)
+   (file-seq (file dir))))
+
 (defn compile-index
   "scans `dir-paths` as directories of Markdown files. Returns a map which keys
    each lexical token occurring in each file (with Markdown formatting, common
@@ -35,9 +40,6 @@
   (let [ignorable-word? (set (get-ignorable-words))
         tokenise (tokenizer [:lower-case :concat-singles])]
     (reduce deep-merge {} 
-            (map (fn [dir]
                    (map #(compile-file % tokenise ignorable-word?)
-                        (filter 
-                         #(ends-with? (.getName %) ".md")
-                         (file-seq (file dir))))) dir-paths))))
+                        (flatten (map #(files-with-suffix % ".md") dir-paths))))))