    (to-term-seq 
     (reduce 
      (fn [result comment] 
-       (str result " " (:body comment) " " (:user comment))) 
+       (str result " " (:body comment) " c:"(:user comment))) 
      "" (:comments exercise)))))
 
 (defn insert-term [assoc-fn ex-id index term]

;; Results set is paginated, and it is sorted by :lastModifiedDate 
;; -field of the exercise, so that the latest exercise is the first search result.
;; 

;; Ref to associative map from a search term to set of document id:s where 
;; search term occurred. Set of document ids is referred later as "postings" of 

            [clojure.string :as string])
  (:import [org.bson.types ObjectId]))

;; MongoDB full text search for the exercise collection. 
;;
;; Maintains in-memory structures for indexing all documents in "exercise" mongo collection.
