mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 10:40:45 -08:00
Code Issues Projects Releases Wiki Activity

More control over automatic placement

Browse source
This commit is contained in:
Mariano Montone 2023-02-07 14:47:15 -03:00
parent b0c94dd0b8
commit cf40a5149e
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
source/clog-element.lisp
View file

@ -87,7 +87,10 @@ CLOG-OBJ. If HTML-ID is nil one will be generated."))
:clog-type clog-type :clog-type clog-type
:html-id html-id))) :html-id html-id)))
(if auto-place (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))) child)))
;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;