Add logo

Signed-off-by: Skylar "The Cobra" Widulski <cobra@vern.cc>

meme.scm

@@ -23,7 +23,8 @@
   #:use-module (web uri)
   #:use-module (web request)
   #:use-module (web http)
-  #:use-module (ice-9 textual-ports))
+  #:use-module (ice-9 textual-ports)
+  #:use-module (ice-9 binary-ports))
 
 (define (handler request request-body)
   (let ((uri (request-uri request))
@@ -40,6 +41,9 @@
       ((equal? path "/style.css")
        (values '((content-type . (text/css)))
                (call-with-input-file "static/style.css" get-string-all)))
+      ((equal? path "/favicon.png")
+       (values '((content-type . (image/png)))
+               (call-with-input-file "static/logo.png" get-bytevector-all)))
       ((equal? path "/proxy")
        (proxy-page (uri-query uri)))
       ((or (equal? path "/")