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

Only add search terms to /

Browse source
This commit is contained in:
David Botton 2022-04-10 23:16:34 -04:00
parent dcc5f7dca7
commit 0134558c03
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
tutorial/12-tutorial.lisp
View file

@ -90,10 +90,11 @@
;; search engines and text browser. This allows setting
;; custom data for search engine optimizations which are
;; aware of these type of dynamic sites.
(declare (ignore path))
(funcall (cl-template:compile-template content)
(list :meta "<meta name='description' content='CLOG Tutorial 12'>"
:body "Tutorial 12 for CLOG")))
(if (equal path "/")
(funcall (cl-template:compile-template content)
(list :meta "<meta name='description' content='CLOG Tutorial 12'>"
:body "Tutorial 12 for CLOG"))
content))
(defun start-tutorial ()
"Start turtorial."