(in-package :beirc)

(define-beirc-command (com-bl0rg-hook :name t)
    ((enable-p 'boolean :prompt "Enable?" :default t))
  (if enable-p
      (cl-irc:add-hook (current-connection *application-frame*)
                       'irc::irc-privmsg-message 'bl0rg-hook)
      (cl-irc:remove-hook (current-connection *application-frame*)
                          'irc::irc-privmsg-message 'bl0rg-hook)))
  
(defun bl0rg-hook (message)
  (let* ((mumble "UTZ UTZ UTZ")
         (original-target (car (cl-irc:arguments message)))
         (destination (if (string-equal original-target
                                        (slot-value *application-frame* 'nick))
                          (cl-irc:source message)
                          original-target)))
    (when (search "bl0rg" (cl-irc:trailing-argument message)
                  :test #'string-equal)
          (com-msg destination mumble))))