<commit_before>(ns clj-web-example.ui.route
  (:require [reagent.core :as reagent]
            [secretary.core :as secretary :refer-macros [defroute]]))

;
; Current route
;
(defonce route (reagent/atom nil))

;
; Routes
;
(secretary/set-config! :prefix "#")

(secretary/defroute "/" []
  (reset! route {:id "messages"}))

(secretary/defroute "/new" []
  (reset! route {:id "new-message"}))

;
; Listener
;
(defn update-route!
  [_]
  (secretary/dispatch! js/location.hash))

(defn init-hook!
  []
  (set! js/window.onhashchange update-route!)
  (update-route! nil))<commit_msg>Implemented a function for changing location.hash (address bar).<commit_after>(ns clj-web-example.ui.route
  (:require [reagent.core :as reagent]
            [secretary.core :as secretary :refer-macros [defroute]]))

;
; Current route
;
(defonce route (reagent/atom nil))

;
; Routes
;
(secretary/set-config! :prefix "#")

(secretary/defroute "/" []
  (reset! route {:id "messages"}))

(secretary/defroute "/new" []
  (reset! route {:id "new-message"}))

;
; Listener
;
(defn update-route!
  [_]
  (secretary/dispatch! js/location.hash))

(defn init-hook!
  []
  (set! js/window.onhashchange update-route!)
  (update-route! nil))

;
; For modifying the location.hash
;
(defn modify-location-hash!
  [hash]
  (set! js/location.hash hash))
{'fraction_non_alphanumeric': 0.18098859315589352, 'fraction_numerical': 0.0, 'mean_word_length': 4.003802281368821, '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': '5200288', 'n_tokens_mistral': 502, 'n_tokens_neox': 492, 'n_words': 102}