 (defn tags-to-string [tags]
   (apply str (interpose " " tags)))
 
-(def re-term #"[a-zåäæö#:0-9\-_]+")
+(def re-term #"[a-zåäæö#:0-9_]+")
 
 (defn stem-word [term]
   (when term


(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)

