From d7f5a39fc80d39ccb0b0eebdafd30f5f573ed1de Mon Sep 17 00:00:00 2001 From: Akira Tempaku <paku@skyizwhite.dev> Date: Sat, 3 May 2025 08:18:51 +0900 Subject: [PATCH] Add :partial option to renderer --- src/renderer.lisp | 24 +++++++++++++----------- 1 file changed, 13 insertions(+), 11 deletions(-) diff --git a/src/renderer.lisp b/src/renderer.lisp index bc88a25..5de6845 100644 --- a/src/renderer.lisp +++ b/src/renderer.lisp @@ -24,14 +24,16 @@ (defmethod jingle:process-response ((app jingle:app) result) (set-response-header :content-type "text/html; charset=utf-8") - (call-next-method app - (hsx:render-to-string - (match result - ((plist :body body - :metadata metadata - :cache cache) - (progn - (set-cache-control cache) - (~layout :metadata metadata - body))) - (_ (error "Invalid response form")))))) + (match result + ((plist :body body + :metadata metadata + :cache cache + :partial partial) + (set-cache-control cache) + (call-next-method app + (hsx:render-to-string + (if partial + body + (~layout :metadata metadata + body))))) + (_ (error "Invalid response form"))))