<commit_before>#lang racket

(provide intensify)
(require irc)
(require "../lib/utils.rkt")
(require "../lib/structs.rkt")

(define (intensify)
 (let ((msg (thread-receive)))
  (let ((text (string-trim (cadr (irc-message-parameters msg)))))
   (reply msg
    (string-append "["
     (string-locale-upcase
      (string-trim (string-trim text "[" #:right? #f) "]" #:left? #f)
     )
    " INTENSIFIES]")
   )
  )
 )
)

(hash-set! *cmds* "intensitest" intensify)
(add-regex-cmd #px"^\\[.+\\]$" intensify)<commit_msg>Fixed instensify commands with colours that aren't escaped<commit_after>#lang racket

(provide intensify)
(require irc)
(require "../lib/colours.rkt")
(require "../lib/utils.rkt")
(require "../lib/structs.rkt")

(define (intensify)
 (let ((msg (thread-receive)))
  (let ((text (string-trim (cadr (irc-message-parameters msg)))))
   (reply msg
    (string-append clbold "["
     (string-locale-upcase
      (string-trim (string-trim text "[" #:right? #f) "]" #:left? #f)
     )
    " INTENSIFIES" clpref "]" clbold
    )
   )
  )
 )
)

(hash-set! *cmds* "intensitest" intensify)
(add-regex-cmd #px"^\\[.+\\]$" intensify)
{'fraction_non_alphanumeric': 0.213215859030837, 'fraction_numerical': 0.0, 'mean_word_length': 3.507936507936508, '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': '5286060', 'n_tokens_mistral': 453, 'n_tokens_neox': 433, 'n_words': 91}