Get loli link correctly now

master
not manx 4 years ago
parent ecabaa908d
commit cfefe1a793
Signed by: C-xC-c
GPG Key ID: F52ED472284EF2F4

@ -14,6 +14,9 @@
(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)))
(defun get-loli ()
(cdr (assoc :file-url (rori:loli-data (rori:loli-json "s") :file-url t))))
(toot:handle (loligram :post (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)
@ -27,5 +30,5 @@
((not (gethash chat-id *chats*)) ((not (gethash chat-id *chats*))
(dex:get (format nil *no-loli* chat-id))) (dex:get (format nil *no-loli* chat-id)))
((string= text "/loli") ((string= text "/loli")
(dex:get (format nil *send-loli* chat-id (rori:loli-link "s")))))) (dex:get (format nil *send-loli* chat-id (get-loli))))))
"mwee") ;; Return mwee "mwee") ;; Return mwee

Loading…
Cancel
Save