From bdcfc253c165b463bc086b32b99bbb261a726f8a Mon Sep 17 00:00:00 2001 From: not manx Date: Wed, 15 Jul 2020 15:32:29 +0000 Subject: [PATCH] Fix gelbooru URL --- booru.lisp | 2 +- lolicore.lisp | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) 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 '()))