<commit_before>(ns leipzig-live.views
  (:require
    [leipzig-live.actions :as action]))

(defn home-page [handle! state]
  [:div [:h1 "Welcome to Leipzig Live!"]
   [:div [:input {:type "text"
                  :value (:text state)
                  :on-change #(-> % .-target .-value action/->Refresh handle!)}]
   [:button {:on-click (fn [_] (handle! (action/->Play)))} "Play!"]]
   [:div
    (-> state :music print)]])<commit_msg>Fix the printing of the result.<commit_after>(ns leipzig-live.views
  (:require
    [leipzig-live.actions :as action]))

(defn home-page [handle! state]
  [:div [:h1 "Welcome to Leipzig Live!"]
   [:div [:input {:type "text"
                  :value (:text state)
                  :on-change #(-> % .-target .-value action/->Refresh handle!)}]
   [:button {:on-click (fn [_] (handle! (action/->Play)))} "Play!"]]
   [:div
    (-> state :music print-str)]])
{'fraction_non_alphanumeric': 0.2062780269058296, 'fraction_numerical': 0.002242152466367713, 'mean_word_length': 2.720833333333333, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 11, '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': '1664530', 'n_tokens_mistral': 330, 'n_tokens_neox': 297, 'n_words': 80}