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

default 'clog-body' key in connection-data

Browse source
This commit is contained in:
David Botton 2021-02-17 15:17:45 -05:00
parent e51a2fb887
commit 3465668b99
5 changed files with 49 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

6
source/clog-system.lisp
View file

@ -35,8 +35,10 @@ same as the clog directy this overides the relative paths used in them.")
(on-new-window (or (gethash path *url-to-on-new-window*)
(gethash "default" *url-to-on-new-window*)
(gethash "/" *url-to-on-new-window*))))
(if on-new-window
(funcall on-new-window body)
(if on-new-window
(progn
(setf (connection-data-item body "clog-body") body)
(funcall on-new-window body))
(put-br (html-document body) "No route to on-new-window")))))
(defun initialize