|
|
@ -14,7 +14,7 @@
|
|
|
|
(loop for chat in (config-item :loligram-chats)
|
|
|
|
(loop for chat in (config-item :loligram-chats)
|
|
|
|
do (setf (gethash chat *chats*) t)))
|
|
|
|
do (setf (gethash chat *chats*) t)))
|
|
|
|
|
|
|
|
|
|
|
|
(toot:handle (loligram :get (str "/loli/" (config-item :loligram-url))
|
|
|
|
(toot:handle (loligram :post (str "/loli/" (config-item :loligram-url))
|
|
|
|
:acceptor 'lolisp
|
|
|
|
:acceptor 'lolisp
|
|
|
|
:content-type toot:@plain)
|
|
|
|
:content-type toot:@plain)
|
|
|
|
()
|
|
|
|
()
|
|
|
|