          (when (and (not comment?) prev-saved?)
            [:span.fa.fa-external-link.toggle {:on-click open-external}])
          (when-not comment? [new-link @entry put-fn create-linked-entry])
+         [add-location @entry put-fn]
          [trash-icon trash-entry]]))))

          {:on-click #(do (create-linked-entry) (toggle-visible))}
          [:span.fa.fa-plus-square] "add linked"])])))

(defn upvote-fn [entry op put-fn]
  "Create click function for like. Can handle both upvotes and downvotes."
  (fn [_ev]

        create-comment (h/new-entry-fn put-fn {:comment-for ts} show-comments)
        story (:linked-story entry)
        create-linked-entry (h/new-entry-fn put-fn {:linked-entries [ts]
                                                    :linked-story   story} nil)
        new-pomodoro (h/new-entry-fn
                       put-fn (p/pomodoro-defaults ts) show-comments)
        trash-entry #(if edit-mode?
