mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-09 20:30:26 -08:00
Code Issues Projects Releases Wiki Activity

added search engine optimization functionality

Browse source
This commit is contained in:
David Botton 2022-04-05 22:32:28 -04:00
parent 662220432f
commit a27e86a197
9 changed files with 55 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

7
source/clog-system.lisp
View file

@ -51,6 +51,7 @@ the same as the clog directy this overides the relative paths used in them.")
(host "0.0.0.0")
(port 8080)
(boot-file "/boot.html")
(boot-function nil)
(static-boot-js nil)
(static-root (merge-pathnames "./static-files/"
(asdf:system-source-directory :clog))))
@ -64,7 +65,10 @@ is installed in ./static-files\" If the variable clog:*overide-static-root*
is set STATIC-ROOT will be ignored. If BOOT-FILE is nil no default
boot-file will be set for root path, i.e. /. If static-boot-js is t
then boot.js is served from the file /js/boot.js instead of the
compiled version."
compiled version. boot-function if set is called with the url and the
contents of boot-file and its return value replaces the contents sent
to the brower, this allows adding content for search engine optimization,
see tutorial 12 for an example."
(when on-new-window-handler
(set-on-new-window on-new-window-handler :path "/" :boot-file boot-file))
(unless *clog-running*
@ -76,6 +80,7 @@ compiled version."
:host host
:port port
:boot-file boot-file
:boot-function boot-function
:static-boot-js static-boot-js
:static-root *static-root*)))