From 0134558c034fe50239b9ab0ac5f7bcefd56f6bba Mon Sep 17 00:00:00 2001
From: David Botton <david@botton.com>
Date: Sun, 10 Apr 2022 23:16:34 -0400
Subject: [PATCH] Only add search terms to /

---
 tutorial/12-tutorial.lisp | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/tutorial/12-tutorial.lisp b/tutorial/12-tutorial.lisp
index 8ca692f..7626567 100644
--- a/tutorial/12-tutorial.lisp
+++ b/tutorial/12-tutorial.lisp
@@ -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."