Skip to content

Instantly share code, notes, and snippets.

@ralt

ralt/*scratch*.el

Created February 14, 2015 23:04
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save ralt/1259e555e0cd54aff767 to your computer and use it in GitHub Desktop.
Save ralt/1259e555e0cd54aff767 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
*scratch*.el
(ql:quickload 'lparallel)
(ql:quickload 'cl-irc)
(ql:quickload 'bordeaux-threads)
(let ((queue (lparallel.queue:make-queue))
(connection (cl-irc:connect :nickname "Ralt__" :server "irc.freenode.net")))
(cl-irc:add-hook
connection
'cl-irc:irc-message
#'(lambda (msg)
(lparallel.queue:push-queue msg queue)))
(bt:make-thread #'(lambda ()
(cl-irc:read-message-loop connection)))
(lparallel.queue:pop-queue queue))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment