Get loli link correctly now

loligram.lisp

@@ -14,6 +14,9 @@
   (loop for chat in (config-item :loligram-chats)
         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))
                        :acceptor 'lolisp
                        :content-type toot:@plain)
@@ -27,5 +30,5 @@
       ((not (gethash chat-id *chats*))
        (dex:get (format nil *no-loli* chat-id)))
       ((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