<commit_before>(in-package #:tempus)

(macrolet ((define-toggle-command (command flags pref on-message off-message)
             `(defcommand (ch ,command) ,(cons :player (cons :config flags))
                (setf (bitp (prefs-of ch) ,pref)
                      (not (bitp (prefs-of ch) ,pref)))
                    (send-to-char ch "~a~%"
                                  (if (bitp (prefs-of ch) ,pref)
                                      ,on-message ,off-message)))))
  (define-toggle-command "nohassle" (:immortal) +pref-nohassle+
                         "Nohassle enabled."
                         "Nohassle disabled.")
  (define-toggle-command "brief" () +pref-brief+
                         "Brief mode on."
                         "Brief mode off.")
  (define-toggle-command "notell" (:immortal) +pref-notell+
                         "You are now deaf to tells."
                         "You can now hear tells.")
  (define-toggle-command "noauction" () +pref-noauct+
                         "You are now deaf to auctions."
                         "You can now hear auctions.")
  (define-toggle-command "noshout" (:immortal) +pref-deaf+
                         "You are now deaf to shouts."
                         "You can now hear shouts.")
  (define-toggle-command "nogossip" () +pref-nogoss+
                         "You are now deaf to gossip."
                         "You can now hear gossip.")
  (define-toggle-command "nogratz" () +pref-nogratz+
                         "You are now deaf to the congratulation messages."
                         "You can now hear the congratulation messages.")
  (define-toggle-command "nowiz" (:wizard) +pref-nowiz+
                         "You are now deaf to the wiz channel."
                         "You can now hear the wiz channel.")
  (define-toggle-command "roomflags" (:immortal) +pref-roomflags+
                         "You will now see the room flags."
                         "You will no longer see the room flags.")
  (define-toggle-command "holylight" (:immortal) +pref-holylight+
                         "Holylight mode on."
                         "Holylight mode off.")
  (define-toggle-command "autoexits" () +pref-autoexit+
                         "Autoexits enabled."
                         "Autoexits disabled.")
  (define-toggle-command "nosing" () +pref-nomusic+
                         "You are now deaf to the music of your peers."
                         "You will now hear the music of your peers.")
  (define-toggle-command "nospew" () +pref-nospew+
                         "You will no longer be subjected to the spewings of your peers."
                         "You will now be subjected to the spewings of your peers.")
  (define-toggle-command "gagmiss" () +pref-gagmiss+
                         "You will no longer see the misses in your fights."
                         "You will now see all misses in your fights.")
  (define-toggle-command "autopage" () +pref-autopage+
                         "You will now receive a bell tone if someone tells to you."
                         "You will no longer be beeped if someone tells to you.")
  (define-toggle-command "noclan" () +pref-noclansay+
                         "You have closed yourself to clan communication."
                         "You have opened yourself to clan communication.")
  (define-toggle-command "debug" (:immortal) +pref-debug+
                         "You are now debugging fights."
                         "You stop debugging fights.")
  (define-toggle-command "debug" () +pref-debug+
                         "You are now debugging fights."
                         "You stop debugging fights.")
  (define-toggle-command "nonewbie" () +pref-newbie-helper+
                         "You are now monitoring the newbies."
                         "You are now ignoring the newbies")
  (define-toggle-command "autodiagnose" () +pref-auto-diagnose+
                         "You will now automatically be aware of your opponent's condition."
                         "You have disabled auto-diagnose.")
  (define-toggle-command "nodream" () +pref-nodream+
                         "You will no longer hear dreams."
                         "You will now hear the dreams of other players while you sleep.")
  (define-toggle-command "noproject" () +pref-noproject+
                         "You will now ignore the projections of other remorts."
                         "You will now be aware of the projections of other remorts.")
  (define-toggle-command "notrailers" () +pref-notrailers+
                         "You will now ignore affect trailers on characters."
                         "You will now see affect trailers on characters.")
  (define-toggle-command "nowho" () +pref-nowho+
                         "You will no longer be shown on the who list."
                         "You will now be shown on the who list.")
  (define-toggle-command "noholler" () +pref-noholler+
                         "You now ignore the hollering."<commit_msg>Fixed duplicate definition of debug toggle<commit_after>(in-package #:tempus)

(macrolet ((define-toggle-command (command flags pref on-message off-message)
             `(defcommand (ch ,command) ,(cons :player (cons :config flags))
                (setf (bitp (prefs-of ch) ,pref)
                      (not (bitp (prefs-of ch) ,pref)))
                    (send-to-char ch "~a~%"
                                  (if (bitp (prefs-of ch) ,pref)
                                      ,on-message ,off-message)))))
  (define-toggle-command "nohassle" (:immortal) +pref-nohassle+
                         "Nohassle enabled."
                         "Nohassle disabled.")
  (define-toggle-command "brief" () +pref-brief+
                         "Brief mode on."
                         "Brief mode off.")
  (define-toggle-command "notell" (:immortal) +pref-notell+
                         "You are now deaf to tells."
                         "You can now hear tells.")
  (define-toggle-command "noauction" () +pref-noauct+
                         "You are now deaf to auctions."
                         "You can now hear auctions.")
  (define-toggle-command "noshout" (:immortal) +pref-deaf+
                         "You are now deaf to shouts."
                         "You can now hear shouts.")
  (define-toggle-command "nogossip" () +pref-nogoss+
                         "You are now deaf to gossip."
                         "You can now hear gossip.")
  (define-toggle-command "nogratz" () +pref-nogratz+
                         "You are now deaf to the congratulation messages."
                         "You can now hear the congratulation messages.")
  (define-toggle-command "nowiz" (:wizard) +pref-nowiz+
                         "You are now deaf to the wiz channel."
                         "You can now hear the wiz channel.")
  (define-toggle-command "roomflags" (:immortal) +pref-roomflags+
                         "You will now see the room flags."
                         "You will no longer see the room flags.")
  (define-toggle-command "holylight" (:immortal) +pref-holylight+
                         "Holylight mode on."
                         "Holylight mode off.")
  (define-toggle-command "autoexits" () +pref-autoexit+
                         "Autoexits enabled."
                         "Autoexits disabled.")
  (define-toggle-command "nosing" () +pref-nomusic+
                         "You are now deaf to the music of your peers."
                         "You will now hear the music of your peers.")
  (define-toggle-command "nospew" () +pref-nospew+
                         "You will no longer be subjected to the spewings of your peers."
                         "You will now be subjected to the spewings of your peers.")
  (define-toggle-command "gagmiss" () +pref-gagmiss+
                         "You will no longer see the misses in your fights."
                         "You will now see all misses in your fights.")
  (define-toggle-command "autopage" () +pref-autopage+
                         "You will now receive a bell tone if someone tells to you."
                         "You will no longer be beeped if someone tells to you.")
  (define-toggle-command "noclan" () +pref-noclansay+
                         "You have closed yourself to clan communication."
                         "You have opened yourself to clan communication.")
  (define-toggle-command "debug" (:immortal) +pref-debug+
                         "You are now debugging fights."
                         "You stop debugging fights.")
  (define-toggle-command "nonewbie" () +pref-newbie-helper+
                         "You are now monitoring the newbies."
                         "You are now ignoring the newbies")
  (define-toggle-command "autodiagnose" () +pref-auto-diagnose+
                         "You will now automatically be aware of your opponent's condition."
                         "You have disabled auto-diagnose.")
  (define-toggle-command "nodream" () +pref-nodream+
                         "You will no longer hear dreams."
                         "You will now hear the dreams of other players while you sleep.")
  (define-toggle-command "noproject" () +pref-noproject+
                         "You will now ignore the projections of other remorts."
                         "You will now be aware of the projections of other remorts.")
  (define-toggle-command "notrailers" () +pref-notrailers+
                         "You will now ignore affect trailers on characters."
                         "You will now see affect trailers on characters.")
  (define-toggle-command "nowho" () +pref-nowho+
                         "You will no longer be shown on the who list."
                         "You will now be shown on the who list.")
  (define-toggle-command "noholler" () +pref-noholler+
                         "You now ignore the hollering."
{'fraction_non_alphanumeric': 0.0986353602247642, 'fraction_numerical': 0.0, 'mean_word_length': 1.5042713567839197, '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': 4, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '4085627', 'n_tokens_mistral': 2628, 'n_tokens_neox': 2439, 'n_words': 888}