<commit_before>(ns amindblowingworld.history
  (:require [amindblowingworld.world :refer :all]))

(defonce events (atom []))

(defn record-event [msg pos]
  (println "Event: " msg " at: " pos)
  (swap! events conj {:msg msg :pos pos}))<commit_msg>Events has timestamp now<commit_after>(ns amindblowingworld.history
  (:require [amindblowingworld.world :refer :all]))

(defonce events (atom []))

(defn record-event [msg pos]
  (println "Event: " msg " at: " pos)
  (swap! events conj {:msg msg :pos pos :timestamp (.getTime (java.util.Date.))}))
{'fraction_non_alphanumeric': 0.163302752293578, 'fraction_numerical': 0.0, 'mean_word_length': 5.134831460674158, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '1988099', 'n_tokens_mistral': 190, 'n_tokens_neox': 186, 'n_words': 55}