          [:h2.pure-u-5-6 (str (:activity session)
                               (when-let [time (:time session)]
                                 (let [time-string (str/split time #":")
-                                               [h m s] (map #(read-string %) time-string)]
-                                           (str " i "
-                                                (cond
-                                                  (= h 0) ""
-                                                  (= h 1) (str h " time ")
-                                                  :else (str h " timer "))
-                                                (cond
-                                                  (= m 0) ""
-                                                  (= m 1) (str m " minutt ")
-                                                  :else (str m " minutter "))
-                                                (cond
-                                                  (= s nil) ""
-                                                  (= s 0) ""
-                                                  (= s 1) (str s " sekund ")
-                                                  :else (str s " sekunder "))))))]
+                                      [h m s] (map #(read-string %) time-string)]
+                                  (str " i "
+                                       (cond
+                                         (= h 0) ""
+                                         (= h 1) (str h " time ")
+                                         :else (str h " timer "))
+                                       (cond
+                                         (= m 0) ""
+                                         (= m 1) (str m " minutt ")
+                                         :else (str m " minutter "))
+                                       (cond
+                                         (= s nil) ""
+                                         (= s 0) ""
+                                         (= s 1) (str s " sekund ")
+                                         :else (str s " sekunder "))))))]
 
          (when-not (empty? (flatten (:parts session)))
            (if @show-session-data?

           [:div.pure-u-1
            (when-not (= user-id viewing-user-id)
              [:i.fa.fa-thumbs-up.fa-2x {:style      {:cursor (when-not ((set likes) viewing-user-id) 'pointer)
                                                      :color (if ((set likes) viewing-user-id) "#009900" 'lightgray)}
                                         :onClick    (fn [e] (.preventDefault e) (like {:user-id viewing-user-id :url url}))
                                         :onTouchEnd (fn [e] (.preventDefault e) (like {:user-id viewing-user-id :url url}))}])

            [:i.fa.fa-comment.fa-2x {:onClick (fn [e] (.preventDefault e) (reset! adding-comment? (not @adding-comment?)))
                                     :onTouchEnd (fn [e] (.preventDefault e) (reset! adding-comment? (not @adding-comment?)))
                                     :style   {:margin-left (when-not (= user-id viewing-user-id) 40)
                                               :cursor      'pointer
                                               :color       'lightgray}}]])]

        ; Possible additional comments from user or other users
        [:div

  (let []
    (fn [{:keys [name image rep performed-sets set distance duration weight rest]}]
      [:div.pure-u
       [:img.graphic {:src (str "http://s3.amazonaws.com/mumrik-movement-images/" image) :title name :alt name}]
       (when (pos? weight) [:div.center {:style {:font-size "100%"}} (str weight " kg")])
       (when (pos? rep) [:div.center {:style {:font-size "100%"}} (str rep " reps")])
       (when (pos? distance) [:div.center {:style {:font-size "100%"}} (str distance " m")])
