diff --git a/qlfile.lock b/qlfile.lock index 050c2a59..54e48856 100644 --- a/qlfile.lock +++ b/qlfile.lock @@ -5,4 +5,4 @@ ("ultralisp" . (:class qlot/source/dist:source-dist :initargs (:distribution "http://dist.ultralisp.org" :%version :latest) - :version "20231205205000")) + :version "20240126095001")) diff --git a/src/doc/changelog.lisp b/src/doc/changelog.lisp index 3178547b..a2199869 100644 --- a/src/doc/changelog.lisp +++ b/src/doc/changelog.lisp @@ -34,6 +34,13 @@ "REBLOCKS/SESSION:INIT") :external-links (("Ultralisp" . "https://ultralisp.org")) :external-docs ("https://40ants.com/log4cl-extras/")) + (0.59.0 2024-01-26 + """ +Changed +======= + +* Generic-function REBLOCKS/WIDGET:GET-HTML-TAG now can return a list like `(list :input :onchange \"somevalue\")` to change not only HTML tag of the widget node, but also to add some arguments to it. +""") (0.58.0 2024-01-13 """ Added diff --git a/src/routes.lisp b/src/routes.lisp index 773a29c9..3be20bdf 100644 --- a/src/routes.lisp +++ b/src/routes.lisp @@ -92,6 +92,15 @@ (defroute (app /api/data :content-type \"application/xml\") \"12\") ``` + + or to serve `robots.txt`: + + ```lisp + (defroute (app /robots.txt :content-type \"text/plain\") + (alexandria:read-file-into-string + (asdf:system-relative-pathname \"frontend\" + \"robots.txt\"))) + ``` " (let* ((uri (string-downcase (symbol-name route))) (route-var (gensym "ROUTE")))