C-xC-c
/
lolisp
1
0
Fork 0
Code Issues Pull Requests Releases Activity

GC needs to be ran explicitly

Browse Source
master
not manx 5 years ago
parent 554f30858c
commit f0441780af
Signed by: C-xC-c
GPG Key ID: F52ED472284EF2F4
3 changed files with 34 additions and 36 deletions
Show Stats Download Patch File Download Diff File

22
about.html
Unescape View File

@ -1,14 +1,14 @@
<!DOCTYPE html> <!DOCTYPE html>
<html> <html>
<head> <head>
<meta charset="UTF-8" /> <meta charset="UTF-8" />
<meta name="viewport" content="width=device-width, initial-scale=1" /> <meta name="viewport" content="width=device-width, initial-scale=1" />
</head> </head>
<body style="text-align:center;max-width:75em;margin:auto;"> <body style="text-align:center;max-width:75em;margin:auto;">
<h1>plum.moe/loli</h1> <h1>plum.moe/loli</h1>
<p>Gets a random loli from lolibooru, converts it to base64 and displays it in the browser.</p> <p>Gets a random loli from lolibooru, converts it to base64 and displays it in the browser.</p>
<p>By default it only searches for images tagged as safe. You can pass <code>rating=q</code> or <code>rating=e</code> if you're feeling lewd.<br /> Passing <code>rating=-e</code> will randomly choose a non-explicit image and so fourth.</p> <p>By default it only searches for images tagged as safe. You can pass <code>rating=q</code> or <code>rating=e</code> if you're feeling lewd.<br /> Passing <code>rating=-e</code> will randomly choose a non-explicit image and so fourth.</p>
<p>Tring to query lolibooru via the URL otherwise will not work.</p> <p>Tring to query lolibooru via the URL otherwise will not work.</p>
<p>Made by <a href="mailto:boku@plum.moe">Manx</a>, source available on <a href="https://github.com/C-xC-c/lolisp">github</a>.</p> <p>Made by <a href="mailto:boku@plum.moe">Manx</a>, source available on <a href="https://github.com/C-xC-c/lolisp">github</a>.</p>
</body> </body>
</html> </html>

42
loli.lisp
Unescape View File

@ -1,12 +1,10 @@
(mapc (ql:quickload :aserve)
(lambda (x) (ql:quickload x)) (ql:quickload :dexador)
'(:cl-rng (ql:quickload :jsown)
:manx-utils (ql:quickload :qbase64)
:cl-ppcre (ql:quickload :cl-ppcre)
:aserve (ql:quickload :cl-rng)
:dexador (ql:quickload :manx-utils)
:jsown
:qbase64))
(load #p"config.lisp") (load #p"config.lisp")
@ -38,27 +36,27 @@
(loop (sleep 10000))) (loop (sleep 10000)))
(defun loli-rating (req) (defun loli-rating (rating)
(let ((rating (net.aserve:request-query-value "rating" req))) (or (cl-ppcre:scan-to-strings "-?(s|q|e)" rating)
(or (cl-ppcre:scan-to-strings "-?(s|q|e)" rating) "s"))
"s")))
(defun based-loli (req) (defun based-loli (req)
(manx-utils:to-string (manx-utils:to-string
"data:image/jpg;base64," "data:image/jpg;base64,"
(qbase64:encode-bytes (qbase64:encode-bytes
(dex:get (get-loli (loli-rating req)))))) (dex:get (get-loli
(loli-rating (net.aserve:request-query-value "rating" req)))))))
(defun this-is-bad-code (req ent) (defun this-is-bad-code (req ent)
(net.aserve:with-http-response (req ent) (net.aserve:with-http-response (req ent)
(net.aserve:with-http-body (req ent) (net.aserve:with-http-body (req ent)
(net.html.generator:html (net.html.generator:html
(:html (:html
(:head (:head
((:meta name "viewport" content "width=device-width, initial-scale=1"))) ((:meta name "viewport" content "width=device-width, initial-scale=1")))
((:body :style "position:relative") ((:body :style "position:relative")
((:img :style "object-fit: contain; width: 100%; height:100%" ((:img :style "object-fit: contain; width: 100%; height:100%"
:src (based-loli req))) :src (based-loli req)))
((:a :style "position:absolute;top:8px;right:16px;" href "/loli/about") "about"))))))) ((:a :style "position:absolute;top:8px;right:16px;" href "/loli/about") "about"))))))
(gc :full t)) ;; Removes downloaded files from memory
(main) (main)

6
readme.org
Unescape View File

@ -4,13 +4,13 @@ it on a web page.
This code is terrible because I am too. This code is terrible because I am too.
** Setup ** Setup
*** dependencies *** Dependencies
I use SBCL. I use SBCL.
Most systems will be downloaded by quicklisp. You wll need to git Most systems will be downloaded by quicklisp. You wll need to git
clone [[git@github.com:C-xC-c/manx-utils][manx-utils]] and [[public@flanchan.moe:cl-rng.git][cl-rng]] manually and add them to your clone [[https://github.com/C-xC-c/manx-utils][manx-utils]] and [[https://github.com/notflan/cl-rng][cl-rng]] manually and add them to your
~local-projects~. ~local-projects~.
*** *** Hosting
- Clone the repo - Clone the repo
- Move ~loli.example.service~ to ~/etc/systemd/system/loli.service~ - Move ~loli.example.service~ to ~/etc/systemd/system/loli.service~
- Change ~workingdirectory~ in ~loli.service~ to wherever your lolisp - Change ~workingdirectory~ in ~loli.service~ to wherever your lolisp

Write Preview
Loading…
Cancel
Save