history view suggestion

[Timothy Pratley]

Hi,

I find it much easier to follow the history of a story when presented as a narrative

[see attached history.PNG]

This is calculated by querying the history and checking for added keys/removed keys/changed keys and applying some formatting.

The code is pretty straightforward at its core:

edits (for [[removed-keys added changed] (map exdiff delta-history (rest delta-history))]

                (concat

                 (when (seq removed-keys)

                   [(str "Cleared " (unwrap nil (map rename removed-keys)))])

                 (map (fn [[k v]]

                        (str "Set " (rename k) " to " (unwrap k v)))

                      (sort added))

                 (map (fn [[k v1 v2]]

                        (if (= k "Description")

                           [:div

                            [:div "Changed Description:"]

                            [:div

                             [:div.col-md-6 v1]

                             [:div.col-md-6 v2]]]

                          (str "Changed " (rename k) " from " (unwrap k v1) " to " (unwrap k v2))))

                      (sort changed))))

You could create two history tabs if you wanted to retain the existing view, users would benefit from this format.

Regards,

Timothy