From 853639031e666faf2465dbbcbe2ae2bf980a1073 Mon Sep 17 00:00:00 2001 From: Alexander Artemenko Date: Thu, 25 Jan 2024 20:05:44 +0000 Subject: [PATCH 1/5] More info on how to use defroute. --- qlfile.lock | 2 +- src/routes.lisp | 9 +++++++++ 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/qlfile.lock b/qlfile.lock index 050c2a59..36e689af 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 "20240124120001")) 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"))) From 170e04a75c99bcb52334b918745e18c20b511b84 Mon Sep 17 00:00:00 2001 From: Alexander Artemenko Date: Thu, 25 Jan 2024 20:08:35 +0000 Subject: [PATCH 2/5] Update qlfile.lock --- qlfile.lock | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/qlfile.lock b/qlfile.lock index 050c2a59..36e689af 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 "20240124120001")) From fa3e294e4315e1e4b6d8e605d4002ec8d005253f Mon Sep 17 00:00:00 2001 From: Alexander Artemenko Date: Fri, 26 Jan 2024 10:17:11 +0000 Subject: [PATCH 3/5] Update deps. --- qlfile.lock | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/qlfile.lock b/qlfile.lock index 36e689af..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 "20240124120001")) + :version "20240126095001")) From 6afa7bd3a86c61fa1529aaf2dd4da76f2f138a20 Mon Sep 17 00:00:00 2001 From: Alexander Artemenko Date: Fri, 26 Jan 2024 10:21:18 +0000 Subject: [PATCH 4/5] Updated the changelog. --- src/doc/changelog.lisp | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/src/doc/changelog.lisp b/src/doc/changelog.lisp index 3178547b..8750cbea 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 REBLOKS/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 From a1b9b42770927282a3859296a7f0aada224fde06 Mon Sep 17 00:00:00 2001 From: Alexander Artemenko Date: Fri, 26 Jan 2024 10:33:04 +0000 Subject: [PATCH 5/5] Fixed a typo. --- src/doc/changelog.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/doc/changelog.lisp b/src/doc/changelog.lisp index 8750cbea..a2199869 100644 --- a/src/doc/changelog.lisp +++ b/src/doc/changelog.lisp @@ -39,7 +39,7 @@ Changed ======= -* Generic-function REBLOKS/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. +* 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 """