From 443582b2667e86ecac47de7bb77cbcc5bb354256 Mon Sep 17 00:00:00 2001 From: Ekaitz Zarraga Date: Wed, 4 Oct 2023 16:45:01 +0200 Subject: html: js and css work as media and as raw strings --- tests/html.scm | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'tests') diff --git a/tests/html.scm b/tests/html.scm index c5a5967..ca041f4 100644 --- a/tests/html.scm +++ b/tests/html.scm @@ -13,9 +13,11 @@ #:description "Este es mi feed" #:uri "https://feed.elenq.tech/index.html" #:styles (list - (html:css "this.css" #:uri "/this.css") - (html:css "that.css" #:uri "/that.css")) - #:scripts (list (html:js "script.js" #:uri "/script.js")) + "body {color: grey}" + (html:media "that.css" #:uri "/that.css")) + #:scripts (list + "console.log(\"HOLA\")" + (html:media "script.js" #:uri "/script.js")) #:author me #:posts (list (html:post #:title "first entry" @@ -29,7 +31,6 @@ (let ((html-index (with-output-to-string (lambda () (html:render index))))) (test-assert (string=? html-index - "

first entry

Ekaitz

Este es el resumen

Este es el contenido