<commit_before>(in-package #:roo-site)

(defvar *day-names*
  '("Maandag" "Dinsdag" "Woensdag" "Donderdag" "Vrijdag" "Zaterdag" "Zondag"))

(defgeneric name-of-day (date))

(defmethod name-of-day ((date local-time:timestamp))
  (nth (local-time:timestamp-day-of-week date)
       *day-names*))

(defmethod name-of-day (date)
  (name-of-day (roo-parser:datestring->timestamp date)))

(defgeneric pretty-date-string (date))

(defmethod pretty-date-string ((date local-time:timestamp))
  (local-time:format-timestring NIL date
                                :format '(:year "-" :month "-" :day)))

(defmethod pretty-date-string ((date roo-parser:appointment))
  (pretty-date-string (roo-parser:date date)))

(defmethod pretty-date-string (date)
  (pretty-date-string (roo-parser:datestring->timestamp date)))
<commit_msg>Fix names of days, broken because of timezone change<commit_after>(in-package #:roo-site)

(defvar *day-names*
  '("Maandag" "Dinsdag" "Woensdag" "Donderdag" "Vrijdag" "Zaterdag" "Zondag"))

(defgeneric name-of-day (date))

(defmethod name-of-day ((date local-time:timestamp))
  (nth (1- (local-time:timestamp-day-of-week date))
       *day-names*))

(defmethod name-of-day (date)
  (name-of-day (roo-parser:datestring->timestamp date)))

(defgeneric pretty-date-string (date))

(defmethod pretty-date-string ((date local-time:timestamp))
  (local-time:format-timestring NIL date
                                :format '(:year "-" :month "-" :day)))

(defmethod pretty-date-string ((date roo-parser:appointment))
  (pretty-date-string (roo-parser:date date)))

(defmethod pretty-date-string (date)
  (pretty-date-string (roo-parser:datestring->timestamp date)))

{'fraction_non_alphanumeric': 0.1724137931034483, 'fraction_numerical': 0.0005945303210463733, 'mean_word_length': 4.2105263157894735, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 7, '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': '863105', 'n_tokens_mistral': 608, 'n_tokens_neox': 601, 'n_words': 119}