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

(defn tags-to-string [tags]
  (apply str (interpose " " tags)))

(def re-term #"[a-zåäæö#:0-9\-_]+")

(defn stem-word [term]
  (when term

(def timestamps (atom {}))

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

(def search-per-page 20)

