(module vandusen-memelog ()
  (import scheme chicken posix regex)
  (use vandusen irc)

(plugin 'memelog
  (lambda ()

    (define oflags (+ open/wronly open/append open/creat))

    (message-handler (lambda (m)
                       (let ((m (irc:message-body m)))
                         (cond ((string-search "http://www.quickmeme.com/meme/.*" m) =>
                                (lambda (lst)
                                  (condition-case
                                    (and-let* ((file ($ 'memelog))
                                               (fd (file-open file oflags)))
                                      (file-write fd (format "~a\n" (car lst)))
                                      (file-close fd))
                                  (exn () (debug "CRITICAL COULDN'T WRITE TO MEMELOG!!eleven!"))))))
                         #f))
                     command: "PRIVMSG"))))