From b05abb9f98e65bdb1d7f9c4d60f7346828585e01 Mon Sep 17 00:00:00 2001
From: Greg Hendershott <greghendershott@gmail.com>
Date: Sat, 27 Oct 2012 19:21:01 -0400
Subject: [PATCH] Add <meta> tags.

---
 add-to-head.rkt | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/add-to-head.rkt b/add-to-head.rkt
index ddbf5f7..2ec9ec5 100644
--- a/add-to-head.rkt
+++ b/add-to-head.rkt
@@ -26,9 +26,19 @@ var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga
 EOF
 )
 
+(define (meta k v)
+  (format "<meta name=\"~a\" content=\"~a\">" k v))
+
+(define metas
+  (string-append
+   (meta "keywords" "Racket,macros,Scheme")
+   (meta "description" "Practical Racket macros")
+   (meta "author" "Greg Hendershott")
+   (meta "charset" "utf-8")))
+  
 (define </head> "</head>")
 
-(define all (string-append web-font ga-code </head>))
+(define all (string-append metas web-font ga-code </head>))
 (define subst (regexp-replace* "\n" all "")) ;minify
 
 (define old (file->string "main.html"))