diff --git a/booru.lisp b/booru.lisp index d5b40b5..60bae49 100644 --- a/booru.lisp +++ b/booru.lisp @@ -46,6 +46,6 @@ :rating-posts (make-ratings (74000 53000 92000))) (add-booru :name 'gelbooru - :url "https://gelbooru.com/index.php?page=dapi&s=post&q=index&json=1&tags=loli+rating:~a&limit=1&pid=~a" + :url "https://gelbooru.com/index.php?page=dapi&s=post&q=index&json=1&tags={loli ~ child}+rating:~a&limit=1&pid=~a" :rating-posts (make-ratings (20000 20000 20000)) :rating-table ratings-full-words) diff --git a/lolicore.lisp b/lolicore.lisp index 56fa4fb..5aaab6d 100644 --- a/lolicore.lisp +++ b/lolicore.lisp @@ -1,6 +1,6 @@ (in-package #:lolicore) -(defun loli-link (rating ) +(defun loli-link (rating) "Generate a valid link to a loli image from a random booru" (let ((booru (cl-rng:within *boorus*))) (format nil (url booru) @@ -9,7 +9,7 @@ (defun loli-json (rating) "Get a link using `loli-link', download it and return parsed JSON" - (car (jsown:parse (dex:get (loli-link rating))))) + (car (jsown:parse (dex:get (loli-link rating))))) (defun loli-data (json &key tags file-url &aux (lst '()))