twitter2flipdot.lisp

(ql:quickload "chirp")
(ql:quickload "trivial-http")
 
(defparameter chirp:*oauth-api-key*
  "toplel")
(defparameter chirp:*oauth-api-secret*
  "lolnope")
(defparameter chirp:*oauth-access-token*
  "roflmao")
(defparameter chirp:*oauth-access-secret*
  "kek")
 
(chirp:stream/statuses/filter
 #'(lambda (message)
     (when (typep message 'chirp:status)
       (format t "gonna post '~A'~%" (chirp:text-with-expanded-urls message))
       (trivial-http:http-post
        "http://flipdot.openlab-augsburg.de/queue/add"
        "application/x-www-form-urlencoded"
        (format
         nil
         "text=@~A: ~A"
         (chirp:screen-name (chirp:user message))
     (chirp:xml-decode (chirp:text message)))))
     T) :track '("#justopenlabthings"))