 (defn to-human-pace-minkm [duration distance]
   (let [pace  (/ (/ duration 6000) (/ distance 1000))
         secs (int (* 60.0 (- pace (int pace))))]
-    (str (int pace) "." (format "%02d" secs) "&nbsp;min/km")))
+    (str (int pace) "." (format "%02d" secs) " min/km")))
 
 (defn to-human-pace-kmh [duration distance]
   (let [speed (/ (/ distance 1000.0) (/ duration 360000.0))
         fraction (int (* 10 (- speed (int speed))))]
-    (str (int speed) "," (format "%01d" fraction) "&nbsp;km/h")))
+    (str (int speed) "," (format "%01d" fraction) " km/h")))
 
 (defn pace-conversion-fun [sport]
   (case sport

  (let [{:keys [duration distance avghr]} exercise
        {:keys [resthr]} profile]
    (if (positive-numbers? (list resthr duration distance avghr))
        (string/replace (format "%.2f&nbsp;m/b" (/ distance (* (- avghr resthr) duration (double (/ 1 6000))))) #"\." ","))))

(defn to-human-distance [distance]
  (if (= nil distance)


(defn seconds-part [seconds hundreds]
  (if (> hundreds 0)
    (str seconds "," (format "%02d" (int hundreds)) " s")
    (str seconds " s")))

(defn minutes-part [minutes seconds]
  (if (> seconds 0)
    (str minutes " min " seconds " s")
    (str minutes " min")))

(defn to-human-time [duration]
  (try
