 
 (defn try-get-one [id]
   (try 
-    (mc/find-one-as-map *db* EXERCISE {:_id id})
+    (dissoc (mc/find-one-as-map *db* EXERCISE {:_id id}) :comments)
     (catch Exception exception
       (.error logger (str "Unable to get ex " id " " exception)))))
 


(defn exercise-to-terms [exercise] 
  (concat
    [(:sport exercise) (month-str (:creationDate exercise)) (year-str (:creationDate exercise))]
     (to-term-seq (tags-to-string (:tags exercise)))
     (to-term-seq (str (:user exercise) " u:" (:user exercise)))
     (to-term-seq (:body exercise))

(def timestamps (atom {}))

(def min-term-length 2)
(def max-term-length 30)

(def search-per-page 20)

