;; S/R your username
;; S/R your password
(ql:quickload '(maiden-talk maiden-lichat))
(in-package #:maiden-user)

(setf *debugger* NIL)
(defvar *core* (make-simple-core '(maiden-lichat:lichat-client
                                   :username "your username"
                                   :password "your password"
                                   :host "irc.tymoon.eu")
                                 'maiden-talk:talk))

(define-handler (maiden-talk:talk mention message-event) (c ev message)
  (cl-ppcre:register-groups-bind (lang text) ("(?i)your username: (?:\\[(.*?)\\])?\\s*(.*)" message)
    (do-issue (core ev) maiden-talk::talk-lang
      :language (or lang "en-US") :text (list text))))