From cf40a5149e4525b534ea2253798d25a849cf5007 Mon Sep 17 00:00:00 2001 From: Mariano Montone Date: Tue, 7 Feb 2023 14:47:15 -0300 Subject: [PATCH] More control over automatic placement --- source/clog-element.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/source/clog-element.lisp b/source/clog-element.lisp index 8d602ac..26ddb1b 100644 --- a/source/clog-element.lisp +++ b/source/clog-element.lisp @@ -87,7 +87,10 @@ CLOG-OBJ. If HTML-ID is nil one will be generated.")) :clog-type clog-type :html-id html-id))) (if auto-place - (place-inside-bottom-of obj child) + (case auto-place + (:bottom (place-inside-bottom-of obj child)) + (:top (place-inside-top-of obj child)) + (t (place-inside-bottom-of obj child))) child))) ;;;;;;;;;;;;;;;;;;;;;